u_bccx.pas

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

unit U_BCCX;

interface

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

type
  TBCCX = class(TForm)
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGridEh1: TDBGridEh;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    RQ1: TDateTimePicker;
    ComboBoxCZY: TComboBox;
    Edit1: TEdit;
    RQ2: TDateTimePicker;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RQ1Change(Sender: TObject);
  private
    { Private declarations }
    Procedure QueryData;
  public
    { Public declarations }
  end;

var
  BCCX: TBCCX;

implementation
Uses U_CSSZ;
{$R *.dfm}

procedure TBCCX.BitBtn2Click(Sender: TObject);
begin
     DBGridEh1.OnSaveGridData(Sender);
end;

//根据当前条件查询数据
Procedure TBCCX.QueryData;
Begin
     Query1.Close;
     While Query1.SQL.Count>1 Do Query1.SQL.Delete(1);
     Query1.SQL.Add('Where To_Char(时间,''YYYY-MM-DD'')>='+QuotedStr(FormatDateTime('YYYY-MM-DD',RQ1.Date)));
     Query1.SQL.Add('And   To_Char(时间,''YYYY-MM-DD'')<='+QuotedStr(FormatDateTime('YYYY-MM-DD',RQ2.Date)));
     If ComboBoxCZY.Text<>'' Then Query1.SQL.Add('And 操作员='+QuotedStr(ComboBoxCZY.Text));
     If Edit1.Text<>'' Then Query1.SQL.Add('And 号码 Like '+#39+'%'+Edit1.Text+'%'+#39);
     Query1.Open;
End;

procedure TBCCX.FormShow(Sender: TObject);
begin
     RQ1.Date:=CSSZ.SysDateTime-3;
     RQ2.Date:=CSSZ.SysDateTime;

     QueryData;
end;

procedure TBCCX.RQ1Change(Sender: TObject);
begin
     QueryData;
end;

end.