jiami.pas

好多上载非界面和非WEB源码

unit jiami;

interface

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

type
  Tjiamifrm = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
//procedure wmsyscommand(var message:tmessage);messagewm_syscommand;

    { Private declarations }
  public
    { Public declarations }
  end;

var
  jiamifrm: Tjiamifrm;

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

procedure Tjiamifrm.FormClick(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
end;

procedure Tjiamifrm.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 plvisible then mainform.Panel3.Visible:=true;
close;
end;


procedure Tjiamifrm.BitBtn2Click(Sender: TObject);
begin
mainform.viewmenu(-1);
close;
end;
//procedure Tjiamifrm.wmsyscommand(var message:tmessage);messagewm_syscommand;
end.