Hayy no soy un caos miren les voy a tratar d explicar q quiero hacer a ver si asi es mas facil q me ayuden
Estoy buscando un registro y quiero q me lo muestre en unos edit.text para poder eliminarlos.
Ya puse el query pero no me los muestra este es el codigo q tengo
if(edit1.Text<>'')then
begin
try
query1.SQL.Text:='select * from cliente where numcliente='+edit1.Text;
query1.Open;
except
application.MessageBox('Introduzca solamente números','ERROR',1);
end;//del try except
try
if(table1.RecordCount=0) then
application.MessageBox('No existe ID','ATENCION',1)
else
begin
if(edit1.Text<>'')then
if (table1.RecordCount<>0) then
begin
edit2.Text:=table1.FieldValues['nombre'];
edit3.Text:=table1.FieldValues['direccion'];
edit4.Text:=table1.FieldValues['telefono'];
edit5.Text:=table1.FieldValues['ciudad'];
end;
por favor expliquenme detalladamente x q casi no se nada d delphi
|