login.pas

短小而实用的房地产销售管理软件

Unit Login;

Interface

Uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB, AAFont, AACtrls,
   LbButton;

Type
   tloginform = Class(TForm)
      Panel1: TPanel;
      Image2: TImage;
      combobox1: TComboBox;
      Edit1: TEdit;
      ADOQuery1: TADOQuery;
      DataSource1: TDataSource;
      StaticText1: TStaticText;
      AALabel1: TAALabel;
      AALabel2: TAALabel;
      btn2: TLbButton;
      LbButton1: TLbButton;
      Procedure Edit1KeyPress(Sender: TObject; Var Key: char);
      Procedure BitBtn2Click(Sender: TObject);
      Procedure BitBtn1Click(Sender: TObject);
      Procedure FormClose(Sender: TObject; Var Action: TCloseAction);
      Procedure FormCreate(Sender: TObject);
   Private
        { Private declarations }
   Public
        { Public declarations }
   End;

Var
   LoginForm        : tloginform;

Implementation
Uses CnBase64, MainUnit, DM, LoginInfo, UserOparet;
{$R *.dfm}

Procedure tloginform.Edit1KeyPress(Sender: TObject; Var Key: char);
Begin
   If Key = #13 Then BitBtn1Click(self);

End;

Procedure tloginform.BitBtn2Click(Sender: TObject);
Begin
   Application.Terminate;
End;

Procedure tloginform.BitBtn1Click(Sender: TObject);
Var
   Psw64            : String;
Begin
   With ADOQuery1 Do Begin
      Close;
      sql.Text := 'select * from 用户登入表';
      open;
      If recordcount = 0 Then Begin
         Application.MessageBox('你还未设置密码！请在进入系统后到“用户管理”中设置', '提示信息', mb_OK + MB_ICONQUESTION);
         Panel1.Visible := false;
         MainForm.A1.Enabled := true;
         MainForm.A2.Enabled := true;
         MainForm.A3.Enabled := true;
         MainForm.A4.Enabled := true;
         Exit;
      End;
      CnBase64.Base64Encode(Edit1.Text, Psw64);
      Close;
      sql.Text := 'select * FROM 用户登入表 where 用户名=''' +
         combobox1.Text + ''' and 密码=''' + Psw64 + '''';
      open;
      If recordcount = 0 Then Begin
         Application.MessageBox('非法用户，不能进入，请重新输入密码!',
            '非法登入', MB_ICONERROR);
         Edit1.Clear;
         Edit1.SetFocus;
      End
      Else Begin

         MainForm.A1.Enabled := true;
         MainForm.A2.Enabled := true;
         MainForm.A3.Enabled := true;
         MainForm.A4.Enabled := true;

         currusername := combobox1.Text;

         With MainForm.ADOQuery1 Do Begin
            sql.Text := 'select * from 登入信息表';
            open;
            Append;
            fieldbyname('登入日期时间').AsDateTime := Now;
            fieldbyname('退出日期时间').AsDateTime := 0;
            fieldbyname('登入用户').AsString := currusername;
            post;
            LoginForm.Close;
         End;
         Close;

      End;
   End;
End;

Procedure tloginform.FormClose(Sender: TObject; Var Action: TCloseAction);
Begin

   Action := cafree;
   LoginForm := Nil;
End;

Procedure tloginform.FormCreate(Sender: TObject);
Var
   i                : integer;
   Psw64            : String;
Begin
   combobox1.Clear;
   With ADOQuery1 Do Begin
      Close;
      sql.Text := 'select 用户名 from 用户登入表';
      open;
      For i := 0 To recordcount - 1 Do Begin
         combobox1.Items.Add(fieldbyname('用户名').Text);
         Next;
      End;
   End;
   combobox1.Text := 'ADMIN';
   MainForm.A1.Enabled := false;
   MainForm.A2.Enabled := false;
   MainForm.A3.Enabled := false;
   MainForm.A4.Enabled := false;
   With ADOQuery1 Do Begin
      Close;
      sql.Text := 'SELECT 密码 FROM 用户登入表 WHERE 用户名=''ADMIN''';
      open;
      CnBase64.Base64Decode(fieldbyname('密码').Text, Psw64);
      StaticText1.Visible := Psw64 = '123';
   End;
End;

End.