logu.pas

delphi 程序开发的书籍管理系统 内容详尽

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;
    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.