dataclear.pas

来自「小管理程序主要管理的小咖啡厅我是从网上下的经测试可用」· PAS 代码 · 共 146 行

unit dataclear;

interface

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

type
  TFrmdataclear = class(TForm)
    ProgressBar1: TProgressBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmdataclear: TFrmdataclear;

implementation
   uses dbmodule;
{$R *.dfm}

procedure TFrmdataclear.SpeedButton1Click(Sender: TObject);
 var
   i:integer;
begin
  if not (application.MessageBox('数据清除将会清除所有数据，确定吗？','提示',mb_okcancel)=ID_OK) then
     exit;
  progressbar1.Min:=0;
  progressbar1.Max:=15;
  progressbar1.StepBy(1);
  for i:=0 to dm.conn.DataSetCount-1 do
   if dm.conn.DataSets[i].Active then
      dm.conn.DataSets[i].Close;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_caipin');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_caipingroup');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_childclass');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_company');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_customertemp');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_custpay');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_fangtai');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_guest');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_guestyuding');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_masterclass');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_pricepass');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_tuidan');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_worklog');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('delete from Q_users');
  dm.comquery.ExecSQL;
  progressbar1.Position:=progressbar1.Position+1;
  if dm.comquery.Active then
    dm.comquery.Close;
  dm.comquery.SQL.Clear;
  dm.comquery.SQL.Add('select * from Q_users');
  dm.comquery.Open;
  dm.comquery.Append;
  dm.comquery.FieldByName('username').AsString:='admin';
  dm.comquery.FieldByName('userpass').AsString:='0';
  dm.comquery.FieldByName('Groupid').AsInteger:=1;
  dm.comquery.Post;
  dm.comquery.Close;
  progressbar1.Position:=progressbar1.Position+1;
  application.MessageBox('数据清除已完成！','提示',mb_ok);
end;

procedure TFrmdataclear.SpeedButton2Click(Sender: TObject);
begin
  self.Close;
end;

end.