Servicomp Ayuda...
No tengo datamodule, y no entiendo que era el Fclave, lo modifique de esta forma corrio pero no sirvio.. que esta mal ? xD
procedure TFClave.BitBtn1Click(Sender: TObject);
begin
With table1 do
Begin
Active:=True;
Open;
IndexName:='';
SetKey;
FieldByName('Login').AsString:=Edit1.Text;
if Gotokey then
Begin
if (FieldByName('Password').AsSTring = Edit2.Text) then
Begin
{close; }
Form1.Hide; {ocultamos la forma de clave}
Form2.Show;
end
else Begin
Application.MessageBox('Clave Incorrecta','Mensaje de Advertencia',0);
Edit1.Text:='';
Edit2.Text:='';
Edit1.SetFocus;
End; {if que verifica la clave}
end
else begin
Application.MessageBox('Nombre de Usuario Incorrecto','Mensaje de Advertencia',0);
Edit1.Text:='';
Edit2.Text:='';
Edit1.SetFocus;
End; {if de busqueda del usuario}
close;
End; {Fin del with de Dcontar.TUsuario}
end;
|