Edit - Localizar

Delphi

27/09/2003

OLÁ.. tudo bem!!!


Se que aguém pode me ajudar!!!!!!! :shock:

Eu estou desenvolvendo um sistema e não sei como fazer a programação para consulta, eu quero que quando digitar o nome ou o código do cliente aparecer todos os dados referentes a ele. Estou utilizando um edit.. mas Não estou conseguindo fazer a programação no AfterPost da tabela. E também não quero usar o DBGrid...
Como eu faço. :cry:

Na programação da tabela como:

nomedatabela.value:=edit.text;

Se alguém puder me ajudar agradeço :oops:

Obrigada

Emilene Monzani :wink: [/i]


Emilaem

Emilaem

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

27/09/2003

Se o que você quer é localizar e posicionar o cursor no Registro desejado, no evento onclick de um botão:

Tabela.Locate(´Campo´, Edit1.Text, [lopartialkey, locaseinsensitive]);


GOSTEI 0
Marcelo.c

Marcelo.c

27/09/2003

Olá... Eu entendi... Mas como eu faço para que no mesmo componente Edit eu possa Cadastrar e Consultar ? Obrigada EMILENE MONZANI

Crie um botão para cada Tarefa (Cadastrar e Consultar)

No evento Onclick do botão Cadastrar:

Tabela.Append;
TabelaCampo.Value:=Edit1.Text;
Tabela.Post;


GOSTEI 0
Mmtoor

Mmtoor

27/09/2003

Prezada:
Acredito que esteja utilizando Tquery, por isso relato a rotina a seguir:
O seu combobox pode ter mais de uma referência, tais como: Nome, CPF, CNPJ, etc...
Desta forma, como esta descrito, após selecionar o tipo de indexador que deseja utilizar, quando for inserindo os caracteres no edit a consulta vai sendo realizada, passo a passo, limpando os dados diferentes da consição importa no dbgrid.

procedure TForm1.Edit1Change(Sender: TObject);
var a,b,c: String;
begin
if ComboBox1.Text=´Nome´then
Begin
query1.SQL.Clear;
a:=´Select * From Clientes ´;
b:=´Where Nome Like:Consulta ´;
c:=´Order By Codigo´;
query1.SQL.Add(a+b+c);
query1.Params[0].AsString;
query1.ParamByName(´Consulta´).AsString:=´´+´¬´+Edit1.Text+´¬´;
query1.qryClientes.Close;
query1.Open;
end;
end.

Espero ter ajudado.
MMTOOR2003


GOSTEI 0
POSTAR