Armazenando Objetos: CheckListBox

Nesse artigo veremos como usar o componente CheckListBox para manipular dois valores, um valor para o usuário e outro para ser usado na aplicação.

Usaremos nesse exemplo uma tabela no Firebird com Script abaixo:

CREATE TABLE "TB_Login"

(

  "PK_Login" INTEGER NOT NULL,

  "Nome" VARCHAR(15) CHARACTER SET WIN1252 NOT NULL,

 UNIQUE ("Nome"),

CONSTRAINT "PK_Login" PRIMARY KEY ("PK_Login")

);

Usei  esta tabela mas poderia ser qualquer outra tabela, adicione alguns registros nessa tabela.

Abra o Delphi e crie uma nova aplicação. Coloque as seguintes configurações:

 Name do form : FrmCheckListBox

Caption : Exemplo CheckListBox

Salve o formulário como uFrmCheckListBox  e  o projeto como ProjCheckListBox, Crie uma Unit (File/New/Unit-Delphi) salve como uCheckListBox.

Sua Unit deve ficar como exemplo abaixo.

unit uCheckListBox;

interface

type

TAuxiliar = class

private

vValor : String;

public

constructor Create(const pValor : String); // dê um Ctrl+shift+c nessa posição

property Valor : String read vValor write vValor;

end;

implementation

{ TAuxiliar }

constructor TAuxiliar.Create(const pValor: String);

begin

   inherited Create;

   vValor := pValor;

end;

end.

Após implementar a Unit de uses dela no  UfrmCheckListBox (Alt + f11).

Adicione ao form os seguintes objetos:

TSQLConnection , TSQLDataSet, TDataSetProvider, TClientDataSet.

Seu form deve ficar momo abaixo:

Ligue o ConnExemplo ao banco, o SQLExemplo a propriedade SQLConnection ao ConnExemplo, o DSPExemplo a propriedade DataSet ao SQLExemplo e o CDSExemplo propriedade ProviderName ao DSPExemplo.

Marque o SQLExemplo e vá até a propriedade CommandText e coloque a seguinte instrução:

select "Nome", "PK_Login" from "TB_Login"

Coloque a propriedade Active para True, veja se a instrução SQL passou.

Adicione um componente TCheckListBox (Paleta Additional), e um TButton , Mude o Caption dele para Ler DataSet e implemente o seguinte código no botão:

procedure TFrmCheckListBox.Button1Click(Sender: TObject);

Var

VAuxiliar: TArmazena;

// Variavel do tipo que criamos na Unit.

begin

CDSExemplo.Active := True;

CheckListBox1.Clear;

with CDSExemplo do

begin

Open;

First;

while not eof do

begin

VAuxiliar := TArmazena.Create(FieldByName('PK_Login').AsString);

CheckListBox1.Items.AddObject(FieldByName('Nome').AsString, VAuxiliar);

Next;

end;

Close

end;

end;

Compile o programa e o resultado deve ser esse:

Nesse momento já podemos pegar a chave primária, para isso vamos usar para demonstrar  estes valores adicione um TListBox (Paleta Additional)  e um TButton.

Implemente o seguinte código no botão:

procedure TFrmCheckListBox.Button2Click(Sender: TObject);

Var

I: Integer;

begin

ListBox1.Clear;

for I := 0 to CheckListBox1.Items.Count - 1 do

if CheckListBox1.Checked[I] then

ListBox1.Items.Add(TArmazena(CheckListBox1.Items.Objects[I]).Valor);

end;

Execute o Programa e veja os resultados. Deve ficar como imagem abaixo:

Abraço.

Marco A. S. Carvalho

marco@cestecnologia.com.br