relacionar memocheckbox rxlib

Delphi

03/04/2004

Saudações pessoal,

Tenho que implementar um formulario que atualize o campo data de pagamento de cada aluno de uma tabela financeira.

Dai gostaria de consultar os alunos por turma e atualizar em um campo o valor sendo que gostaria de relacionar todos em um memocheckbox do rxlib.

Dai tenho que desenvolver um rotina que sai atualizando todos que estão marcados.

Alguem poderia me orientar como faço essa implementação ?

Att.
Jonasaf.


Jonasaf

Jonasaf

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

03/04/2004

memocheckbox do rxlib.


Tem certeza que o nome do componente é este? Não encontrei na paleta da RxLib.


GOSTEI 0
Jonasaf

Jonasaf

03/04/2004

[quote:db5743aa84=´Aroldo Zanela´]
memocheckbox do rxlib.


Tem certeza que o nome do componente é este? Não encontrei na paleta da RxLib.[/quote:db5743aa84]


Falow colega... ta zuando a minha pessoa.. ! rss

Aki RxCheckListBox1 eu gostaria de relacionar os nomes da consulta no componente e implementar uma rotina pra atualizar todos os que estiverem marcados....


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

03/04/2004

[quote:bbd917590d=´Aroldo Zanela´][quote:bbd917590d=´jonasaf´]memocheckbox do rxlib.


Tem certeza que o nome do componente é este? Não encontrei na paleta da RxLib.[/quote:bbd917590d]


Falow colega... ta zuando a minha pessoa.. ! rss

Aki RxCheckListBox1 eu gostaria de relacionar os nomes da consulta no componente e implementar uma rotina pra atualizar todos os que estiverem marcados....[/quote:bbd917590d]

Zuar! :lol: Só no botequim do debug. Pensei que fosse alguma versão não oficial da RxLib, eis que a mesma foi incorporada ao projeto Jedi VCL.

Deixe-me ver se entendi, você que carregar de nomes no componente e depois ´pegar´ os marcados e atualizar o banco. É isso mesmo?


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

03/04/2004

Colega,

Veja se é o que deseja:

Carrega a RxCheckListBox com os dados da tabela. Neste teste, utilizei a tabela Clients.dbf do alias DBDEMOS que acompanha a instalação do Delphi.

procedure TForm1.Button1Click(Sender: TObject);
begin
RxCheckListBox1.Clear;
  Table1.Open;
  While not Table1.Eof do
  begin
  RxCheckListBox1.Items.Add(Table1FIRST_NAME.Value);
    Table1.Next;
  end;
end;


A título de exemplo, coloquei para exibir uma mensagem para cada cliente assinalado após executar a ´carga´ acima.
procedure TForm1.Button2Click(Sender: TObject);
var nI, nX: Integer;
begin
  nX := RxCheckListBox1.Items.Count-1;
  for nI := 0 to nX do
  begin
  if RxCheckListBox1.Checked[nI] then
    ShowMessage(RxCheckListBox1.Items[nI]);
  end;

end;



GOSTEI 0
Jonasaf

Jonasaf

03/04/2004

[quote:9e0b014aad=´Aroldo Zanela´]Colega,

Veja se é o que deseja:

Carrega a RxCheckListBox com os dados da tabela. Neste teste, utilizei a tabela Clients.dbf do alias DBDEMOS que acompanha a instalação do Delphi.

procedure TForm1.Button1Click(Sender: TObject);
begin
RxCheckListBox1.Clear;
  Table1.Open;
  While not Table1.Eof do
  begin
  RxCheckListBox1.Items.Add(Table1FIRST_NAME.Value);
    Table1.Next;
  end;
end;


A título de exemplo, coloquei para exibir uma mensagem para cada cliente assinalado após executar a ´carga´ acima.
procedure TForm1.Button2Click(Sender: TObject);
var nI, nX: Integer;
begin
  nX := RxCheckListBox1.Items.Count-1;
  for nI := 0 to nX do
  begin
  if RxCheckListBox1.Checked[nI] then
    ShowMessage(RxCheckListBox1.Items[nI]);
  end;

Colega gostaria que vc me orientasse como irei fazer um update com sql para atualizar.. deverei fazer vários IFS, já fez alguma rotina desse jeito... pois tenho q atualizar... dois campos a data de vencimento do pagamento e outro campo dos que estão já pagaram... 

end;
[/quote:9e0b014aad]


GOSTEI 0
POSTAR