Hola
Este es el codigo del login:
Código Delphi
[-]
unit UFLogin;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;
type
TFLogin = class(TForm)
Label1: TLabel;
Label2: TLabel;
EUsuario: TEdit;
EClave: TEdit;
BtnOk: TButton;
BtnCancel: TButton;
ADLogin: TADOQuery;
ADLoginCodUsuario: TWideStringField;
ADLoginNombre: TWideStringField;
ADLoginClave: TWideStringField;
procedure FormCreate(Sender: TObject);
procedure BtnOkClick(Sender: TObject);
procedure BtnCancelClick(Sender: TObject);
private
public
end;
var
FLogin: TFLogin;
Cuenta : integer;
Usuario, Nombre : String;
LoginOK : boolean;
implementation
uses UFClientes;
{$R *.dfm}
procedure TFLogin.FormCreate(Sender: TObject);
begin
Cuenta := 0;
Usuario := '';
Nombre := '';
end;
procedure TFLogin.BtnOkClick(Sender: TObject);
begin
LoginOK := False;
ADLogin.Parameters.ParamByName('nom').Value:= EUsuario.Text;
ADLogin.Active:= True;
EUsuario.Text:= ADLogin.Fields[1].AsString;
If ADLogin.RecordCount < 1 then
Begin
Cuenta := Cuenta + 1;
MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
EUsuario.Text := '';
EClave.Text := '';
ADLogin.Active := False;
If Cuenta = 3 then Close;
end
else
If ADLoginClave.AsString = EClave.Text then
Begin
LoginOk := True;
Nombre := ADLoginNombre.AsString;
ADLogin.Active := False;
FClientes:=TFClientes.Create(self);
try
FLogin.Visible:= False;
FClientes.ShowModal;
finally
FClientes.Free;
end;
Close;
end
else
Begin
Cuenta := Cuenta + 1;
MessageDlg('Clave Inválida',mtError, [mbOK], 0);
EClave.Text := '';
ADLogin.Active := False;
If Cuenta = 3 then Close;
end;
end;
procedure TFLogin.BtnCancelClick(Sender: TObject);
begin
LoginOK :=False;
Close;
end;
end.
En projets, el login esta en main form.
Me dejas mal parado, no entiendo el problema.
Saludos