enter.pas

图书管理系统2.0版

unit Enter;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMenu, DB, DBTables, XPMan;

type
  TEnter_Form = class(TForm)
    Label1: TLabel;
    XM_CB: TComboBox;
    Label2: TLabel;
    MM_E: TEdit;
    Enter_Btn: TButton;
    Exit_Btn: TButton;
    XPMenu1: TXPMenu;
    XPManifest1: TXPManifest;
    procedure FormCreate(Sender: TObject);
    procedure Exit_BtnClick(Sender: TObject);
    procedure Enter_BtnClick(Sender: TObject);
    procedure MM_EKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Enter_Form: TEnter_Form;

implementation

uses
  Common_Unit, Main_Form;

{$R *.dfm}

//***********************************************************************************
procedure TEnter_Form.FormCreate(Sender: TObject);
var
  DLYB_Q:TQuery;
begin
  DataPath:=ExtractFilePath(Application.ExeName)+'Data';
  DLYB_Q:=TQuery.Create(nil);
  DLYB_Q.DatabaseName:=DataPath;
  DLYB_Q.SQL.Clear;
  DLYB_Q.SQL.Add('Select Name From DLYB');
  DLYB_Q.Open;
  if DLYB_Q.RecordCount>0 then
    While not DLYB_Q.Eof do
      begin
        XM_CB.Items.Add(DLYB_Q.FieldValues['Name']);

        DLYB_Q.Next;
      end;
  DLYB_Q.Close;
  FreeAndNil(DLYB_Q);
  XM_CB.ItemIndex:=0;
end;
//***********************************************************************************
procedure TEnter_Form.Exit_BtnClick(Sender: TObject);
begin
  close;
end;
//***********************************************************************************
procedure TEnter_Form.Enter_BtnClick(Sender: TObject); //登录系统
var
  DLYB_Q:TQuery;
  Password:string;
begin
  DLYB_Q:=TQuery.Create(nil);
  DLYB_Q.DatabaseName:=DataPath;
  DLYB_Q.SQL.Clear;
  DLYB_Q.SQL.Add('Select MM,QXID From DLYB Where Name=:FName');
  DLYB_Q.ParamByName('FName').AsString:=XM_CB.Text;
  DLYB_Q.Open;
  if DLYB_Q.RecordCount>0 then
    begin
      Password:=DLYB_Q.FieldValues['MM'];
      if MM_E.Text=Password then
        begin
          self.Hide;
          QS:=DLYB_Q.FieldValues['QXID'];
          with TMainForm.Create(nil) do
            try
              showmodal;
            finally
              free;
            end;
        end
        else begin
          MessageBox(0,'密码错误请重新输入！','密码错误',MB_OK or MB_ICONERROR);
          MM_E.Text:='';
          //MM_E.SetFocus;
        end;
    end;
  DLYB_Q.Close;
  FreeAndNil(DLYB_Q);
end;
//***********************************************************************************
procedure TEnter_Form.MM_EKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then
    begin
      Enter_Btn.SetFocus;
      Enter_Btn.Click;
    end;
end;

end.