unit1.pas

图书管理系统的简单制作

unit Unit1;

interface

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

type
  TFormmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    ntscx: TMenuItem;
    ndzcx: TMenuItem;
    njccx: TMenuItem;
    ncjts: TMenuItem;
    Nghts: TMenuItem;
    Ntsdj: TMenuItem;
    Ndzdj: TMenuItem;
    Ntszx: TMenuItem;
    Ndzzx: TMenuItem;
    Ntcxt: TMenuItem;
    Panel1: TPanel;
    procedure ntscxClick(Sender: TObject);
    procedure ndzcxClick(Sender: TObject);
    procedure njccxClick(Sender: TObject);
    procedure ncjtsClick(Sender: TObject);
    procedure NghtsClick(Sender: TObject);
    procedure NtsdjClick(Sender: TObject);
    procedure NdzdjClick(Sender: TObject);
    procedure NtszxClick(Sender: TObject);
    procedure NdzzxClick(Sender: TObject);
    procedure NtcxtClick(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formmain: TFormmain;

implementation
uses unit2,unit3,unit4,unit5,unit6,unit7,unit8,unit9,unit10;

{$R *.dfm}

procedure TFormmain.ntscxClick(Sender: TObject);
begin
formtscx.Show;
end;

procedure TFormmain.ndzcxClick(Sender: TObject);
begin
application.CreateForm(tformdzcx,formdzcx);
formdzcx.show;
end;

procedure TFormmain.njccxClick(Sender: TObject);
begin
application.CreateForm(tformjccx,formjccx);
formjccx.show;
end;

procedure TFormmain.ncjtsClick(Sender: TObject);
begin
application.CreateForm(tformcjts,formcjts);
formcjts.show;
end;

procedure TFormmain.NghtsClick(Sender: TObject);
begin
application.CreateForm(tformghts,formghts);
formghts.Show;
end;

procedure TFormmain.NtsdjClick(Sender: TObject);
begin
application.CreateForm(tformtsdj,formtsdj);
formtsdj.Show;
end;

procedure TFormmain.NdzdjClick(Sender: TObject);
begin
application.CreateForm(tformdzdj,formdzdj);
formdzdj.Show;
end;

procedure TFormmain.NtszxClick(Sender: TObject);
begin
application.CreateForm(tformtszx,formtszx);
formtszx.Show;
end;

procedure TFormmain.NdzzxClick(Sender: TObject);
begin
application.CreateForm(tformdzzx,formdzzx);
formdzzx.Show;
end;

procedure TFormmain.NtcxtClick(Sender: TObject);
begin
close;
end;



end.