usjql.pas

工廠採購管理系統

unit usjql;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzTabs, RzButton, DB, ADODB;

type
  Tfrmsjql = class(TForm)
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    TabSheet3: TRzTabSheet;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox13: TCheckBox;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox20: TCheckBox;
    CheckBox21: TCheckBox;
    CheckBox22: TCheckBox;
    CheckBox23: TCheckBox;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    ADOQuery1: TADOQuery;
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmsjql: Tfrmsjql;

implementation
uses uconst,udm1,ufunction;
{$R *.dfm}

procedure Tfrmsjql.RzBitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tfrmsjql.RzBitBtn1Click(Sender: TObject);
begin
if messagebox(handle,'是否真的要清除选定的资料？','询问',mb_yesno+mb_iconquestion)=idno then
   begin
   exit;
   end;
strsql:='alter table cgjh_detail disable trigger all';
adodel(adoquery1,strsql);                                                    //关闭所有的触发器
if CheckBox1.Checked then
   begin
   strsql:='delete from unit_class';
   adodel(adoquery1,strsql);
   end;
if CheckBox2.Checked then
   begin
   strsql:='delete from cplb';
   adodel(adoquery1,strsql);
   end;
if CheckBox3.Checked then
   begin
   strsql:='delete from wllb';
   adodel(adoquery1,strsql);
   end;
if CheckBox4.Checked then
   begin
   strsql:='delete from area_class';
   adodel(adoquery1,strsql);
   end;
if CheckBox5.Checked then
   begin
   strsql:='delete from country_class';
   adodel(adoquery1,strsql);
   end;
if CheckBox6.Checked then
   begin
   strsql:='delete from payment_class';
   adodel(adoquery1,strsql);
   end;
if CheckBox7.Checked then
   begin
   strsql:='delete from cpdmk';
   adodel(adoquery1,strsql);
   end;
if CheckBox8.Checked then
   begin
   strsql:='delete from wldmk';
   adodel(adoquery1,strsql);
   end;
if CheckBox9.Checked then
   begin
   strsql:='delete from khdmk';
   adodel(adoquery1,strsql);
   end;
if CheckBox10.Checked then
   begin
   strsql:='delete from gysdmk';
   adodel(adoquery1,strsql);
   end;
if CheckBox11.Checked then
   begin
   strsql:='delete from bb_class';
   adodel(adoquery1,strsql);
   end;
if CheckBox12.Checked then
   begin
   strsql:='delete from bandan';
   adodel(adoquery1,strsql);
   end;
if CheckBox13.Checked then
   begin
   strsql:='delete from cgwl';
   adodel(adoquery1,strsql);
   strsql:='delete from cgwl_mail';
   adodel(adoquery1,strsql);
   end;
if CheckBox14.Checked then
   begin
   strsql:='delete from cgjh_main';
   adodel(adoquery1,strsql);
   strsql:='delete from cgjh_detail';
   adodel(adoquery1,strsql);
   end;
if CheckBox15.Checked then
   begin
   strsql:='delete from wlbj';
   adodel(adoquery1,strsql);
   strsql:='delete from wlbjmx';
   adodel(adoquery1,strsql);
   end;
if CheckBox16.Checked then
   begin
   strsql:='delete from cgdd_detail';
   adodel(adoquery1,strsql);
   strsql:='delete from cgdd_main';
   adodel(adoquery1,strsql);
   end;
if CheckBox17.Checked then
   begin
   strsql:='delete from thgl_main';
   adodel(adoquery1,strsql);
   strsql:='delete from thgl_detail';
   adodel(adoquery1,strsql);
   end;
if CheckBox18.Checked then
   begin
   strsql:='delete from llqk_detail';
   adodel(adoquery1,strsql);
   end;
if CheckBox19.Checked then
   begin
   strsql:='delete from htgl';
   adodel(adoquery1,strsql);
   end;
if CheckBox20.Checked then
   begin
   strsql:='delete from ddk';
   adodel(adoquery1,strsql);
   end;
if CheckBox21.Checked then
   begin
   strsql:='delete from bom';
   adodel(adoquery1,strsql);
   end;
if CheckBox22.Checked then
   begin
   strsql:='delete from cpcb';
   adodel(adoquery1,strsql);
   end;
if CheckBox23.Checked then
   begin
   strsql:='delete from wljcmx';
   adodel(adoquery1,strsql);
   end;
strsql:='alter table cgjh_detail enable trigger all';
adodel(adoquery1,strsql);                                                    //重新打开所有的触发器
messagebox(handle,'恭喜！数据清理成功!','信息',mb_ok+mb_iconinformation);
close;
end;

procedure Tfrmsjql.FormCreate(Sender: TObject);
begin
adoquery1.Connection:=dm1.ADOConnection1;
end;

end.