dataclear.pas

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

unit DataClear;

interface

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

type
  TClearForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    SPok: TSpeedButton;
    SpExit: TSpeedButton;
    procedure SpExitClick(Sender: TObject);
    procedure SPokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ClearForm: TClearForm;

implementation

uses datamodule1;

{$R *.dfm}

procedure TClearForm.SpExitClick(Sender: TObject);
begin
 ModalResult := mrCancel;
end;

procedure TClearForm.SPokClick(Sender: TObject);
begin
  try
    DataE2.adoConStore.BeginTrans;
    with DataE2.adoCmd do
    begin
      // 开始删除值;
      if not CheckBox1.Checked then
      begin
        self.Caption:='正在删除基本资料……';
        commandtext:='';
        commandtext:='delete from AREA '+#13+
                     'delete from Bank '+#13+
                     'delete from Client where CLIENTID <> 9 '+#13+
                     'update Client set BALANCE=0 '+#13+
                     'delete from Cusbill '+#13+
                     'delete from Department '+#13+
                     'delete from Employ where EmployID <> 1 '+#13+
                     'delete from Store where STOREID <> 1 '+#13+
                     'delete from Goods '+#13+
                     'delete from ONHAND '+#13+
                     'update ONHAND set qty=0,qty1=0 '+#13+
                     'delete from goodsType '+#13+
                     'delete from goodstype1 '+#13+
                     'delete from goodstype2 '+#13+
                     'delete from IEType '+#13+
                     'delete from unitType '+#13+
                     'delete from Vendor '+#13+
                     'delete from VendorTYPE '+#13+
                     'delete from VendorTYPE '+#13+
                     'delete from EventLog '+#13+
                     'delete from VIPCards ';
        Execute;
      end;
      self.Caption:='正在删除进仓数据……';
      commandtext:='';
      commandtext:='delete from I_Build '+#13+
                   'delete from I_BuildD '+#13+
                   'delete from I_InStore '+#13+
                   'delete from I_InStoreD '+#13+
                   'delete from I_Order '+#13+
                   'delete from I_OrderD '+#13+
                   'delete from I_Pay '+#13+
                   'delete from I_PayD '+#13+
                   'delete from I_Return '+#13+
                   'delete from I_ReturnD '+#13+
                   'delete from I_Tear '+#13+
                   'delete from I_TearD ';
      Execute;
      self.Caption:='正在删除出仓数据……';
      commandtext:='';
      commandtext:='delete from O_Charge '+#13+
                   'delete from O_ChargeD '+#13+
                   'delete from O_Order '+#13+
                   'delete from O_OrderD '+#13+
                   'delete from O_Outstore '+#13+
                   'delete from O_OutstoreD '+#13+
                   'delete from O_return '+#13+
                   'delete from O_returnD ';
      Execute;
      self.Caption:='正在删除库存数据……';
      commandtext:='';
      commandtext:='delete from D_Check '+#13+
                   'delete from D_CheckD '+#13+
                   'delete from D_Expense '+#13+
                   'delete from D_ExpenseD '+#13+
                   'delete from D_InCome '+#13+
                   'delete from D_InComeD '+#13+
                   'delete from D_InOut '+#13+
                   'delete from D_InOutD '+#13+
                   'delete from D_Material '+#13+
                   'delete from D_MaterialD '+#13+
                   'delete from D_Move '+#13+
                   'delete from D_MoveD ';
      Execute;
    end;
    DataE2.InsEvent('删除数据','成功删除数据！');
    Application.MessageBox('成功删除数据！','提示',64);
    DataE2.adoConStore.CommitTrans;
  except
    DataE2.adoConStore.RollbackTrans;
    DataE2.InsEvent('删除数据','删除数据失败！');
    Application.MessageBox('删除数据失败！','错误',64);
  end;
  self.Caption:='帐套清空';
end;

end.