logu.pas

一个图书管理系统

////////////////////////////////
// 单元名：LogU              //
// 窗体名：LogF              //
// 单元功能：登陆窗体           //
// 作者：刘波                 //
////////////////////////////////
unit LogU;

interface

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

type
  TLogF = class(TForm)
    StaticText1: TStaticText;
    Edit1: TEdit;
    StaticText2: TStaticText;
    Edit2: TEdit;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    Image2: TImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }


  end;

var
  LogF: TLogF;

implementation


uses DataModule,MainU,ShareU;
{$R *.dfm}

/////////////////////////////////////////////////////////////
procedure TLogF.WMNCPaint(var Msg: TWMNCPaint);
begin
    inherited;
    draw(LogF);
end;
/////////////////////////////////////////////////////////////
procedure TLogF.BitBtn1Click(Sender: TObject);
begin
    if edit1.Text='' then
    begin
        application.MessageBox('输入用户名！','提示！');
        edit1.SetFocus;
        edit1.SelectAll;
        exit;
    end
    else
        if not dm.CheckUserName(trim(edit1.Text)) then
         begin
            application.MessageBox('无此用户名！','提示！');
            edit1.SetFocus;
            edit1.SelectAll;
            exit;
         end;
    if edit2.Text='' then
    begin
         application.MessageBox('输入密码！','提示！');
         edit2.SetFocus;
         edit2.SelectAll;
         exit;
    end
    else
        if not dm.CheckUserPassword(trim(edit1.Text),trim(edit2.Text)) then
        begin
           application.MessageBox('密码错误！','提示！');
           edit2.SetFocus;
           edit2.SelectAll;
           exit;
        end;
    //检查成功，准备登陆
    if curuser<>'' then             //不是首次登陆
       dm.SaveUserLongin(curuser,false);     //登陆日志退出

    CurUser:=trim(edit1.Text); //当前操作用户
    MainF.Caption:=application.Title+'--当前用户('+CurUser+')';
    DisabledMenu;

    dm.GetUserPurviewMenu(CurUser);

    if CurState=true then
    begin
        MainF.ToolBar1.Menu:=nil;
        MainF.ToolBar1.Menu:=MainF.MainMenu1;
    end;
    LogF.Close;
    CurUserLonginTime:=now;            //保存当前时间 ，登陆日志使用
    dm.SaveUserLongin(curuser,true);   //登陆日志登陆
    CloseAllForm;
end;
/////////////////////////////////////////////////////////////
procedure TLogF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     LogF:=nil;
     action:=cafree;
end;
/////////////////////////////////////////////////////////////
procedure TLogF.BitBtn2Click(Sender: TObject);
begin
    CurUser:='';
    close;
end;
/////////////////////////////////////////////////////////////
procedure TLogF.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (key=vk_down) or (key=13) then
    begin
      selectnext(activecontrol,true,true);
      if activecontrol is tedit then
      begin
        (activecontrol as tedit).SelectAll;
      end;
    end
    else if (key=vk_up) then
    begin
      selectnext(activecontrol,false,true);
      if activecontrol is tedit then
      begin
        (activecontrol as tedit).SelectAll;
      end;
    end
    else
      key:=0;
end;
/////////////////////////////////////////////////////////////
procedure TLogF.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then BitBtn1Click(sender);
end;

procedure TLogF.FormCreate(Sender: TObject);
begin
caption:='图书管理系统--登陆';
Icon:=mainf.Icon;
end;

end.