【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“Fgywldz.pas”一文,供大家参考学习!
unit Fgywldz;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Fbase, DB, ADODB, Grids, ExtCtrls, Buttons, ToolWin, ComCtrls,
DBGrids, StdCtrls;
type
TF_gywldz = class(TF_base)
GroupBox1: TGroupBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
Animate1: TAnimate;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
CheckBox5: TCheckBox;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_gywldz: TF_gywldz;
implementation
uses Fdm,Fygysdz;
{$R *.dfm}
procedure TF_gywldz.BitBtn1Click(Sender: TObject);
begin
inherited;
try
try
groupbox1.Visible:=False;
Animate1.Visible:=True;
Animate1.Active:=True;
F_dm.back.CommandText:='truncate table tb_warehouse_detailed';
F_dm.back.Execute;
F_dm.back.CommandText:='truncate table tb_warehouse_main';
F_dm.back.Execute;
F_dm.back.CommandText:='truncate table tb_rewarehouse_detailed';
F_dm.back.Execute;
F_dm.back.CommandText:='truncate table tb_rewarehouse_main';
F_dm.back.Execute;
F_dm.back.CommandText:='truncate table tb_sell_detailed';
F_dm.back.Execute;
F_dm.back.CommandText:='truncate table tb_sell_main';
F_dm.back.Execute;
F_dm.back.CommandText:='truncate table tb_resell_detailed';
F_dm.back.Execute;
F_dm.back.CommandText:='truncate table tb_resell_main';
F_dm.back.Execute;
F_dm.back.CommandText:='truncate table tb_gathering';
F_dm.back.Execute;
F_dm.back.CommandText:='truncate table tb_payment';
F_dm.back.Execute;
F_dm.back.CommandText:='truncate table tb_cf';
F_dm.back.Execute;
F_dm.back.CommandText:='truncate table tb_currentaccount';
F_dm.back.Execute;
F_dm.back.CommandText:='delete from tb_stock';
F_dm.back.Execute;
F_dm.back.CommandText:='delete from tb_units';
F_dm.back.Execute;
if checkbox3.Checked=True then
begin
F_dm.back.CommandText:='delete from tb_power';
F_dm.back.Execute;
F_dm.back.CommandText:='delete from tb_employ';
F_dm.back.Execute;
end;
if checkbox4.Checked=True then
begin
F_dm.back.CommandText:='delete from tb_feetype';
F_dm.back.Execute;
end;
if checkbox5.Checked=True then
begin
F_dm.back.CommandText:='delete from tb_unit';
F_dm.back.Execute;
end;
finally
Animate1.Active:=False;
Application.MessageBox('数据清理成功','提示',mb_ok);
Animate1.Visible:=False;
groupbox1.Visible:=True;
end;
except
Application.MessageBox('数据清理失败','提示',mb_ok);
end;
end;
procedure TF_gywldz.BitBtn2Click(Sender: TObject);
begin
inherited;
Close;
end;
end.