login.pas

某疗养院动脉硬化管理系统

unit Login;

interface

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

type
  TFrmLogin = class(TForm1)
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    EdtID: TEdit;
    EdtName: TEdit;
    EdtPass: TEdit;
    BtnLogin: TBitBtn;
    BtnClose: TBitBtn;
    procedure BtnLoginClick(Sender: TObject);
    procedure EdtIDChange(Sender: TObject);
    procedure EdtIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BtnCloseClick(Sender: TObject);
    procedure EdtPassKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;

implementation

uses DataModule, PubFunction, Main;

{$R *.dfm}

procedure TFrmLogin.BtnLoginClick(Sender: TObject);
var tmp:tadoquery;
    UserType:string;
begin
  inherited;
  if Trim(EdtID.Text)='' then
  begin
    application.MessageBox('编号不能为空！','提示',mb_ok+mb_iconinformation);
    EdtID.SetFocus;
    exit;
  end;
  if Trim(EdtPass.Text)='' then
  begin
    application.MessageBox('密码不能为空！','提示',mb_ok+mb_iconinformation);
    EdtPass.SetFocus;
    exit;
  end;
  tmp:=tadoquery.Create(nil);
  tmp.Connection :=DM.ADOCn;
  try
    ShowRecord(tmp,'*','UserManage WHERE UserID='+''''+Trim(EdtID.Text)+'''','UserID');
    //ShowMessage(IntToStr(tmp.RecordCount));
    if ((tmp.RecordCount=0)or(Trim(tmp.FieldByName('UserPass').AsString)<>Trim(EdtPass.Text))) then
      begin
        application.MessageBox('用户名或密码错误！','提示',mb_ok+mb_iconinformation);
        EdtID.SetFocus;
        exit;
      end
    else
      begin
        UserGroup:=StrToInt(Trim(Tmp.FieldByName('UserGroup').AsString));
        if UserGroup=0 then
          UserType:='管理员'
        else
          UserType:='普通用户';
        UserID:=tmp.FieldByName('UserID').AsString;
        UserName:=tmp.FieldByName('UserName').AsString;
        SaveLog(UserID,UserName,'登录');
        FrmMain.StatusBar1.Panels[0].Text:='当前用户：'+UserName+' 用户身份：'+UserType;
        close;
        FrmMain.Show;
      end;
  finally
    tmp.Close;
    tmp.Free;
  end;
end;

procedure TFrmLogin.EdtIDChange(Sender: TObject);
var tmp:tadoquery;
begin
  inherited;
  tmp:=tadoquery.Create(nil);
  tmp.Connection :=DM.ADOCn;
  try
    ShowRecord(tmp,'*','UserManage WHERE UserID='+''''+EdtID.Text+'''','UserID');
    EdtName.Text:=tmp.FieldByName('UserName').AsString;
  finally
    tmp.Close;
    tmp.Free;
  end;
end;

procedure TFrmLogin.EdtIDKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if (Key=vk_Return) then
    EdtPass.SetFocus;
end;

procedure TFrmLogin.BtnCloseClick(Sender: TObject);
begin
  inherited;
  application.Terminate;
end;

procedure TFrmLogin.EdtPassKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if (Key=vk_Return) then
    BtnLogin.SetFocus;
end;

end.