unit1.pas

来自「是用DELPHI编写的图书管理系统」· PAS 代码 · 共 115 行

unit Unit1;

interface

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

type
  TFormmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Ntscx: TMenuItem;
    Ndzcx: TMenuItem;
    Njccx: TMenuItem;
    N5: TMenuItem;
    Ncjts: TMenuItem;
    Nghts: TMenuItem;
    N8: TMenuItem;
    Ntsdj: TMenuItem;
    Ndzdj: TMenuItem;
    Ntszx: TMenuItem;
    Ndzzx: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    Ntcxt: TMenuItem;
    Image1: TImage;
    Label1: TLabel;
    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
 Application.CreateForm(TFormtscx, Formtscx);
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.