unit2.~pas

大家可以看看还不错的管理系统

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, jpeg, ExtCtrls, Menus;

type


  TFmOperator = class(TForm)
    XPManifest1: TXPManifest;
    BtnStuMsgChg: TButton;
    BtnBkMsgChg: TButton;
    BtnPrtNotes: TButton;
    BtnPrtRtnMsg: TButton;
    BtnCancel: TButton;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Image1: TImage;
   // procedure BtnPswChgClick(Sender: TObject);
    procedure BtnStuMsgChgClick(Sender: TObject);
    procedure BtnBkMsgChgClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure BtnPrtRtnMsgClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure BtnPrtNotesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmOperator: TFmOperator;


implementation

uses Unit5, Unit4, Unit3, Unit7, Unit8, Unit9, Unit10, Unit11;

{$R *.dfm}

//procedure TFmOperator.BtnPswChgClick(Sender: TObject);
//begin
    //FmPswdChg.show;
//end;

procedure TFmOperator.BtnStuMsgChgClick(Sender: TObject);
begin
     FmStuMsgChg.show;
end;

procedure TFmOperator.BtnBkMsgChgClick(Sender: TObject);
begin
    FmBkMsgChg.show;
end;

procedure TFmOperator.BtnCancelClick(Sender: TObject);
begin
   if  MessageBox ( handle,'您是否确定退出图书管理系统？','系统提示',MB_YESNO+MB_ICONQUESTION)=ID_YES
   then application.Terminate ;
end;

procedure TFmOperator.Button1Click(Sender: TObject);
begin
  frmGuashi.show;
end;

procedure TFmOperator.Button4Click(Sender: TObject);
begin
  frmBR.show;
end;

procedure TFmOperator.BtnPrtRtnMsgClick(Sender: TObject);
begin
  frmCuihuan.show;
end;

procedure TFmOperator.Button3Click(Sender: TObject);
begin
  frmYuyue.show;
end;

procedure TFmOperator.BtnPrtNotesClick(Sender: TObject);
begin
  form11.show;
end;

end.