jfzllr.~pas

来自「报纸接运程序,对报纸分捆,打印,查询等,适用于各种报社」· ~PAS 代码 · 共 90 行

unit jfzllr;

interface

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

type
  TFmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Panel1: TPanel;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Fmain: TFmain;

implementation
uses U_input,U_fyFR,U_jfFR,U_iFdisk,U_QReport,U_sjgd,U_bmzlwh;

{$R *.dfm}

procedure TFmain.N1Click(Sender: TObject);
begin
        F_input:=TF_input.Create(self);
        F_input.ShowModal;
        F_input.Release;
end;

procedure TFmain.N5Click(Sender: TObject);
begin
        F_sjgd:=TF_sjgd.Create(self);
        F_sjgd.ShowModal;
        F_sjgd.Release;
end;

procedure TFmain.N2Click(Sender: TObject);
begin
        F_fyFR:=TF_fyFR.Create(self);
        F_fyFR.ShowModal;
        F_fyFR.Release;
end;

procedure TFmain.N3Click(Sender: TObject);
begin
        F_jfFR:=TF_jfFR.Create(self);
        F_jfFR.ShowModal;
        F_jfFR.Release;
end;

procedure TFmain.N4Click(Sender: TObject);
begin
        F_iFdisk:=TF_iFdisk.Create(self);
        F_iFdisk.ShowModal;
        F_iFdisk.Release;
end;

procedure TFmain.N6Click(Sender: TObject);
begin
    F_bmzlwh:=TF_bmzlwh.Create(self);
    F_bmzlwh.ShowModal;
    F_bmzlwh.Release;
end;

procedure TFmain.N7Click(Sender: TObject);
begin
        close;
end;

end.