Ver Mensaje Individual
  #9  
Antiguo 17-08-2010
marcos_0586 marcos_0586 is offline
Miembro
 
Registrado: jul 2010
Posts: 28
Reputación: 0
marcos_0586 Va por buen camino
trabajo con database desktop que viene con delphi7 (las tablas las hice en paradox 7)
ahora me aparece:
[Error] Unit8.pas(129): Undeclared identifier: 'Parameters'
[Error] Unit8.pas(129): Missing operator or semicolon
a no se que hacer, dejo el codigo a ver si se puede hacer algo para poder terminar con esto
Código SQL [-]
 
procedure TForm8.Image1Click(Sender: TObject); var Dato: String; 
var Dato: String;
begin
if form1.table4.findkey([Edit3.Text])= true  then
begin 
     panel1.Visible:=true; 
    IF RadioButton1.Checked=true then  
    begin  
         Image2.Visible:=false;      
         Image3.Visible:=true;           
 DBLookupComboBox1.ReadOnly:=true;        
    DBEdit1.ReadOnly:=true;      
   DBEdit2.ReadOnly:=true;       
     DBEdit3.ReadOnly:=true;         
   dbgrid1.ReadOnly:=true;         
   Dato:= DBEdit1.Text;     
 Query1.SQL.Text:='SELECT Numero from T_telcliente where Cod_cliente=:a'; 
 Query1.Parameters[0].Value:= Dato;         
   Query1.active:=true;      
     end          
  else       
     begin       
          Image2.Visible:=true;    
             Image3.Visible:=false;               
  DBLookupComboBox1.ReadOnly:=false;         
        DBEdit1.ReadOnly:=false;         
        DBEdit2.ReadOnly:=false;          
       DBEdit3.ReadOnly:=false;     
            dbgrid1.ReadOnly:=false;   
         end;         
 end       
  else        
    begin       
        showmessage('no existe el dni buscado');   
            edit3.Text:='';   
         end;     
  edit3.Text:=''; 
end;

Última edición por marcos_0586 fecha: 17-08-2010 a las 22:59:22.
Responder Con Cita