u_qform.~pas

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

unit U_QForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrlsEh, Spin, ComCtrls, ExtCtrls, Buttons;

type
  TQForm = class(TForm)
    Label2: TLabel;
    CSRQ1: TDateTimePicker;
    CSRQ2: TDateTimePicker;
    Label3: TLabel;
    DHHM: TEdit;
    Label4: TLabel;
    FWLX: TComboBox;
    Label5: TLabel;
    YWLX: TComboBox;
    Label6: TLabel;
    YHBM: TEdit;
    Label7: TLabel;
    YHM: TEdit;
    Label8: TLabel;
    QH: TComboBox;
    Label9: TLabel;
    DZ: TEdit;
    Label10: TLabel;
    LXR: TEdit;
    Label11: TLabel;
    LXFS: TEdit;
    Label12: TLabel;
    GZXX: TComboBox;
    Label13: TLabel;
    PGR: TComboBox;
    Label14: TLabel;
    PDRQ1: TDateTimePicker;
    PDRQ2: TDateTimePicker;
    CB_PDSJ: TCheckBox;
    Label15: TLabel;
    WXY: TComboBox;
    Label16: TLabel;
    WXJG: TComboBox;
    Label17: TLabel;
    XHRQ1: TDateTimePicker;
    XHRQ2: TDateTimePicker;
    CB_XHRQ: TCheckBox;
    Label18: TLabel;
    ZXNR: TComboBox;
    Label19: TLabel;
    TSLX: TComboBox;
    Label20: TLabel;
    TSBM: TComboBox;
    Label21: TLabel;
    YYRQ1: TDateTimePicker;
    YYRQ2: TDateTimePicker;
    CB_YYSJ: TCheckBox;
    Label22: TLabel;
    Label23: TLabel;
    JDY: TComboBox;
    Label24: TLabel;
    HFR: TComboBox;
    Label25: TLabel;
    HFRQ1: TDateTimePicker;
    HFRQ2: TDateTimePicker;
    CB_HFRQ: TCheckBox;
    Label26: TLabel;
    HFJG: TComboBox;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Image1: TImage;
    Bevel2: TBevel;
    TSNR: TEdit;
    MemoSQL: TMemo;
    CheckBox1: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure GZXXDropDown(Sender: TObject);
    procedure WXJGDropDown(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QForm: TQForm;

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

procedure TQForm.FormShow(Sender: TObject);
begin
     CSRQ1.Date:=Date;
     CSRQ2.Date:=Date;
     If QH.Items.Count<=0 Then
     Begin
          FWLX.Items.Add('全部');
          FWLX.Items.AddStrings(MCTIForm.DBComboBoxEh1.Items);

          QH.Items.Add('全部');
          QH.Items.AddStrings(MCTIForm.DBComboBoxEh3.Items);

          JDY.Items.Add('全部');
          JDY.Items.AddStrings(MCTIForm.CZY.Items);

          GZXX.Items.Add('全部');
          GZXX.Items.AddStrings(CSSZ.DBMemo2.Lines);
          GZXX.Items.AddStrings(CSSZ.DBMemo10.Lines);
          GZXX.Items.AddStrings(CSSZ.DBMemo12.Lines);

          PGR.Items.Add('全部');
          PGR.Items.AddStrings(MCTIForm.CZY.Items);

          WXY.Items.Add('全部');
          WXY.Items.AddStrings(MCTIForm.DBComboBoxEh5.Items);

          WXJG.Items.Add('全部');
          WXJG.Items.AddStrings(CSSZ.DBMemo4.Lines);
          WXJG.Items.AddStrings(CSSZ.DBMemo11.Lines);
          WXJG.Items.AddStrings(CSSZ.DBMemo13.Lines);

          //ZXNR.Items.Add('全部');
          //ZXNR.Items.AddStrings(MCTIForm.DBComboBoxEh7.Items);

          TSLX.Items.Add('全部');
          TSLX.Items.AddStrings(MCTIForm.DBComboBoxEh8.Items);

          TSBM.Items.Add('全部');
          TSBM.Items.AddStrings(MCTIForm.DBComboBoxEh9.Items);

          HFR.Items.Add('全部');
          HFR.Items.AddStrings(MCTIForm.CZY.Items);

          HFJG.Items.Add('全部');
          HFJG.Items.AddStrings(MCTIForm.DBComboBoxEh10.Items);
     End;
end;

procedure TQForm.BitBtn1Click(Sender: TObject);
begin
     MemoSQL.Lines.Clear;

     If CSRQ1.Checked Then MemoSQL.Lines.Add('And To_Char(时间,''YYYY-MM-DD'')>='+QuotedStr(FormatDateTime('YYYY-MM-DD',CSRQ1.Date)));
     If CSRQ2.Checked Then MemoSQL.Lines.Add('And To_Char(时间,''YYYY-MM-DD'')<='+QuotedStr(FormatDateTime('YYYY-MM-DD',CSRQ2.Date)));

     If CheckBox1.Checked Then MemoSQL.Lines.Add('And 用户名 Is Not Null');
     If FWLX.ItemIndex>0 Then MemoSQL.Lines.Add('And 服务类型='+QuotedStr(FWLX.Text));
     If JDY.ItemIndex>0 Then MemoSQL.Lines.Add('And 接待员='+QuotedStr(JDY.Text));
     If DHHM.Text<>'' Then MemoSQL.Lines.Add('And 电话 Like '+#39+'%'+DHHM.Text+'%'+#39);
     If YWLX.ItemIndex>0 Then MemoSQL.Lines.Add('And 业务类型='+QuotedStr(YWLX.Text));
     If YHBM.Text<>'' Then MemoSQL.Lines.Add('And 用户编码 Like '+#39+'%'+YHBM.Text+'%'+#39);
     If YHM.Text<>'' Then MemoSQL.Lines.Add('And 用户名 Like '+#39+'%'+YHM.Text+'%'+#39);
     If QH.ItemIndex>0 Then MemoSQL.Lines.Add('And 片区='+QuotedStr(QH.Text));
     If DZ.Text<>'' Then MemoSQL.Lines.Add('And 地址 Like '+#39+'%'+DZ.Text+'%'+#39);
     If LXR.Text<>'' Then MemoSQL.Lines.Add('And 联系人='+QuotedStr(LXR.Text));
     If LXFS.Text<>'' Then MemoSQL.Lines.Add('And 联系方式 Like '+#39+'%'+LXFS.Text+'%'+#39);
     If GZXX.ItemIndex>0 Then MemoSQL.Lines.Add('And 故障现象='+QuotedStr(GZXX.Text));

     If PGR.ItemIndex>0 Then MemoSQL.Lines.Add('And 派工人='+QuotedStr(PGR.Text));
     If CB_PDSJ.Checked Then
        MemoSQL.Lines.Add('And 派单时间 Is Null')
     Else
     Begin
          If PDRQ1.Checked Then MemoSQL.Lines.Add('And To_Char(派单时间,''YYYY-MM-DD'')>='+QuotedStr(FormatDateTime('YYYY-MM-DD',PDRQ1.Date)));
          If PDRQ2.Checked Then MemoSQL.Lines.Add('And To_Char(派单时间,''YYYY-MM-DD'')<='+QuotedStr(FormatDateTime('YYYY-MM-DD',PDRQ2.Date)));
     End;

     If WXY.ItemIndex>0 Then MemoSQL.Lines.Add('And 维修员 Like '+#39+'%'+WXY.Text+'%'+#39);
     If CB_YYSJ.Checked Then
        MemoSQL.Lines.Add('And 预约时间 Is Null')
     Else
     Begin
          If YYRQ1.Checked Then MemoSQL.Lines.Add('And To_Char(预约时间,''YYYY-MM-DD'')>='+QuotedStr(FormatDateTime('YYYY-MM-DD',YYRQ1.Date)));
          If YYRQ2.Checked Then MemoSQL.Lines.Add('And To_Char(预约时间,''YYYY-MM-DD'')<='+QuotedStr(FormatDateTime('YYYY-MM-DD',YYRQ2.Date)));
     End;

     If WXJG.ItemIndex>0 Then MemoSQL.Lines.Add('And 维修结果及原因='+QuotedStr(WXJG.Text));
     If CB_XHRQ.Checked Then
        MemoSQL.Lines.Add('And 修好日期 Is Null')
     Else
     Begin
          If XHRQ1.Checked Then MemoSQL.Lines.Add('And To_Char(修好日期,''YYYY-MM-DD'')>='+QuotedStr(FormatDateTime('YYYY-MM-DD',XHRQ1.Date)));
          If XHRQ2.Checked Then MemoSQL.Lines.Add('And To_Char(修好日期,''YYYY-MM-DD'')<='+QuotedStr(FormatDateTime('YYYY-MM-DD',XHRQ2.Date)));
     End;

     If ZXNR.Text<>'' Then MemoSQL.Lines.Add('And 咨询内容='+QuotedStr(ZXNR.Text));
     If TSLX.ItemIndex>0 Then MemoSQL.Lines.Add('And 投诉类型='+QuotedStr(TSLX.Text));
     If TSBM.ItemIndex>0 Then MemoSQL.Lines.Add('And 投诉部门='+QuotedStr(TSBM.Text));
     If TSNR.Text<>'' Then MemoSQL.Lines.Add('And 投诉内容 Like '+#39+'%'+TSNR.Text+'%'+#39);

     If HFR.ItemIndex>0 Then MemoSQL.Lines.Add('And 回访人员='+QuotedStr(HFR.Text));
     If CB_HFRQ.Checked Then
        MemoSQL.Lines.Add('And 回访时间 Is Null')
     Else
     Begin
          If HFRQ1.Checked Then MemoSQL.Lines.Add('And To_Char(回访时间,''YYYY-MM-DD'')>='+QuotedStr(FormatDateTime('YYYY-MM-DD',HFRQ1.Date)));
          If HFRQ2.Checked Then MemoSQL.Lines.Add('And To_Char(回访时间,''YYYY-MM-DD'')<='+QuotedStr(FormatDateTime('YYYY-MM-DD',HFRQ2.Date)));
     End;

     If HFJG.ItemIndex>0 Then MemoSQL.Lines.Add('And 回访结果='+QuotedStr(HFJG.Text));

     ModalResult:=mrOK;
end;

procedure TQForm.GZXXDropDown(Sender: TObject);
begin
     GZXX.Items.Clear;
     GZXX.Items.Add('全部');

     Case YWLX.ItemIndex Of
     1:GZXX.Items.AddStrings(CSSZ.DBMemo2.Lines);
     2:GZXX.Items.AddStrings(CSSZ.DBMemo12.Lines);
     3:GZXX.Items.AddStrings(CSSZ.DBMemo10.Lines);
     Else
         Begin
              GZXX.Items.AddStrings(CSSZ.DBMemo2.Lines);
              GZXX.Items.AddStrings(CSSZ.DBMemo12.Lines);
              GZXX.Items.AddStrings(CSSZ.DBMemo10.Lines);
         End;
     End;
end;

procedure TQForm.WXJGDropDown(Sender: TObject);
begin
     WXJG.Items.Clear;
     WXJG.Items.Add('全部');

     Case YWLX.ItemIndex Of
     1:WXJG.Items.AddStrings(CSSZ.DBMemo4.Lines);
     2:WXJG.Items.AddStrings(CSSZ.DBMemo13.Lines);
     3:WXJG.Items.AddStrings(CSSZ.DBMemo11.Lines);
     Else
         Begin
              WXJG.Items.AddStrings(CSSZ.DBMemo4.Lines);
              WXJG.Items.AddStrings(CSSZ.DBMemo13.Lines);
              WXJG.Items.AddStrings(CSSZ.DBMemo11.Lines);
         End;
     End;
end;

end.