Adicionar Items CheckListBox com DataSet

Olá galera, nesta Quick Tips, irei mostrar como podemos adicionar um objeto em um CheckListBox, porém este objeto será preenchido a partir de uma tabela de um determinado Banco de Dados.

Para iniciarmos precisaremos criar uma classe, que será a estrutura do objeto a ser adicionado no CheckListBox, vamos então a criação da classe, esta por sua vez terá 3 propriedades( IDCliente, Nome, Sexo).

Criaremos agora uma nova Aplicação em Delphi, e adicionaremos a ela uma unit, salve a mesma como uCliente, e implemente o seguinte código nela.

unit uCliente;

interface

Type

    TCliente = class

    private

    FIDCliente: String;

    FSexo: String;

    FNome: String;

    { private declarations }

    protected

    { protected declarations }

    public

    { public declarations }

    property IDCliente : String read FIDCliente write FIDCliente;

    property Nome : String read FNome write FNome;

    property Sexo : String read FSexo write FSexo;

    published

    { published declarations }

  end;

implementation

{ TCliente }

end.

Agora em nosso formulário vamos adicionar SQLConnection, SQLDataSet, DataSetProvider, ClientDataSet, CheckListBox, além de dois TButton.

No clique do TButton – Carregar implemente o seguinte :

procedure TFrmCheckListBox_BD.Button1Click(Sender: TObject);

Var

    Cliente: TCliente;

begin

  CDS.First;

 CheckListBox1.Items.Clear;

  while not CDS.Eof do

  begin

    Cliente := TCliente.Create;

    Cliente.IDCliente := CDS.FieldByName('IDCliente').AsString;

    Cliente.Nome := CDS.FieldByName('Nome').AsString;

    Cliente.Sexo := CDS.FieldByName('Sexo').AsString;

    CheckListBox1.Items.AddObject(' [ ' +Cliente.IDCliente + ' ] ' + Cliente.Nome, Cliente);

    CDS.Next;

  end;

end;

No clique do TButton – Ver Registro implemente o seguinte :

procedure TFrmCheckListBox_BD.Button2Click(Sender: TObject);

begin

  if CheckListBox1.ItemIndex > -1 then

    ShowMessage(TCliente(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]).IDCliente + #13 +

    TCliente(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]).Nome + #13 +

    TCliente(CheckListBox1.Items.Objects[CheckListBox1.ItemIndex]).Sexo);

end;

Desta forma teremos como adicionar todo um objeto dentro de um item do CheckListBox, através da propriedade Objects[], podemos adicionar e recuperar um determinado item facilmente.

Veja o resultado, ao carregarmos os itens, e logo em seguida clicarmos no TButton Ver Registro.

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y