|
with Qry do
begin
sql.text:='Select nick, pass from usuarios Where nick='+Quotedstr(Edit1.text)+' And pass='+Quotedstr(Edit1.text);
open;
if recordcount<>0 then
begin
ShowMessage('Bienvenido El susuario y contraseña son correctos');
// y lo demas que quieras poner , ya sea abrir un nuevo TForm o lo que nececites/
end
else
begin
ShowMessage('El usuario o contraseña no son correctos. Intente de nuevo');
end;
end;
asi seria
|