xtcsh_unit.pas

仿速达进销存系统,系统在单据打印上作了灵活的自定义.可供借鉴

unit xtcsh_unit;

interface

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

type
  Txtcsh_form = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    SpeedButton1: TSpeedButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure FormCreate(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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xtcsh_form: Txtcsh_form;

implementation

uses data_unit;

{$R *.dfm}

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

procedure Txtcsh_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 Txtcsh_form.FormCreate(Sender: TObject);
begin
self.Top :=74;
self.Left :=170;

end;

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

end;

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

end;

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

end;

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

end;

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

end;

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

end;

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

end;

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

end;

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

end;

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

end;

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

end;

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

end;

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

end;

end.