u_kdazpgcx.pas

语音坐席,支持录音及语音回访,和自动催款

unit U_KDAZPGCX;

interface

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

type
  TKDAZPGCX = class(TForm)
    Label1: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ComboBox1: TComboBox;
    RQ1: TDateTimePicker;
    RQ2: TDateTimePicker;
    ComboBox2: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    ColListBox: TListBox;
    MemoSQL: TMemo;
    Label2: TLabel;
    ComboBox3: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KDAZPGCX: TKDAZPGCX;

implementation
Uses U_Main, U_CSSZ;
{$R *.dfm}

procedure TKDAZPGCX.FormShow(Sender: TObject);
begin
     RQ1.Date:=CSSZ.SysDateTime;
     RQ2.Date:=CSSZ.SysDateTime;
end;

procedure TKDAZPGCX.BitBtn1Click(Sender: TObject);
Var ACol:TColumnEh;
    I:Integer;
    RQ:TDateTime;
begin
     //生成查询条件
     RQ:=CSSZ.SysDateTime;
     MemoSQL.Lines.Clear;

     MemoSQL.Lines.Add('And 服务类型=''宽带申请''');
     If RadioButton1.Checked Then
     Begin
          Case ComboBox1.ItemIndex Of
          0:MemoSQL.Lines.Add('And To_Char(预约时间,''YYYY-MM-DD'')='+QuotedStr(FormatDateTime('YYYY-MM-DD',RQ)));
          1:MemoSQL.Lines.Add('And To_Char(预约时间,''YYYY-MM-DD'')='+QuotedStr(FormatDateTime('YYYY-MM-DD',RQ+1)));
          2:MemoSQL.Lines.Add('And To_Char(预约时间,''YYYY-MM-DD'')='+QuotedStr(FormatDateTime('YYYY-MM-DD',RQ+2)));
          End;
     End
     Else
     Begin
          MemoSQL.Lines.Add('And To_Char(预约时间,''YYYY-MM-DD'')>='+QuotedStr(FormatDateTime('YYYY-MM-DD',RQ1.Date)));
          MemoSQL.Lines.Add('And To_Char(预约时间,''YYYY-MM-DD'')<='+QuotedStr(FormatDateTime('YYYY-MM-DD',RQ2.Date)));
     End;

     Case ComboBox2.ItemIndex Of
     1:MemoSQL.Lines.Add('And 派单时间 Is Null');
     2:MemoSQL.Lines.Add('And 派单时间 Is Not Null');
     End;

     Case ComboBox3.ItemIndex Of
     1:MemoSQL.Lines.Add('And To_Char(预约时间,''HH24'')<''12''');
     2:MemoSQL.Lines.Add('And To_Char(预约时间,''HH24'')>=''12''');
     End;

     MCTIForm.DBGridEh1.Columns.Clear;
     MCTIForm.DBGridEh1.AutoFitColWidths:=False;

     For I:=0 To ColListBox.Items.Count-1 Do
     Begin
          ACol:=MCTIForm.DBGridEh1.Columns.Add;
          ACol.FieldName:=ColListBox.Items[I];
     End;
     MCTIForm.DBGridEh1.AutoFitColWidths:=True;

     If Not MCTIForm.ToolWindow971.Visible Then MCTIForm.ToolWindow971.Visible:=True;
end;

end.