logon.pas

人事工资考勤管理信息系统

unit LogOn;       //软件登录界面窗体项目

interface

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

type
  TLogOnFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBComboBox1: TDBComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LogOnFrm: TLogOnFrm;
  times:integer;
implementation
  uses DataModule,Main;
{$R *.dfm}

procedure TLogOnFrm.BitBtn1Click(Sender: TObject);
var
  s:string;
begin
  with DM.ADOQuery1 do
    begin
     close;
     SQl.Clear;
     SQL.Add('Select User_Popedom,User_Password from Archives_User where'+' User_ID='+DBComboBox1.Text+' and'+' User_Password'+'='+Edit1.text);
     open;
    end;
     times:=times+1;
    if DM.ADOQuery1.RecordCount<1 then
       begin
       MessageDlg('密码不对',mtWarning,[mbOk],0);
       edit1.Clear;
       edit1.SetFocus;
       if times>3 then
         begin
         showmessage('密码不对！请联系管理员获取密码再登录！');
         LogOnFrm.Close;
         end;
       end
       else
        if DM.ADOQuery1.FieldValues['User_Popedom']<>'A' then
           begin
            showmessage('密码正确！你是合法用户！你具有访问和修改个人资料的权限！');
            //将数据库的位置定位到用户资料
         //  PersonnelData.Personnel_infoADOTable.Locate('EmployeeID',DBComboBox1.Text,[]);
      //     if MainFrm=nil then
       //    Application.CreateForm(TMainFrm, MainFrm); //创建窗口
       //    MainFrm.Show;

           end
        else
           begin
              s:='密码正确！你拥有管理员的权限，可以增加用户、删除用户';
              showmessage(s);
             if MainFrm=nil then
             Application.CreateForm(TMainFrm, MainFrm); //创建窗口
             MainFrm.Show;
           end;
end;

procedure TLogOnFrm.FormCreate(Sender: TObject);
begin
   times:=1;
end;

procedure TLogOnFrm.BitBtn2Click(Sender: TObject);
begin
  LogOnFrm.Close;
end;

end.