unit4.pas

来自「图书馆管理系统设计用delphi开发的系统」· PAS 代码 · 共 125 行

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    MainMenu1: TMainMenu;
    C1: TMenuItem;
    Z1: TMenuItem;
    X1: TMenuItem;
    S1: TMenuItem;
    Q1: TMenuItem;
    B1: TMenuItem;
    R1: TMenuItem;
    H1: TMenuItem;
    A1: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    BitBtn1: TBitBtn;
    Bevel5: TBevel;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    ToolBar2: TToolBar;
    BitBtn3: TBitBtn;
    Bevel2: TBevel;
    BitBtn4: TBitBtn;
    Bevel4: TBevel;
    BitBtn5: TBitBtn;
    Bevel3: TBevel;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Image1: TImage;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Q1Click(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Z1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit5, user_find, user_borrow, Unit7, aboutUnit5, Unit3;

{$R *.dfm}

procedure TForm4.BitBtn3Click(Sender: TObject);
begin
find.show;
end;

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
if messagedlg('确实要退出系统吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
close;
end;

procedure TForm4.X1Click(Sender: TObject);
begin
 if messagedlg('确实要退出系统吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
close;
end;

procedure TForm4.BitBtn4Click(Sender: TObject);
begin
borrow.show;
end;

procedure TForm4.BitBtn5Click(Sender: TObject);
begin
lookForm7.show;
end;

procedure TForm4.Q1Click(Sender: TObject);
begin
find.show;
end;

procedure TForm4.B1Click(Sender: TObject);
begin
borrow.show;
end;

procedure TForm4.R1Click(Sender: TObject);
begin
lookForm7.show;
end;

procedure TForm4.A1Click(Sender: TObject);
begin
about.show;
end;

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
form4.Hide;
form3.show;
end;

procedure TForm4.Z1Click(Sender: TObject);
begin
form4.Hide;
form3.show;
end;

end.