mainform.pas

单机进销存管理程序 Delphi+Acce

unit mainform;

interface

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

type
  Tmain_Form = class(TForm)
    ToolBar1: TToolBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N2: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N17: TMenuItem;
    N3: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N33: TMenuItem;
    N6: TMenuItem;
    N20: TMenuItem;
    N7: TMenuItem;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton15: TSpeedButton;
    N4: TMenuItem;
    Image1: TImage;
    N5: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    StatusBar1: TStatusBar;
    procedure ToolButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_Form: Tmain_Form;

implementation

uses czdhform, khzl_unit, ygzlform, cszlform, spflform, jldwform, spzlform,
  sfkfsform, jhform, jh_th_unit, xs_unit, khth_unit, csh_unit, gy_unit,modi_unit,
  login_unit;

{$R *.dfm}

procedure Tmain_Form.ToolButton1Click(Sender: TObject);
begin
czdh_form:=Tczdh_form.create(application);
czdh_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.N8Click(Sender: TObject);
begin
khzl_form:=tkhzl_form.create(application);
khzl_form.show;
end;

procedure Tmain_Form.N9Click(Sender: TObject);
begin
ygzl_form:=tygzl_form.create(application);
ygzl_form.show;
end;

procedure Tmain_Form.N10Click(Sender: TObject);
begin
cszl_form:=tcszl_form.create(application);
cszl_form.show;
end;

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

procedure Tmain_Form.N13Click(Sender: TObject);
begin
jldw_form:=tjldw_form.create(application);
jldw_form.show;
end;

procedure Tmain_Form.N14Click(Sender: TObject);
begin
spzl_form:=tspzl_form.create(application);
spzl_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_form:=tjh_form.create(application);
jh_form.show;
jh_form.PageControl1.TabIndex:=1;
end;

procedure Tmain_Form.N17Click(Sender: TObject);
begin
jh_th_form:=tjh_th_form.create(application);
jh_th_form.show;
end;

procedure Tmain_Form.N21Click(Sender: TObject);
begin
xs_form:=txs_form.create(application);
xs_form.show;
end;

procedure Tmain_Form.N22Click(Sender: TObject);
begin
xs_form:=txs_form.create(application);
xs_form.show;
xs_form.PageControl1.TabIndex:=1;
end;

procedure Tmain_Form.N33Click(Sender: TObject);
begin
khth_form:=tkhth_form.create(application);
khth_form.show;
end;

procedure Tmain_Form.N20Click(Sender: TObject);
begin
csh_form:=tcsh_form.create(application);
csh_form.show;
end;

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

procedure Tmain_Form.SpeedButton1Click(Sender: TObject);
begin
khzl_form:=tkhzl_form.create(application);
khzl_form.show;
end;

procedure Tmain_Form.SpeedButton3Click(Sender: TObject);
begin
ygzl_form:=tygzl_form.create(application);
ygzl_form.show;
end;

procedure Tmain_Form.SpeedButton4Click(Sender: TObject);
begin
cszl_form:=tcszl_form.create(application);
cszl_form.show;
end;

procedure Tmain_Form.SpeedButton5Click(Sender: TObject);
begin
spfl_form:=tspfl_form.create(application);
spfl_form.show;
end;

procedure Tmain_Form.SpeedButton6Click(Sender: TObject);
begin
jldw_form:=tjldw_form.create(application);
jldw_form.show;
end;

procedure Tmain_Form.SpeedButton7Click(Sender: TObject);
begin
spzl_form:=tspzl_form.create(application);
spzl_form.show;
end;

procedure Tmain_Form.SpeedButton8Click(Sender: TObject);
begin
sfkfs_form:=tsfkfs_form.create(application);
sfkfs_form.show;
end;

procedure Tmain_Form.SpeedButton10Click(Sender: TObject);
begin
jh_form:=tjh_form.create(application);
jh_form.show;
end;

procedure Tmain_Form.SpeedButton9Click(Sender: TObject);
begin
jh_form:=tjh_form.create(application);
jh_form.show;
jh_form.PageControl1.TabIndex:=1;
end;

procedure Tmain_Form.SpeedButton11Click(Sender: TObject);
begin
jh_th_form:=tjh_th_form.create(application);
jh_th_form.show;
end;

procedure Tmain_Form.SpeedButton12Click(Sender: TObject);
begin
xs_form:=txs_form.create(application);
xs_form.show;
end;

procedure Tmain_Form.SpeedButton13Click(Sender: TObject);
begin
xs_form:=txs_form.create(application);
xs_form.show;
xs_form.PageControl1.TabIndex:=1;
end;

procedure Tmain_Form.SpeedButton14Click(Sender: TObject);
begin
khth_form:=tkhth_form.create(application);
khth_form.show;
end;

procedure Tmain_Form.SpeedButton2Click(Sender: TObject);
begin
csh_form:=tcsh_form.create(application);
csh_form.show;
end;

procedure Tmain_Form.N4Click(Sender: TObject);
begin
gy_form:=tgy_form.create(application);
gy_form.show;
end;

procedure Tmain_Form.N24Click(Sender: TObject);
begin
modi_form:=tmodi_form.Create(application);
modi_form.show; 
end;

procedure Tmain_Form.N27Click(Sender: TObject);
begin
modi_form:=tmodi_form.Create(application);
modi_form.Show;
end;

procedure Tmain_Form.N23Click(Sender: TObject);
begin
login_form:=tlogin_form.create(application);
login_form.show;
end;

end.