clear.pas

这是一个实用的软件

unit clear;

interface

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

type
  Tfclear = class(Tfbaseform)
    GroupBox1: TGroupBox;
    chk1: TCheckBox;
    chk2: TCheckBox;
    chk3: TCheckBox;
    chk4: TCheckBox;
    chk5: TCheckBox;
    chk6: TCheckBox;
    chk7: TCheckBox;
    chk8: TCheckBox;
    Button1: TButton;
    GroupBox2: TGroupBox;
    xs1: TCheckBox;
    xs2: TCheckBox;
    xs3: TCheckBox;
    BitBtn1: TBitBtn;
    GroupBox3: TGroupBox;
    cg1: TCheckBox;
    cg2: TCheckBox;
    cg3: TCheckBox;
    cg4: TCheckBox;
    cg5: TCheckBox;
    BitBtn2: TBitBtn;
    GroupBox4: TGroupBox;
    other1: TCheckBox;
    other2: TCheckBox;
    BitBtn3: TBitBtn;
    clear: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fclear: Tfclear;

implementation

uses dataform;

{$R *.dfm}

procedure Tfclear.Button1Click(Sender: TObject);
begin
  inherited;
if MessageBox(0, '真的要清除数据吗？', '提示', MB_OKCANCEL +
  MB_ICONINFORMATION + MB_TOPMOST) = IDCANCEL then
begin
  Exit;
end;
if chk1.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from Bs_area');
   clear.ExecSQL;
   end;
if chk2.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from Bs_unit');
   clear.ExecSQL;
   end;
if chk4.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from  Bs_whs');
   clear.ExecSQL;
   end;
if chk6.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from Bs_utype');
   clear.ExecSQL;
   end;
if chk5.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from Bs_type');
   clear.ExecSQL;
   end;
if chk1.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from Bs_area');
   clear.ExecSQL;
   end;
if chk3.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from Bs_ftype');
   clear.ExecSQL;
   end;
if chk7.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from Bs_factory');
   clear.ExecSQL;
   end;
if chk8.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from Bs_physic');
   clear.ExecSQL;
   end;
MessageBox(0, '数据清空完毕！', '提示', MB_OK + MB_ICONINFORMATION + 
  MB_TOPMOST);
  
end;

procedure Tfclear.BitBtn1Click(Sender: TObject);
begin
  inherited;
if MessageBox(0, '真的要清除数据吗？', '提示', MB_OKCANCEL +
  MB_ICONINFORMATION + MB_TOPMOST) = IDCANCEL then
begin
  Exit;
end;
if xs1.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from xs_open where fcode like '+''''+'%'+'XS'+'%'+'''');
   clear.ExecSQL;
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from xs_opendetail ');
   clear.ExecSQL;
   end;
if xs2.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from Xs_charge where fcode like '+''''+'%'+'FY'+'%'+'''');
   clear.ExecSQL;
   end;
if xs3.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from  xs_OTC where fcode like '+''''+'%'+'OT'+'%'+'''');
   clear.ExecSQL;
   end;
MessageBox(0, '数据清空完毕！', '提示', MB_OK + MB_ICONINFORMATION + 
  MB_TOPMOST);
  
end;

procedure Tfclear.BitBtn2Click(Sender: TObject);
begin
  inherited;
if MessageBox(0, '真的要清除数据吗？', '提示', MB_OKCANCEL +
  MB_ICONINFORMATION + MB_TOPMOST) = IDCANCEL then
begin
  Exit;
end;
if cg1.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from cg_master where fcode like '+''''+'%'+'CG'+'%'+'''');
   clear.ExecSQL;
   end;
if cg2.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from cg_master where fcode like '+''''+'%'+'TH'+'%'+'''');
   clear.ExecSQL;
   end;
if cg3.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from cg_master where fcode like '+''''+'%'+'RK'+'%'+'''');
   clear.ExecSQL;
   end;
if cg4.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from cg_master where fcode like '+''''+'%'+'CK'+'%'+'''');
   clear.ExecSQL;
   end;
if cg5.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from cg_master where fcode like '+''''+'%'+'BS'+'%'+'''');
   clear.ExecSQL;
   end;
MessageBox(0, '数据清空完毕！', '提示', MB_OK + MB_ICONINFORMATION + 
  MB_TOPMOST);
end;

procedure Tfclear.BitBtn3Click(Sender: TObject);
var i:Integer;
begin
  inherited;
if MessageBox(0, '真的要清除数据吗？', '提示', MB_OKCANCEL +
  MB_ICONINFORMATION + MB_TOPMOST) = IDCANCEL then
begin
  Exit;
end;
if other1.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('delete from Hi_draw ');
   clear.ExecSQL;
   end;
if other2.Checked then
   begin
   clear.Close;
   clear.SQL.Clear;
   clear.SQL.Add('select * from KC_table  ');
   clear.Open;
   for i:=0 to clear.RecordCount-1 do
       begin
       clear.Edit;
       clear.FieldByName('Kc_qty2').Value:=0;
       clear.FieldByName('Kc_qty3').Value:=0;
       clear.FieldByName('Kc_qty4').Value:=0;
       clear.FieldByName('Kc_allqty').Value:=0;
       clear.Next;
       end;
   end;
MessageBox(0, '数据清空完毕！', '提示', MB_OK + MB_ICONINFORMATION + 
  MB_TOPMOST);
end;

end.