Amigos...ajudem um iniciante....
20/02/2003
0
Bem pessoal veja so minha historia....
Gostaria de filtrar em um formulario o seguinte tenho uma tabela de
´PROFESSORES´ e uma tabela de ´FAIXA´.....coloquei um DBLOOKUP para
listar as a tabela ´FAIXA´...e gostaria que aparecesse num DBGRID logo
abaixo o nome dos PROFESSORES correspondentes a faixa lista no DBLOOKUP.
Resumindo gosria de saber queis professores pertencem a faixa tal....
Por Favor poderiam me ajudar..??
*************************************************************************
procedure TUCFaixa.DBLookupComboBox1Click(Sender: TObject);
begin
TbProfessores.Filter := ´codigo=´ + TbFaixa.FieldByName(´codigo´).AsString;
DbGrid1.DataSource:= DSProfessores;
TbProfessores.Filtered:=True;
end;
procedure TUCFaixa.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TbProfessores.Filter:=´´;
TbProfessores.Filtered:= False;
DbGrid1.DataSource:= nil;
end;
procedure TUCFaixa.btSairClick(Sender: TObject);
begin
close;
end;
end.
Gostaria de filtrar em um formulario o seguinte tenho uma tabela de
´PROFESSORES´ e uma tabela de ´FAIXA´.....coloquei um DBLOOKUP para
listar as a tabela ´FAIXA´...e gostaria que aparecesse num DBGRID logo
abaixo o nome dos PROFESSORES correspondentes a faixa lista no DBLOOKUP.
Resumindo gosria de saber queis professores pertencem a faixa tal....
Por Favor poderiam me ajudar..??
*************************************************************************
procedure TUCFaixa.DBLookupComboBox1Click(Sender: TObject);
begin
TbProfessores.Filter := ´codigo=´ + TbFaixa.FieldByName(´codigo´).AsString;
DbGrid1.DataSource:= DSProfessores;
TbProfessores.Filtered:=True;
end;
procedure TUCFaixa.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TbProfessores.Filter:=´´;
TbProfessores.Filtered:= False;
DbGrid1.DataSource:= nil;
end;
procedure TUCFaixa.btSairClick(Sender: TObject);
begin
close;
end;
end.
Anonymous
Curtir tópico
+ 0
Responder
Posts
20/02/2003
Anonymous
simples fassa um relacionamento mestre detalhe.
1-va a propriedade master source
2-clicar o pequeno botao com reticencias que aparece na propriedade masterfields.aparece então um dialogo para a definiçao dos campos que vao estabelecer a relacao mestre-detalhe.
3- no dialogo,selecionar primary key no campo available indexes.
4-selecionar na lista detail fields primary key tambem na lista master fields.
5-clicar add
6-clicar ok para fechar o dialogo.
obs:
todos esses passas sao table de professores e nao do DBLookupComboBox
1-va a propriedade master source
2-clicar o pequeno botao com reticencias que aparece na propriedade masterfields.aparece então um dialogo para a definiçao dos campos que vao estabelecer a relacao mestre-detalhe.
3- no dialogo,selecionar primary key no campo available indexes.
4-selecionar na lista detail fields primary key tambem na lista master fields.
5-clicar add
6-clicar ok para fechar o dialogo.
obs:
todos esses passas sao table de professores e nao do DBLookupComboBox
Responder
Clique aqui para fazer login e interagir na Comunidade :)