enter.pas

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

unit Enter;

interface


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

type
  TDLFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    DBComboBox1: TDBComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    UserID:string;
    { Public declarations }
  end;

var
  DLFrm: TDLFrm;
  times:integer; 
implementation
   uses PersonnelDataDM,Main,PersonMain;
{$R *.dfm}


procedure TDLFrm.Button1Click(Sender: TObject);
var  s:string;
begin
    with  PersonnelData.ADOQuery1 do
      begin
      PersonnelData.ADOQuery1.Active:=false;
       close;
       sql.Clear;
       sql.Add('Select Password,EmployeeClass from  depart_info where'+' EmployeeID'+'='+DBComboBox1.Text+' and'+' Password'+'='+Edit1.text);
       open;
       PersonnelData.ADOQuery1.Active:=true;
      end;

     UserID:=DBComboBox1.Text;
     times:=times+1;
    if PersonnelData.ADOQuery1.RecordCount<1 then
       begin
       MessageDlg('密码不对',mtWarning,[mbOk],0);
       edit1.Clear;
       edit1.SetFocus;
      // exit;
       if times>3 then
         begin

         showmessage('密码不对！请联系管理员获取密码再登录！');
         DLFrm.Close;
         end;
       end
       else
        if PersonnelData.ADOQuery1.FieldValues['EmployeeClass']<>'A' then
           begin
            showmessage('密码正确！你是合法用户！你具有访问和修改个人资料的权限！');
            //将数据库的位置定位到用户资料
            PersonnelData.Personnel_infoADOTable.Locate('EmployeeID',DBComboBox1.Text,[]);
            if PersonMainFrm=nil then
            Application.CreateForm(TPersonMainFrm, PersonMainFrm); //创建窗口
            PersonMainFrm.Show;
            DLFrm.Hide;
           end
        else
           begin
              s:='密码正确！你拥有管理员的权限，可以增加用户、删除用户、';
              s:=s+'初始化用户口令、修改自己的口令、修改用户权限，你需要进行这些工作吗？';
              showmessage(s);
             if MainFrm=nil then
             Application.CreateForm(TMainFrm, MainFrm); //创建窗口
             MainFrm.Show;
             DLFrm.Hide;
           end;
   end;
   
procedure TDLFrm.Button2Click(Sender: TObject);
begin
    DLFrm.Close;
end;

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

end.