recordbatchdelfrm.~pas

一个电力企业的后台管理程序

unit RecordBatchDelFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RXCtrls, ComCtrls, Buttons, StdCtrls, Grids, DBGrids, RXDBCtrl, ExtCtrls,
  Db, DBTables, RxGrdCpt;

type
  TForm_BatchDel = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    CmBox_SelectItem: TComboBox;
    GroupBox2: TGroupBox;
    DatePicker_Start: TDateTimePicker;
    DatePicker_End: TDateTimePicker;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    GroupBox3: TGroupBox;
    RxLbl_gzbxls: TRxLabel;
    RxLbl_ykzxls: TRxLabel;
    RxLbl_yhtsls: TRxLabel;
    RxLbl_yhzxls: TRxLabel;
    RxLbl_WillDel: TRxLabel;
    Qr_Del: TQuery;
    RxLbl_Hdls: TRxLabel;
    GroupBox4: TGroupBox;
    ProgressBar1: TProgressBar;
    RxGradientCaption1: TRxGradientCaption;
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DatePicker_EndChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure CmBox_SelectItemKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_BatchDel: TForm_BatchDel;

implementation
uses SystemPH;
{$R *.DFM}

procedure TForm_BatchDel.SpeedButton4Click(Sender: TObject);
begin
  Close;
  //WebIsHide(0);
end;

procedure TForm_BatchDel.FormCreate(Sender: TObject);
begin
  DatePicker_start.date:=date-120;
  DatePicker_End.date:=date-90;
  //DatePicker_start.MaxDate:=DatePicker_End.date;
  //DatePicker_End.MaxDate:=Date-90;
  GroupBox3.Caption:='历史记录情况';
  RxLbl_WillDel.Visible:=False;
end;

procedure TForm_BatchDel.DatePicker_EndChange(Sender: TObject);
begin
  DatePicker_start.MaxDate:=DatePicker_End.date;
end;

procedure TForm_BatchDel.FormShow(Sender: TObject);
begin

  RxLbl_WillDel.Visible:=False;
  RxLbl_gzbxls.Visible:=True;
  RxLbl_Ykzxls.Visible:=True;
  RxLbl_yhtsls.Visible:=True;
  RxLbl_Yhzxls.Visible:=True;
  RxLbl_Hdls.Visible:=True;

  Qr_Del.Close; Qr_Del.SQL.Clear;
  Qr_Del.SQL.Text:=' select * from ClientElecOut Where zzflsj<=:limitTime order by zzflsj';
  Qr_Del.ParamByName('limitTime').asdatetime:=DatePicker_end.date{Date-90};
  Qr_Del.Open;
  //Qr_Del.Last;
  RxLbl_gzbxls.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_start.date{Qr_Del.fieldbyname('zzflsj').asdatetime})+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_end.date{Date-90})+'故障报修有:'+inttostr(Qr_Del.RecordCount)+'条记录;';

  Qr_Del.Close; Qr_Del.SQL.Clear;
  Qr_Del.SQL.Text:=' select * from CLIENT_ELEC_APPLY Where LIMIT_DATETIME<=:limitTime order by LIMIT_DATETIME';
  Qr_Del.ParamByName('limitTime').asdatetime:=DatePicker_end.date{Date-90};
  Qr_Del.Open;
  //Qr_Del.Last;
  RxLbl_Ykzxls.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_start.date{Qr_Del.fieldbyname('SlTime').asdatetime})+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_end.date{Date-90})+'信息故障有:'+inttostr(Qr_Del.RecordCount)+'条记录;';

  Qr_Del.Close; Qr_Del.SQL.Clear;
  Qr_Del.SQL.Text:=' select * from ClientComp Where slsj<=:limitTime order by Slsj';
  Qr_Del.ParamByName('limitTime').asdatetime:=DatePicker_end.date{Date-90};
  Qr_Del.Open;
  //Qr_Del.Last;
  RxLbl_Yhtsls.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_start.date{Qr_Del.fieldbyname('Slsj').asdatetime})+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_end.date{Date-90})+'用户投诉有:'+inttostr(Qr_Del.RecordCount)+'条记录;';

  Qr_Del.Close; Qr_Del.SQL.Clear;
  Qr_Del.SQL.Text:=' select * from ClientAsk Where slsj<=:limitTime order by Slsj';
  Qr_Del.ParamByName('limitTime').asdatetime:=DatePicker_end.date{Date-90};
  Qr_Del.Open;
  //Qr_Del.Last;
  RxLbl_Yhzxls.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_start.date{Qr_Del.fieldbyname('Slsj').asdatetime})+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_end.date{Date-90})+'用户咨询有:'+inttostr(Qr_Del.RecordCount)+'条记录;';

  Qr_Del.Close; Qr_Del.SQL.Clear;
  Qr_Del.SQL.Text:=' select * from AgentChgRec Where StartTime<=:limitTime order by StartTime';
  Qr_Del.ParamByName('limitTime').asdatetime:=DatePicker_end.date{Date-90};
  Qr_Del.Open;
  //Qr_Del.Last;
  RxLbl_Hdls.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_start.date{Qr_Del.fieldbyname('StartTime').asdatetime})+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_end.date{Date-90})+'受理话单有:'+inttostr(Qr_Del.RecordCount)+'条记录;';
end;

procedure TForm_BatchDel.SpeedButton1Click(Sender: TObject);
begin
  FormShow(nil);
end;

procedure TForm_BatchDel.SpeedButton2Click(Sender: TObject);
begin
  RxLbl_WillDel.Visible:=true;
  RxLbl_gzbxls.Visible:=False;
  RxLbl_Ykzxls.Visible:=False;
  RxLbl_yhtsls.Visible:=False;
  RxLbl_Yhzxls.Visible:=False;
  RxLbl_hdls.Visible:=False;

  if Trim(CmBox_SelectItem.Text)<>'' then
  begin
    if  CmBox_SelectItem.Text='故障报修历史记录' then
    begin
      Qr_Del.Close; Qr_Del.SQL.Clear;
      Qr_Del.SQL.Text:=' select * from ClientElecOut Where zzflsj>=:StartTime and zzflsj<=:EndTime order by zzflsj';
      Qr_Del.ParamByName('StartTime').asdatetime:=DatePicker_Start.Date;
      Qr_Del.ParamByName('EndTime').asdatetime:=DatePicker_End.Date;
      Qr_Del.Open;

      RxLbl_WillDel.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.Date)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+'待删故障报修单有:'+inttostr(Qr_Del.RecordCount)+'条;';
    end;
    if  CmBox_SelectItem.Text='用电申请历史记录' then
    begin
      Qr_Del.Close; Qr_Del.SQL.Clear;
      Qr_Del.SQL.Text:=' select * from CLIENT_ELEC_APPLY Where LIMIT_DATETIME>=:StartTime and LIMIT_DATETIME<=:EndTime order by LIMIT_DATETIME';
      Qr_Del.ParamByName('StartTime').asdatetime:=DatePicker_Start.Date;
      Qr_Del.ParamByName('EndTime').asdatetime:=DatePicker_End.Date;
      Qr_Del.Open;

      RxLbl_WillDel.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.Date)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+'待删用电申请单有:'+inttostr(Qr_Del.RecordCount)+'条;';
    end;
    if  CmBox_SelectItem.Text='用户投诉历史记录' then
    begin
      Qr_Del.Close; Qr_Del.SQL.Clear;
      Qr_Del.SQL.Text:=' select * from ClientComp Where slsj>=:StartTime and slsj<=:EndTime order by slsj';
      Qr_Del.ParamByName('StartTime').asdatetime:=DatePicker_Start.date;
      Qr_Del.ParamByName('EndTime').asdatetime:=DatePicker_End.date;
      Qr_Del.Open;

      RxLbl_WillDel.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.Date)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+'待删用户投诉单有:'+inttostr(Qr_Del.RecordCount)+'条;';
    end;
    if  CmBox_SelectItem.Text='用户咨询历史记录' then
    begin
      Qr_Del.Close; Qr_Del.SQL.Clear;
      Qr_Del.SQL.Text:=' select * from ClientAsk Where slsj>=:StartTime and slsj<=:EndTime order by slsj';
      Qr_Del.ParamByName('StartTime').asdatetime:=DatePicker_Start.date;
      Qr_Del.ParamByName('EndTime').asdatetime:=DatePicker_End.date;
      Qr_Del.Open;

      RxLbl_WillDel.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.Date)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+'待删用户咨询单有:'+inttostr(Qr_Del.RecordCount)+'条;';
    end;
    if  CmBox_SelectItem.Text='受理话单历史记录' then
    begin
      Qr_Del.Close; Qr_Del.SQL.Clear;
      Qr_Del.SQL.Text:=' select * from AgentChgRec Where StartTime>=:StartTime and startTime<=:EndTime order by Starttime';
      Qr_Del.ParamByName('StartTime').asdatetime:=DatePicker_Start.Date;
      Qr_Del.ParamByName('EndTime').asdatetime:=DatePicker_End.Date;
      Qr_Del.Open;

      RxLbl_WillDel.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.Date)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+'待删受理话单有:'+inttostr(Qr_Del.RecordCount)+'条;';
    end;
  end else
  begin
   RxLbl_WillDel.Caption:='没有选定操作项目!';
   Application.MessageBox('请选择操作项目!','提示',Mb_OK);
  end;


end;

procedure TForm_BatchDel.SpeedButton3Click(Sender: TObject);
begin
  RxLbl_WillDel.Visible:=true;
  RxLbl_gzbxls.Visible:=False;
  RxLbl_Ykzxls.Visible:=False;
  RxLbl_yhtsls.Visible:=False;
  RxLbl_Yhzxls.Visible:=False;
  RxLbl_hdls.Visible:=False;



  if Trim(CmBox_SelectItem.Text)<>'' then
  begin

    progressBar1.Position:=10;
    progressBar1.Update;
    
    if  CmBox_SelectItem.Text='故障报修历史记录' then
    begin
      Qr_Del.Close; Qr_Del.SQL.Clear;
      Qr_Del.SQL.Text:=' delete  from ClientElecOut Where zzflsj>=:StartTime and zzflsj<=:EndTime ';
      Qr_Del.ParamByName('StartTime').asdatetime:=DatePicker_Start.Date;
      Qr_Del.ParamByName('EndTime').asdatetime:=DatePicker_End.Date;


      RxLbl_WillDel.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.Date)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+'故障报修单已删除;';
    end;
    if  CmBox_SelectItem.Text='用电申请历史记录' then
    begin
      Qr_Del.Close; Qr_Del.SQL.Clear;
      Qr_Del.SQL.Text:=' delete  from CLIENT_ELEC_APPLY Where LIMIT_DATETIME>=:StartTime and LIMIT_DATETIME<=:EndTime';
      Qr_Del.ParamByName('StartTime').asdatetime:=DatePicker_Start.Date;
      Qr_Del.ParamByName('EndTime').asdatetime:=DatePicker_End.Date;


      RxLbl_WillDel.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.Date)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+'用电申请单已删除;';
    end;
    if  CmBox_SelectItem.Text='用户投诉历史记录' then
    begin
      Qr_Del.Close; Qr_Del.SQL.Clear;
      Qr_Del.SQL.Text:=' delete  from ClientComp Where slsj>=:StartTime and slsj<=:EndTime';
      Qr_Del.ParamByName('StartTime').asdatetime:=DatePicker_Start.date;
      Qr_Del.ParamByName('EndTime').asdatetime:=DatePicker_End.date;

      RxLbl_WillDel.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.Date)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+'用户投诉单已删除;';
    end;
    if  CmBox_SelectItem.Text='用户咨询历史记录' then
    begin
      Qr_Del.Close; Qr_Del.SQL.Clear;
      Qr_Del.SQL.Text:=' delete  from ClientAsk Where slsj>=:StartTime and slsj<=:EndTime ';
      Qr_Del.ParamByName('StartTime').asdatetime:=DatePicker_Start.date;
      Qr_Del.ParamByName('EndTime').asdatetime:=DatePicker_End.date;


      RxLbl_WillDel.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.Date)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+'用户咨询单已删除;';
    end;
    if  CmBox_SelectItem.Text='受理话单历史记录' then
    begin
      Qr_Del.Close; Qr_Del.SQL.Clear;
      Qr_Del.SQL.Text:=' delete  from AgentChgRec Where StartTime>=:StartTime and startTime<=:EndTime ';
      Qr_Del.ParamByName('StartTime').asdatetime:=DatePicker_Start.Date;
      Qr_Del.ParamByName('EndTime').asdatetime:=DatePicker_End.Date;


      RxLbl_WillDel.Caption:=FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_Start.Date)+'至'+FormatDateTime('yyyy"年"mm"月"dd"日"',DatePicker_End.date)+'受理话单已删除;';
    end;

    progressBar1.Position:=30;
    progressBar1.Update;

    Qr_Del.ExecSQL;

    progressBar1.Position:=100;
    progressBar1.Update;

    sleep(2000);
    
    progressBar1.Position:=0;
    progressBar1.Update;
  end else
  begin
   RxLbl_WillDel.Caption:='没有选定操作项目!';
   Application.MessageBox('请选择操作项目!','提示',Mb_OK);
  end;




end;

procedure TForm_BatchDel.CmBox_SelectItemKeyPress(Sender: TObject;
  var Key: Char);
begin
  Key:=#0;
end;

procedure TForm_BatchDel.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=CaFree;
  Form_BatchDel:=nil;
end;

end.