enc.pas

图书管理系统DELPHI版本

unit enc;

interface

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

type
  Tencfrm = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  encfrm: Tencfrm;

implementation
   uses global,main;
{$R *.dfm}

procedure Tencfrm.WMSysCommand(var Message: TMessage);
begin
if Message.WParam = SC_CLOSE then bitbtn2.OnClick(self)
else inherited;
end;
procedure Tencfrm.BitBtn2Click(Sender: TObject);
begin
mainfrm.viewmenu(-1);  //返回主窗体的自由态界面
close;  //关闭加密窗体
end;

procedure Tencfrm.BitBtn1Click(Sender: TObject);
begin
if edit1.Text<>username then
begin
messagedlg('用户名不正确！',mtError,[mbYes],0);
edit1.Clear ;
edit2.Clear ;
edit1.SetFocus ;
exit;
end
else
if edit2.Text<>userpwd then
begin
messagedlg('图书证号不正确！',mtError,[mbYes],0);
edit2.Clear ;
edit2.SetFocus ;
exit;
end;
if p1visible then  mainfrm.Panel1.Visible :=true;//如果是普通用户
close;
end;

procedure Tencfrm.FormShow(Sender: TObject);
begin
edit1.Clear ;
edit2.Clear;
edit1.SetFocus ;
end;

procedure Tencfrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if messagedlg('确定要放弃吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
  mainfrm.viewmenu(-1)
else canclose:=false;
end;

end.