dhjm_unit.pas

这是我照着书做的一个销售管理系统,内容不难,很简单,但是对于我这个菜鸟来说已经很不错了

unit dhjm_unit;

interface

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

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

var
  dhjm_form: Tdhjm_form;

implementation

uses jh_unit, xsh_unit, jhth_unit, khth_unit, kc_unit, cbhc_unit, fx_unit,
  khzl_unit, gyshzl_unit, spfl_unit, spzl_unit, dw_unit, sfkfs_unit,
  yg_unit, jhth1_unit, jh_th_unit;

{$R *.dfm}

procedure Tdhjm_form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tdhjm_form.FormCreate(Sender: TObject);
begin
self.Left:=96;
end;

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

procedure Tdhjm_form.BitBtn3Click(Sender: TObject);
begin
xsh_form:=Txsh_form.create(application);
xsh_form.show;
end;

procedure Tdhjm_form.BitBtn2Click(Sender: TObject);
begin
jh_th_form:=Tjh_th_form.Create(application);
jh_th_form.Show ;
end;

procedure Tdhjm_form.BitBtn4Click(Sender: TObject);
begin
khth_form:=Tkhth_form.Create(application);
khth_form.Show ;
end;

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

procedure Tdhjm_form.BitBtn5Click(Sender: TObject);
begin
cbhc_form:=Tcbhc_form.Create(application);
cbhc_form.Show; 
end;

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

procedure Tdhjm_form.SpeedButton1Click(Sender: TObject);
begin
khzl_form:=Tkhzl_form.Create(application);
khzl_form.Show;

end;

procedure Tdhjm_form.SpeedButton3Click(Sender: TObject);
begin
gyshzl_form:=Tgyshzl_form.Create(application);
gyshzl_form.Show;

end;

procedure Tdhjm_form.SpeedButton4Click(Sender: TObject);
begin
spfl_form:=Tspfl_form.create(application);
spfl_form.show;

end;

procedure Tdhjm_form.SpeedButton6Click(Sender: TObject);
begin
spzl_form:=Tspzl_form.create(application);
spzl_form.show;

end;

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

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

procedure Tdhjm_form.SpeedButton2Click(Sender: TObject);
begin
yg_form:=Tyg_form.create(application);
yg_form.show;

end;

end.