unitlogin.pas

自己设计的一个简易的考勤管理系统

unit UnitLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TfrmLogin = class(TForm)
    eID: TEdit;
    ePwd: TEdit;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation
  uses unitdatamodule,unitMain,unitKaoqin;
{$R *.dfm}

procedure TfrmLogin.Button2Click(Sender: TObject);
begin
    application.Terminate;
end;

procedure TfrmLogin.Button1Click(Sender: TObject);
var
  id,pwd : string;
  resultVaule:integer;
  pass,privilege:boolean;
begin
    id := trim(eID.Text);
    pwd := ePwd.Text;
    pass := dModule.check(id,pwd,resultVaule);
    if pass then
    begin
       with dModule.ADOQU do
       begin
            close;
            sql.Clear;
            sql.Add('select * from users where id =''' + id + '''');
            open; 
            privilege := fieldbyname('isAdmin').AsBoolean;
            if privilege then
            begin
                    Application.CreateForm(TfrmMain, frmMain);
                    frmMain.Show;  //显示主窗口
                    hide
            end
            else
            begin
                    Application.CreateForm(TfrmKaoqin, frmKaoqin);
                    frmKaoqin.Show; //显示考勤窗口
                    hide;
            end;
       end;
    end
    else
    begin
        case resultVaule of 
            1:
            begin
                messagebox(0,'该用户不存在！,请重新输入合法的用户ID','提示',0);
                eid.Clear;
                epwd.Clear;
                eid.setfocus;
            end;
            2:
            begin
                messagebox(0,'密码错误,请重新输入','提示',0);
                epwd.Clear;
            end;
        end;
    end;
end;
{var
tmpid,tmpPwd,realPwd:string;
privilege:boolean;
begin
  tmpid := trim(eID.Text);
  tmpPwd := ePwd.Text;
  if tmpid = '' then
  begin
     messagebox(0,'用户ID不能为空！','提示',0);
     eID.SetFocus;
  end
  else
  begin
    with dModule.ADOQU do
    begin
        if Locate('id',tmpid,[]) then
        begin
            realPwd := fieldbyname('password').AsString;
            privilege := fieldbyname('isAdmin').AsBoolean;
            if tmpPwd = realPwd then
            begin
                if privilege then
                begin
                    Application.CreateForm(TfrmMain, frmMain);
                    frmMain.Show;  //显示主窗口
                    hide
                end
                else
                begin
                    Application.CreateForm(TfrmKaoqin, frmKaoqin);
                    frmKaoqin.Show; //显示考勤窗口
                    hide;
                end;
            end
            else
                begin
                    messagebox(0,'密码不正确！','提示',0);
                    ePwd.Clear;
                    ePwd.SetFocus;
                end;
        end
        else
            messagebox(0,'该用户不存在！','提示',0);
    end;
  end;
end;  }

end.