Fórum Edit - Localizar #184633
27/09/2003
0
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]
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
Curtir tópico
+ 0
Responder
Posts
27/09/2003
Marcelo.c
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]);
Tabela.Locate(´Campo´, Edit1.Text, [lopartialkey, locaseinsensitive]);
Responder
Gostei + 0
27/09/2003
Marcelo.c
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;
Responder
Gostei + 0
28/09/2003
Mmtoor
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
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)