unit UnitLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls, XPMenu,IniFiles;

type
  Tfrm_Login = class(TForm)
    Cmd_Login: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label3: TLabel;
    Edit_Login_Type: TComboBox;
    Edit_Login_Name: TComboBox;
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    XPMenu1: TXPMenu;
    Lab_Error: TLabel;
    Edit_Login_Pwd: TLabeledEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Cmd_LoginClick(Sender: TObject);
  private
    { Private declarations }
    PassTime:Byte;
    tempPwd:string;
  public
    { Public declarations }
  end;

var
  frm_Login: Tfrm_Login;
  f: TIniFile;
implementation

uses UnitMain, UnitDataModule, UnitPublic, UnitkeyCryptClass;

{$R *.dfm}

procedure Tfrm_Login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=Cafree;
    frm_DataModule.ADO_QueryLogin.Close;
end;

procedure Tfrm_Login.SpeedButton2Click(Sender: TObject);
begin
    frm_Login.Tag:=0;
    Close;
end;

procedure Tfrm_Login.FormShow(Sender: TObject);
begin
    Edit_Login_Type.ItemIndex:=0;
    Edit_Login_Name.Items.Add('system');
    with frm_DataModule.ADO_QueryLogin do
    begin
        Close;
        Sql.Clear;
        Sql.Add('SELECT Distinct Login_Type FROM [Chang]');
        Try
            Prepared;
            Open;
            While Not Eof do
            begin
                Edit_Login_Type.Items.Add(FieldByName('Login_Type').AsString);
                Next;
            end;
        Except
            Application.MessageBox('系統(tǒng)錯誤！系統(tǒng)在打開數(shù)據(jù)表【Login】時與遠程服務(wù)器連接錯誤！請確認！',Pchar(Application.Title),MB_ICONWARNing);
            Exit;
        End;
    end;
end;

procedure Tfrm_Login.Cmd_LoginClick(Sender: TObject);
begin
    inc(PassTime);
    //
    //**************************************************************************
    //運用開發(fā)用戶的密碼
    if CheckBox1.Checked=True then
    begin
        if ((Trim(Edit_Login_Name.Text)='system') and (Trim(Edit_Login_Pwd.Text)='system')) then
        begin
            f:=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
            f.WriteString('LoginSet','Login_Type','開發(fā)類型');
            f.WriteString('LoginSet','Login_Name','開發(fā)人員');
            f.WriteString('LoginSet','Login_Time',DateTimeToStr(now));
            f.Free;
            RightStr:='';
            LoginName:='開發(fā)人員';//記錄登陸人員的名稱
            LoginType:=Trim(Edit_Login_Name.Text);     //記錄登陸人員的類型
            LoginTime:=(now);                    //記錄登陸人員的登陸時間
            frm_main:=Tfrm_Main.Create(self);
            frm_Main.StatusBar1.Panels[0].Text:='當(dāng)前操作員為：'+trim(LoginName);
            frm_Main.ShowModal;
            frm_Login.close;
            frm_main.Free;
        end
        else
        begin
            Lab_Error.Caption:=Format('密碼錯誤第%d次，請重新輸入：',[PassTime]);
            if PassTime>=3 then
            begin
                MessageBox(Handle,'連續(xù)輸入錯誤密碼超過3次，程序退出！','信息',MB_OK);
                system.Halt(0);
            end
            else
            begin
                application.MessageBox('［連續(xù)輸入錯誤密碼超過3次，程序退出］！'+#13#10#13+'用戶名和密碼不符合！請確認后再輸入！',Pchar(Application.Title),mb_Iconwarning);
                Edit_Login_Pwd.Text:='';
                Edit_Login_Pwd.SetFocus;
            end;
            Edit_Login_Pwd.SetFocus;
            Edit_Login_Pwd.SelectAll;
            exit;
        end;
    end
    //**************************************************************************
    //
    //--------------------------------------------------------------------------
    //不運用開發(fā)用戶密碼
    else
    begin
        tempPwd:=Decrypt(trim(Edit_Login_Pwd.Text),'luersoft');  //解開密碼
        with frm_DataModule.ADO_QueryLogin do
        begin
            Close;
            Sql.Clear;
            Sql.Add('Select Login_Type,Login_Name,Login_Pwd from [Chang] where Login_Type=:u0 and Login_Name=:u1 and Login_Pwd=:u2');
            Parameters[0].Value:=Trim(Edit_Login_Type.Text);
            Parameters[1].Value:=Trim(Edit_Login_Name.Text);
            Parameters[2].Value:=Trim(tempPwd);
            open;
            if RecordCount=0 then
            begin
                Lab_Error.Caption:=Format('密碼錯誤第%d次，請重新輸入：',[PassTime]);
                if PassTime>=3 then
                begin
                    MessageBox(Handle,'連續(xù)輸入錯誤密碼超過3次，程序退出！','信息',MB_OK);
                    system.Halt(0);
                end
                else
                begin
                    application.MessageBox('［連續(xù)輸入錯誤密碼超過3次，程序退出］！'+#13#10#13+'用戶名和密碼不符合！請確認后再輸入！',Pchar(Application.Title),mb_Iconwarning);
                    Edit_Login_Pwd.Text:='';
                    Edit_Login_Pwd.SetFocus;
                end;
            end
            else if RecordCount>0 then
            begin
                f:=TIniFile.Create(ExtractFileDir(application.Exename)+'\SystemSet.ini');
                f.WriteString('LoginSet','Login_Type',trim(Edit_Login_Type.Text));
                f.WriteString('LoginSet','Login_Name',trim(Edit_Login_Name.Text));
                f.WriteString('LoginSet','Login_Time',DateTimeToStr(now));
                f.Free;
                LoginName:=Trim(Edit_Login_Name.Text);//記錄登陸人員的名稱
                LoginType:=Trim(Edit_Login_Type.Text);     //記錄登陸人員的類型
                LoginTime:=now;                     //記錄登陸人員的登陸時間
                //提取操作權(quán)限
                with frm_DataModule.ADO_QuerySearch do
                begin
                    Close;
                    Sql.Clear;
                    Sql.Add('SELECT Login_Type,Login_Name,Right_Name FROM [UserRight] where Login_Type=:u0 and Login_Name=:u1');
                    Parameters[0].Value:=Trim(Edit_Login_Type.Text);
                    Parameters[1].Value:=Trim(Edit_Login_Name.Text);
                    Open;
                    RightStr:='';
                    if RecordCount>0 then
                    begin
                        First;
                        while not Eof do
                        begin
                            RightStr:=RightStr+FieldByName('Right_Name').asstring+',';
                            Next ;
                        end;
                        //顯示主窗體
                        frm_main:=Tfrm_Main.Create(self);
                        frm_Main.StatusBar1.Panels[0].Text:='當(dāng)前操作員為：'+trim(Edit_Login_Name.Text);
                        frm_Main.ShowModal;
                        frm_Login.close;
                        frm_main.Free;
                    end
                    else
                    begin
                        Application.MessageBox('由于你還沒有獲得任何管理權(quán)限！'+#13#10#13+'不能使用系統(tǒng)！'+#13#10#13+'請與系統(tǒng)管理員取得聯(lián)系！',Pchar(Application.Title),MB_ICONWARNING);
                        Exit;
                    end;
                end;
            end;
        end;
    end;
    //--------------------------------------------------------------------------
end;

end.