csh_unit.~pas

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

unit csh_unit;

interface

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

type
  Tcsh_form = class(TForm)
    GroupBox1: TGroupBox;
    SpeedButton1: TSpeedButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure RadioButton10Click(Sender: TObject);
    procedure RadioButton9Click(Sender: TObject);
    procedure RadioButton11Click(Sender: TObject);
    procedure RadioButton12Click(Sender: TObject);
    procedure RadioButton13Click(Sender: TObject);
    procedure RadioButton14Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  csh_form: Tcsh_form;

implementation

{$R *.dfm}

procedure Tcsh_form.RadioButton1Click(Sender: TObject);
begin
with database do
begin
adoq1.Connection :=adoc;
adoq1.SQL.Clear ;
adoq1.SQL.Add('delete from khzl');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton3Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from ghszl');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton2Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from ygzl');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton4Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from jldw');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton5Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from spfl');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton6Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from spzl');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton7Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from sfkfs');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton8Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from jhd');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton10Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from jhfk');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton9Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from xshd');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton11Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from xsfk');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton12Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from jhthd');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton13Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from khthd');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;
end;

procedure Tcsh_form.RadioButton14Click(Sender: TObject);
begin
with data.Database do
begin
data.Database.adoq1.Connection :=data.Database.adoc;
data.Database.adoq1.SQL.Clear ;
data.Database.adoq1.SQL.Add('delete from kcb');
if application.MessageBox('初始化会丢失全部数据,确实要初始化吗?','退出',4)=6 then
data.Database.adoq1.ExecSQL ;
end;

end;

procedure Tcsh_form.SpeedButton1Click(Sender: TObject);
begin
close;
end;

end.