u_jdhgzpgcx.pas

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

unit U_JDHGZPGCX;

interface

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

type
  TJDHGZPGCX = 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;
    Label3: TLabel;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JDHGZPGCX: TJDHGZPGCX;

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

procedure TJDHGZPGCX.FormShow(Sender: TObject);
begin
     RQ1.Date:=Date;
     RQ2.Date:=Date;
end;

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

     MemoSQL.Lines.Add('And 服务类型=''报障''');
     MemoSQL.Lines.Add('And 业务类型=''数字''');
     If RadioButton1.Checked Then
     Begin
          Case ComboBox1.ItemIndex Of
          1:MemoSQL.Lines.Add('And To_Char(时间,''YYYY-MM-DD'')='+QuotedStr(FormatDateTime('YYYY-MM-DD',RQ)));
          2:MemoSQL.Lines.Add('And To_Char(时间,''YYYY-MM-DD'')='+QuotedStr(FormatDateTime('YYYY-MM-DD',RQ-1)));
          3: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');
     3:
       Begin
            //MemoSQL.Lines.Add('And 派单时间 Is Not Null');
            MemoSQL.Lines.Add('And 修好日期 Is Null');
       End;
     End;

     If ComboBox4.ItemIndex>0 Then
     Begin
          If ComboBox5.ItemIndex>0 Then
             MemoSQL.Lines.Add('Order By '+ComboBox4.Text+' Desc')
          Else
              MemoSQL.Lines.Add('Order By '+ComboBox4.Text);
     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.