u_kdsqxx.~pas

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

unit U_KDSQXX;

interface

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

type
  TKDSQXX = class(TForm)
    DBGridEh1: TDBGridEh;
    DBNavigator1: TDBNavigator;
    Query1: TQuery;
    UpdateSQL1: TUpdateSQL;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    RQ1: TDateTimePicker;
    RQ2: TDateTimePicker;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label3: TLabel;
    ComboBox3: TComboBox;
    QPub: TQuery;
    Query2: TQuery;
    UpdateSQL2: TUpdateSQL;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Query1AfterPost(DataSet: TDataSet);
    procedure RQ1Change(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
  private
    { Private declarations }
    Procedure SearchData;
  public
    { Public declarations }
  end;

var
  KDSQXX: TKDSQXX;

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

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

     SearchData;
end;

//搜索符合查询条件的数据
Procedure TKDSQXX.SearchData;
Begin
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Add('Select * From '+DB_KD+'.用户信息 Where 用户状态=''预申请''');
     Query1.SQL.Add('And 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)));
     Case ComboBox1.ItemIndex Of
     1:Query1.SQL.Add('And 派工标志<>''1''');
     2:Query1.SQL.Add('And 派工标志=''1''');
     End;
     If ComboBox3.Text<>'' Then Query1.SQL.Add('And 宽带用户类型 Like '+QuotedStr(ComboBox3.Text+'%'));
     Query1.SQL.Add('Order By 用户代码');
     Query1.Open;
End;

procedure TKDSQXX.BitBtn3Click(Sender: TObject);
begin
     DBGridEh1.OnSaveGridData(Sender);
end;

procedure TKDSQXX.BitBtn1Click(Sender: TObject);
begin
     If Not Query1.Active Then Exit;
     If Query1.FieldByName('ID').IsNull Then Exit;
     If Application.MessageBox('确认要派工吗？','提示',MB_YESNO+MB_ICONQUESTION)<>IDYES Then Exit;

     //设置已派工的标志
     If Query1.State<>dsEdit Then Query1.Edit;
     Query1.FieldByName('派工标志').AsString:='1';
     Query1.Post;     
end;

procedure TKDSQXX.BitBtn4Click(Sender: TObject);
Var YHBM:String;
begin
     If Not Query1.Active Then Exit;
     If Query1.FieldByName('用户代码').IsNull Then Exit;
     
     YHBM:=Trim(Query1.FieldByName('用户代码').AsString);
     If ((YHBM='') AND (Pos('无编码宽带用户登记',CZYQX)<=0)) Then
     Begin
          Application.MessageBox('没有登记权限，不能办理该业务！','提示',MB_OK+MB_ICONSTOP);
          Exit;
     End;

     //登记宽带信息
     With TIPYHDJ.Create(Application) Do
     Begin
          YHDM:=YHBM;
          ShowModal;
          Free;
     End;
end;

procedure TKDSQXX.Query1AfterPost(DataSet: TDataSet);
begin
     Query1.ApplyUpdates;
     Query1.CommitUpdates;
end;

procedure TKDSQXX.RQ1Change(Sender: TObject);
begin
     SearchData;
end;

procedure TKDSQXX.DBGridEh1DblClick(Sender: TObject);
Var XH:Integer;
begin
     If Not Query1.Active Then Exit;
     If Query1.FieldByName('ID').AsInteger<=0 Then Exit;
     If Application.MessageBox('确认要将该记录增加到语音服务记录中吗？','提示',MB_YESNO+MB_ICONQUESTION)<>IDYES Then Exit;

     //将数据倒入呼叫服务系统中
     QPub.Close;
     QPub.SQL.Clear;
     QPub.SQL.Add('Select Max(序号) As MaxXH From 服务单');
     QPub.Open;
     XH:=QPub.FieldByName('MaxXH').AsInteger+1;

     Query2.Close;
     Query2.Open;
     Query2.Append;
     Query2.FieldByName('序号').AsInteger:=XH;
     Query2.FieldByName('服务类型').AsString:='宽带申请';
     Query2.FieldByName('业务类型').AsString:='宽带';
     Query2.FieldByName('用户编码').AsString:=Query1.FieldByName('用户代码').AsString;
     Query2.FieldByName('用户名').AsString:=Query1.FieldByName('用户姓名').AsString;
     Query2.FieldByName('地址').AsString:=Query1.FieldByName('地址').AsString;
     Query2.FieldByName('联系人').AsString:=Query1.FieldByName('用户姓名').AsString;
     Query2.FieldByName('联系方式').AsString:=Query1.FieldByName('联系方式').AsString;
     Query2.FieldByName('备注').AsString:=Query1.FieldByName('备注').AsString;
     Query2.Post;

     Try
        Query2.ApplyUpdates;
        Query2.CommitUpdates;

        //已派工标志
        If Query1.State<>dsEdit Then Query1.Edit;
        Query1.FieldByName('派工标志').AsString:='1';
        Query1.Post;     
     Except
           Application.MessageBox('记录转入失败！','提示',MB_OK+MB_ICONINFORMATION);

     End;

     Query1.Close;
     Query1.Open;
end;

end.