czdhform.pas

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

unit czdhform;

interface

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

type
  Tczdh_form = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn7: TBitBtn;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    GroupBox2: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  czdh_form: Tczdh_form;

implementation

uses jhform, jh_th_unit, xs_unit, khth_unit, fx_unit, cbhs_unit, kc_unit,
  khzl_unit, ygzlform, cszlform, spflform, jldwform, spzlform, sfkfsform;

{$R *.dfm}

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

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

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

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

procedure Tczdh_form.BitBtn6Click(Sender: TObject);
begin
fx_form:=tfx_form.create(application);
fx_form.show;
end;

procedure Tczdh_form.BitBtn5Click(Sender: TObject);
begin
cbhs_form:=tcbhs_form.create(application);
cbhs_form.show;
end;

procedure Tczdh_form.BitBtn7Click(Sender: TObject);
begin
kc_form:=tkc_form.create(application);
kc_form.show;
end;

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

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

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

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

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

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

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

end.