u_yhxxcx.pas

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

unit U_YHXXCX;

interface

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

type
  TYHXXCX = class(TForm)
    QueryJDH: TQuery;
    DataSource1: TDataSource;
    DBGridEh1: TDBGridEh;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    DBNavigator1: TDBNavigator;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    Label10: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    YHBH1: TEdit;
    YHM: TEdit;
    DZ: TEdit;
    Label9: TLabel;
    LXDH: TEdit;
    KHSJ1: TDateTimePicker;
    KHSJ2: TDateTimePicker;
    JDHH: TEdit;
    ICKH: TEdit;
    YHBH2: TEdit;
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YHXXCX: TYHXXCX;

implementation
{$R *.dfm}

procedure TYHXXCX.SpeedButton5Click(Sender: TObject);
begin
     Close;
end;

procedure TYHXXCX.SpeedButton3Click(Sender: TObject);
begin
     If QueryJDH.Active Then
     If QueryJDH.FieldByName('用户编号').AsString<>'' Then
        ModalResult:=mrOK;
end;

procedure TYHXXCX.SpeedButton6Click(Sender: TObject);
begin
     QueryJDH.Close;
     While QueryJDH.SQL.Count>2 Do QueryJDH.SQL.Delete(2);

     If YHBH1.Text<>'' Then QueryJDH.SQL.Add(' And 用户信息.用户编号 >='+#39+YHBH1.Text+#39);
     If YHBH2.Text<>'' Then QueryJDH.SQL.Add(' And 用户信息.用户编号 <='+#39+YHBH2.Text+#39);
     If YHM.Text<>'' Then QueryJDH.SQL.Add(' And 用户姓名 Like '+#39+YHM.Text+'%'+#39);
     If DZ.Text<>'' Then QueryJDH.SQL.Add(' And 安装地址 Like '+#39+DZ.Text+'%'+#39);
     If LXDH.Text<>'' Then QueryJDH.SQL.Add(' And 联系电话='+QuotedStr(LXDH.Text));
     If KHSJ1.Checked Then QueryJDH.SQL.Add(' And To_Char(开户时间,''YYYY-MM-DD'')>='+QuotedStr(FormatDateTime('YYYY-MM-DD',KHSJ1.Date)));
     If KHSJ2.Checked Then QueryJDH.SQL.Add(' And To_Char(开户时间,''YYYY-MM-DD'')<='+QuotedStr(FormatDateTime('YYYY-MM-DD',KHSJ2.Date)));
     If JDHH.Text<>'' Then QueryJDH.SQL.Add(' And 机顶盒号='+QuotedStr(JDHH.Text));
     If ICKH.Text<>'' Then QueryJDH.SQL.Add(' And IC卡号='+QuotedStr(ICKH.Text));

     QueryJDH.Open;
end;

procedure TYHXXCX.FormShow(Sender: TObject);
begin
     YHM.SetFocus;
end;

end.