u_kdyltj.pas

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

unit U_KDYLTJ;

interface

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

type
  TKDYLTJ = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    YHDM: TEdit;
    YHM: TEdit;
    DZ: TEdit;
    YWLX: TComboBox;
    AZR: TEdit;
    DJRQ1: TDateTimePicker;
    DJRQ2: TDateTimePicker;
    WGRQ1: TDateTimePicker;
    WGRQ2: TDateTimePicker;
    DBGridEh1: TDBGridEh;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KDYLTJ: TKDYLTJ;

implementation

{$R *.dfm}

procedure TKDYLTJ.FormShow(Sender: TObject);
begin
     DJRQ1.Date:=Date-30;
     DJRQ2.Date:=Date;

     WGRQ1.Date:=Date-30;
     WGRQ2.Date:=Date;
end;

procedure TKDYLTJ.BitBtn1Click(Sender: TObject);
begin
     Query1.Close;
     While Query1.SQL.Count>3 Do Query1.SQL.Delete(3);

     If YHDM.Text<>'' Then Query1.SQL.Add('And 服务单.用户编码 Like '+QuotedStr(YHDM.Text+'%'));
     If YHM.Text<>'' Then Query1.SQL.Add('And 服务单.用户名 Like '+QuotedStr(YHM.Text+'%'));
     If DZ.Text<>'' Then Query1.SQL.Add('And 服务单.地址 Like '+QuotedStr('%'+DZ.Text+'%'));
     If YWLX.Text<>'' Then Query1.SQL.Add('And CATVIP.用户信息.宽带用户类型 Like '+QuotedStr(YWLX.Text+'%'));
     If AZR.Text<>'' Then Query1.SQL.Add('And 维修员 Like '+QuotedStr('%'+AZR.Text+'%'));
     If CheckBox1.Checked Then
     Begin
          Query1.SQL.Add('And To_Char(时间,''YYYY-MM-DD'')>='+QuotedStr(FormatDateTime('YYYY-MM-DD',DJRQ1.Date)));
          Query1.SQL.Add('And To_Char(时间,''YYYY-MM-DD'')<='+QuotedStr(FormatDateTime('YYYY-MM-DD',DJRQ2.Date)));
     End;
     If CheckBox2.Checked Then
     Begin
          Query1.SQL.Add('And To_Char(修好日期,''YYYY-MM-DD'')>='+QuotedStr(FormatDateTime('YYYY-MM-DD',WGRQ1.Date)));
          Query1.SQL.Add('And To_Char(修好日期,''YYYY-MM-DD'')<='+QuotedStr(FormatDateTime('YYYY-MM-DD',WGRQ2.Date)));
     End;
     Query1.Open;
end;

end.