procedure TfIdentificacion.Button1Click(Sender: TObject);
var
idnombre,contrasenia: String;
NombreUsuario : String;
begin
ADOcomparacion.SQL.Clear;
idnombre:=LowerCase(fIdentificacion.txtUsuario.Text);
contrasenia:=fIdentificacion.txtContrasenia.Text;
ADOcomparacion.SQL.Add('select idnombre, contrasenia from Tusuarios where idnombre='+ quotedStr(idnombre) +' and contrasenia='+quotedStr(contrasenia) );
ADOcomparacion.Open;
if (ADOcomparacion.RecordCount=1) then
begin
NombreUsuario:= ADOcomparacion.FieldByName('idNombre').AsString;
fPrincipal.ShowModal;
fIdentificacion.Close;
txtUsuario.Text:= '';
txtContrasenia.Text:= '';
end
Else
begin
MsgTitle := 'Acceso Denegado';
MsgX := 550;
MsgY := 286;
Application.MessageBox('Datos Incorrectos', PChar(MsgTitle), MB_ICONSTOP);
txtUsuario.Text:= '';
txtContrasenia.Text:= '';
txtUsuario.SetFocus;
end
end;