unit1.pas

高校图书管理系统采用Delphi结合数据库

unit Unit1;

interface

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

type
  Tfrm_main = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N17: TMenuItem;
    StatusBar1: TStatusBar;
    StatusBar2: TStatusBar;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N26: TMenuItem;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_main: Tfrm_main;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit8, Unit9, Unit11, Unit17,
  Unit18, Unit19, Unit15, Unit16, Unit10, Unit12, Unit13, Unit14, Unit7,
  Unit20;

{$R *.dfm}

procedure Tfrm_main.N2Click(Sender: TObject);
begin
frm_tjyh.show;
end;

procedure Tfrm_main.N3Click(Sender: TObject);
var
a:word;
begin
a:=application.MessageBox('确认退出？','确认！',mb_yesno);
if a=idyes then
frm_yhdr.Close ;
frm_main.Close ;
end;

procedure Tfrm_main.N5Click(Sender: TObject);
begin
frm_xxlr.show;
end;

procedure Tfrm_main.N6Click(Sender: TObject);
begin
frm_xxcx.show;
end;

procedure Tfrm_main.N7Click(Sender: TObject);
begin
frm_xxxg.show;
end;

procedure Tfrm_main.N8Click(Sender: TObject);
begin
frm_dybb.QuickRep1.Preview ;
end;

procedure Tfrm_main.N11Click(Sender: TObject);
begin
frm_zyfp.QuickRep1.Preview ;
end;

procedure Tfrm_main.N12Click(Sender: TObject);
begin
frm_bjfp.QuickRep1.Preview ;
end;

procedure Tfrm_main.N10Click(Sender: TObject);
begin
frm_dybb.QuickRep1.Preview ;
end;

procedure Tfrm_main.N15Click(Sender: TObject);
begin
frm_cjcx.show;
end;

procedure Tfrm_main.N23Click(Sender: TObject);
begin
frm_jszc.show;
end;

procedure Tfrm_main.N24Click(Sender: TObject);
begin
frm_jsgzgl.show;
end;

procedure Tfrm_main.N25Click(Sender: TObject);
begin
frm_jscx.show;
end;

procedure Tfrm_main.N20Click(Sender: TObject);
begin
frm_jfgl.show;
end;

procedure Tfrm_main.N21Click(Sender: TObject);
begin
frm_jfcx.show;
end;

procedure Tfrm_main.N14Click(Sender: TObject);
begin
frm_cjzhgl.show;
end;

procedure Tfrm_main.N16Click(Sender: TObject);
begin
frm_cjtj.show;
end;

procedure Tfrm_main.N17Click(Sender: TObject);
begin
frm_main.Close;
frm_yhdr.show;
end;

procedure Tfrm_main.N18Click(Sender: TObject);
begin
frm_pjpy.show;
end;

procedure Tfrm_main.N26Click(Sender: TObject);
begin
frm_jsfp.QuickRep1.Preview ;
end;

end.