zzdan.~pas

来自「产品标签管理系统：delphi+sql实现了产品标签、包装箱麦的自动生成等功能」· ~PAS 代码 · 共 88 行

unit zzdan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ActnList, DB, DBTables;

type
  Tzhi_zhou = class(TForm)
    ActionList1: TActionList;
    Action1: TAction;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N8: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N6: TMenuItem;
    N4: TMenuItem;
    N9: TMenuItem;
    N5: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N7: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N17: TMenuItem;
    N15: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    Database1: TDatabase;
    procedure N19Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    usxm:string;
    { Public declarations }
  end;

var
  zhi_zhou: Tzhi_zhou;

implementation

uses mainform, jjd, rptjj, log, About;

{$R *.dfm}

procedure Tzhi_zhou.N19Click(Sender: TObject);
begin
//main:=Tmain.Create(self);
//main.show;
end;

procedure Tzhi_zhou.N11Click(Sender: TObject);
begin
jjmain.show;
end;

procedure Tzhi_zhou.N7Click(Sender: TObject);
begin
 jjsum.show;
end;

procedure Tzhi_zhou.N16Click(Sender: TObject);
begin
  close;
end;

procedure Tzhi_zhou.N14Click(Sender: TObject);
begin
 aboutbox.show;
end;

procedure Tzhi_zhou.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=Tcloseaction(application)
end;

end.