5 respuestas en este tema

[root]

hola a todos


salu2


nuevamente yo


duda


por que se generan estos errores ?


Incompatible types: 'TStrings' and 'string' ??


les paso el ejemplo de codigo que estoy usando

delphi

procedure TForm2.Button1Click(Sender: TObject);
var pass, usuario, user, comillas : string ;
var contador : integer ;
begin
comillas := '"' ;
user := edit1.text ;
zquery1.close ;
zquery1.SQL := 'select usuarios.pass, usuarios.nombre from usuarios where usuarios.usuario = ' + comillas + user + comillas ;
zquery1.Open      ;
pass := (ZQuery1.Fields[0].Text) ;
zquery1.Close ;
contador := contador + 1 ;
if pass = edit2.Text then
  begin
  usuario := (ZQuery1.Fields[1].Text) ;
  Application.MessageBox( 'Acceso Autorizado', 'ACCESO' , MB_ICONINFORMATION ) ;
  form2.Visible:= false ;
  end
else
 Application.MessageBox( 'Acceso DENEGADO', 'ACCESO' , MB_ICONSTOP ) ;
 edit1.text := '' ;
 edit2.text := '' ;
end;

[Wilson]

Aunque no trabajo con Zeos, debe ser porque la propiedad SQL de zquery1 es de tipo TStrings, por lo tanto lo que debes hacer es colocar:


zquery1.SQL.Add('Tu consulta)


saludos

[egostar]

delphi

zquery1.SQL.text := 'select usuarios.pass, usuarios.nombre from usuarios where usuarios.usuario = ' + comillas + user + comillas ;

Salud OS

[felipe]

Yo haría esto:

delphi

procedure TForm2.Button1Click(Sender: TObject);
var pass, usuario, user: string ;
var contador : integer ;
begin
	user := edit1.text ;
	zquery1.close ;
	zquery1.SQL.Text := 'select usuarios.pass, usuarios.nombre from usuarios where usuarios.usuario = ' + QuotedStr(user);
	zquery1.Open;
	pass := ZQuery1.Fields[0].asString ;
	zquery1.Close ;
	contador := contador + 1 ; //?
	if pass = edit2.Text then
	  begin
	  usuario := ZQuery1.Fields[1].asString; //?
	  Application.MessageBox( 'Acceso Autorizado', 'ACCESO' , MB_ICONINFORMATION ) ;
	  form2.Visible:= false ;
	  end
	else
	 Application.MessageBox( 'Acceso DENEGADO', 'ACCESO' , MB_ICONSTOP ) ;
	 edit1.text := '' ;
	 edit2.text := '' ;
end;

Me pregunto es para que se usan las dos lineas que marque, "contador" no hace nada, "usuario" tampoco.


Saludos!

[root]

apenas estoy haciendo la función la idea de contador es hacer que si lo intenta 3 veces y falla se cierre el programa
y el de usuario es para que cuando se cierre la ventana de validación de usuario, me ponga el nombre en una variable,
para generar registro de las actividades de los usuarios.

algo así como

el usuario modifico un registro
el usuario genero una cita
el usuario genero ......

así, si algo esta mal
que nos diga quien la cag....

[felipe]

Entendido


Saludos!