main_unit.pas

044一通进销存 后缀名是.dfm

unit main_unit;

interface

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

type
  Tmain_form = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    N17: TMenuItem;
    N33: TMenuItem;
    N20: TMenuItem;
    N23: TMenuItem;
    N32: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N24: TMenuItem;
    ImageList1: TImageList;
    ToolButton9: TToolButton;
    N25: TMenuItem;
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N14Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_form: Tmain_form;

implementation

uses khzl_unit, gyshzl_unit, spfl_unit, spzl_unit, dw_unit, sfkfs_unit,
  jh_unit, jhth_unit, xsh_unit, khth_unit, yg_unit, jh_find_unit, dhjm_unit,
  jh_th_unit, xtcsh_unit, UserSet_Unit, jbzl_print_unit, kc_unit, fx_unit,
  xshd_find_unit;

{$R *.dfm}

procedure Tmain_form.N7Click(Sender: TObject);
begin
if application.MessageBox('确实要退出吗?','退出',4)=6 then
application.Terminate;
end;

procedure Tmain_form.N8Click(Sender: TObject);
begin
khzl_form:=Tkhzl_form.Create(application);
khzl_form.Show;
end;

procedure Tmain_form.N10Click(Sender: TObject);
begin
gyshzl_form:=Tgyshzl_form.Create(application);
gyshzl_form.Show;
end;

procedure Tmain_form.N12Click(Sender: TObject);
begin
spfl_form:=Tspfl_form.create(application);
spfl_form.show;
end;

procedure Tmain_form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if application.MessageBox('确实要退出吗?','退出',4)=6 then
application.Terminate;

end;

procedure Tmain_form.N14Click(Sender: TObject);
begin
spzl_form:=Tspzl_form.create(application);
spzl_form.show;
end;

procedure Tmain_form.N13Click(Sender: TObject);
begin
dw_form:=Tdw_form.create(application);
dw_form.show;
end;

procedure Tmain_form.N16Click(Sender: TObject);
begin
sfkfs_form:=Tsfkfs_form.create(application);
sfkfs_form.show;

end;

procedure Tmain_form.N18Click(Sender: TObject);
begin
jh_form:=Tjh_form.create(application);
jh_form.show;

end;

procedure Tmain_form.N19Click(Sender: TObject);
begin
jh_th_form:=Tjh_th_form.Create(application);
jh_th_form.Show ;

end;

procedure Tmain_form.N21Click(Sender: TObject);
begin
xsh_form:=Txsh_form.create(application);
xsh_form.show;

end;

procedure Tmain_form.N22Click(Sender: TObject);
begin
khth_form:=Tkhth_form.Create(application);
khth_form.Show ;

end;

procedure Tmain_form.N9Click(Sender: TObject);
begin
yg_form:=Tyg_form.create(application);
yg_form.show;
end;

procedure Tmain_form.N17Click(Sender: TObject);
begin
jh_find_form:=Tjh_find_form.create(application);
jh_find_form.show;
end;

procedure Tmain_form.ToolButton8Click(Sender: TObject);
begin
if application.MessageBox('确实要退出吗?','退出',4)=6 then
application.Terminate;

end;

procedure Tmain_form.ToolButton9Click(Sender: TObject);
begin
dhjm_form:=Tdhjm_form.create(application);
dhjm_form.show;
end;

procedure Tmain_form.N20Click(Sender: TObject);
begin
xtcsh_form:=Txtcsh_form.create(application);
xtcsh_form.show;
end;

procedure Tmain_form.N25Click(Sender: TObject);
begin
userset_form:=Tuserset_form.create(application);
userset_form.show;
end;

procedure Tmain_form.N23Click(Sender: TObject);
begin
jbzl_print_form:=Tjbzl_print_form.create(application);
jbzl_print_form.show;
end;

procedure Tmain_form.N24Click(Sender: TObject);
begin
kc_form:=Tkc_form.create(application);
kc_form.show;

end;

procedure Tmain_form.ToolButton6Click(Sender: TObject);
begin
fx_form:=Tfx_form.create(application);
fx_form.show;

end;

procedure Tmain_form.N33Click(Sender: TObject);
begin
xshd_find_form:=Txshd_find_form.create(application);
xshd_find_form.show;
end;

end.