tsglxt.~pas

使用delphi编写的图书管理系统：实现查询

unit tsglxt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, 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;
    Panel1: TPanel;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure ntscxClick(Sender: TObject);
    procedure ndzcxClick(Sender: TObject);
    procedure njccxClick(Sender: TObject);
    procedure nghtsClick(Sender: TObject);
    procedure ncjtsClick(Sender: TObject);
    procedure ndzzxClick(Sender: TObject);
    procedure ntszxClick(Sender: TObject);
    procedure ndzdjClick(Sender: TObject);
    procedure ntsdjClick(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);




  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

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

{$R *.dfm}





procedure TFormMain.ntscxClick(Sender: TObject);
begin
application.CreateForm(ttscx,tscx);
tscx.Show
end;

procedure TFormMain.ndzcxClick(Sender: TObject);
begin
application.CreateForm(tdzcx,dzcx);
dzcx.Show
end;

procedure TFormMain.njccxClick(Sender: TObject);
begin
application.CreateForm(tcjts,cjts);
cjts.Show
end;

procedure TFormMain.nghtsClick(Sender: TObject);
begin
application.CreateForm(tghts,ghts);
ghts.Show
end;

procedure TFormMain.ncjtsClick(Sender: TObject);
begin
application.CreateForm(ttscj,tscj);
tscj.Show
end;

procedure TFormMain.ndzzxClick(Sender: TObject);
begin
application.CreateForm(tdzzx,dzzx);
dzzx.show
end;

procedure TFormMain.ntszxClick(Sender: TObject);
begin
application.CreateForm(tzxts,zxts);
zxts.show
end;

procedure TFormMain.ndzdjClick(Sender: TObject);
begin
application.CreateForm(tdzdj,dzdj);
dzdj.show
end;

procedure TFormMain.ntsdjClick(Sender: TObject);
begin
application.CreateForm(ttsdj,tsdj);
tsdj.Show
end;

procedure TFormMain.N4Click(Sender: TObject);
begin
close
end;

procedure TFormMain.N2Click(Sender: TObject);
begin
application.CreateForm(tform10,form10);
form10.Show
end;

end.