Simples mas estou apanhando.......
19/03/2003
0
É o seguinte:
Uso Delphi 5.0 e Paradox 7.0...
Tenho uma tabela de dependentes, assim:
CodigoDep - Chave primária
CodigoAss - Campo numérico - Chave estrangeira
NomeDep - Nome do dependente
etc...
O que quero é o seguinte:
No form onde vou incluir o dependente uso um DBEdit pra ser digitado o número do associado, que é a chave estrangeira, e caso o associado exista, preciso mostrar em uma LABEL o nome do associado, já fiz de várias formas até usando SQL mas sempre pega o primeiro nome da tabela de associado...
Preciso muito desta ajuda...
Grato...
Jota
Jota
Posts
19/03/2003
Bruno
19/03/2003
Jota
Não preciso gravar o nome na label, só preciso mostrar o nome do associado referente ao codigoass digitado ok ???
19/03/2003
Rdf
Ao invés de um TDBEdit, coloque um TEdit e no onExit (ou outro evento que vc preferir) escreva o código abaixo :
procedure TForm1.Edit1Exit(Sender : TObject); var Query : TQuery; begin Query := TQuery.Create(Self); Query.DataBaseName := ´seuDataBase´; with Query do begin Active := False; SQL.Clear; SQL.Add(´select NomeAss from Associados where CodigoAss = :id´); ParamByName(´id´).AsInteger := StrToInt(Edit1.Text); Active := True; end; if not(Query.IsEmpty) then Label1.Caption := Query.FieldByName(´NomeAss´).AsString else Label1.Caption := ´Associado não cadastrado´; Query.Destroy; end;
não esqueça de adicionar dbTables na cláusula uses de sua unit!!!
19/03/2003
Marcelo
procedure....
begin
...
TBNome_da_Tabela.FindKey([Edit_ode_esta_nome.Text]);
LNome_do_Label.Caption:=TBNome_da_TabelaCLIENTE.Value;
...
end;
Valeu?
at+...
Clique aqui para fazer login e interagir na Comunidade :)
