fgywldz.pas

来自「哦哦趴架大肆的的哦卡可是的；啊啊迪斯科派哦；卡 罚款」· PAS 代码 · 共 105 行

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.