loginmain.pas

档案信息管理系统

//登录窗体
unit loginMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Mask, StdCtrls, Buttons;

type
  TLoginMainForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    btOk: TBitBtn;
    btCancel: TBitBtn;
    edLoginName: TEdit;
    edPassword: TMaskEdit;
    procedure btOkClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginMainForm: TLoginMainForm;

implementation
uses ArchDataModule,ArchDataClass,MainForm;

{$R *.dfm}

//登录
procedure TLoginMainForm.btOkClick(Sender: TObject);
var
   LoginInfo :UserAccount;
   LoginManager :AccountDBManager;
   lResult : integer;
begin
   LoginInfo :=UserAccount.Create;
   LoginManager :=AccountDBManager.Create;

   LoginInfo.UserName :=trim(edLoginName.Text);
   LoginInfo.Password :=trim(edPassword.Text);
   lResult :=LoginManager.SearchAccount(LoginInfo);

//判断该帐户是否存在
   if lResult = 0 then
      Application.MessageBox('用户名不存在，请重新输入','帐户名不存在',MB_OK)
   else if lResult =1 then
      begin
        LoginInfo.SetRight(false);
        LoginMainForm.Release;
        ArchMainForm.currentAccount :=LoginInfo.UserName;
      end
   else
      begin
        LoginInfo.SetRight(true);
        LoginMainForm.Release;
        ArchMainForm.currentAccount :=LoginInfo.UserName;
      end;
end;

procedure TLoginMainForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    LoginMainForm.Release;
end;

//取消登录
procedure TLoginMainForm.btCancelClick(Sender: TObject);
begin
  LoginMainForm.Release;
end;

end.