u_rcap.pas

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

unit U_RCAP;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList, ExtCtrls, dbcgrids, DB, DBTables,
  StdCtrls, DBCtrls;

type
  TRCAP = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    DBCtrlGrid1: TDBCtrlGrid;
    QueryAM: TQuery;
    DBCtrlGrid2: TDBCtrlGrid;
    DataSource1: TDataSource;
    DBText1: TDBText;
    DBText2: TDBText;
    DBText3: TDBText;
    StatusBar1: TStatusBar;
    DBText4: TDBText;
    DateTimePicker1: TDateTimePicker;
    DBText5: TDBText;
    QueryPM: TQuery;
    DataSource2: TDataSource;
    DBText6: TDBText;
    DBText7: TDBText;
    DBText8: TDBText;
    DBText9: TDBText;
    DBText10: TDBText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Procedure ShowResult;
  public
    { Public declarations }
    ShowDate:TDate;
  end;

var
  RCAP: TRCAP;

implementation

{$R *.dfm}

procedure TRCAP.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action:=caFree;
end;

//显示指定日期数据
Procedure TRCAP.ShowResult;
Var CountAM,CountPM:Integer;
Begin
     Caption:='日程安排 '+FormatDateTime('YYYY-MM-DD',ShowDate);

     QueryAM.DisableControls;
     Try
        QueryAM.Close;
        While QueryAM.SQL.Count>2 Do QueryAM.SQL.Delete(2);
        QueryAM.SQL.Add('And To_Char(预约时间,''YYYY-MM-DD'')='+QuotedStr(FormatDateTime('YYYY-MM-DD',ShowDate)));
        QueryAM.SQL.Add('Order By 预约时间');
        QueryAM.Open;

        CountAM:=0;
        While Not QueryAM.Eof Do
        Begin
             Inc(CountAM);
             QueryAM.Next;
        End;
        QueryAM.First;
     Finally
            QueryAM.EnableControls;
     End;
     StatusBar1.Panels[0].Text:='上午合计工作量：'+IntToStr(CountAM);

     QueryPM.DisableControls;
     Try
        QueryPM.Close;
        While QueryPM.SQL.Count>2 Do QueryPM.SQL.Delete(2);
        QueryPM.SQL.Add('And To_Char(预约时间,''YYYY-MM-DD'')='+QuotedStr(FormatDateTime('YYYY-MM-DD',ShowDate)));
        QueryPM.SQL.Add('Order By 预约时间');
        QueryPM.Open;

        CountPM:=0;
        While Not QueryPM.Eof Do
        Begin
             Inc(CountPM);
             QueryPM.Next;
        End;
        QueryPM.First;
     Finally
            QueryPM.EnableControls;
     End;
     StatusBar1.Panels[1].Text:='下午合计工作量：'+IntToStr(CountPM);
End;

procedure TRCAP.FormShow(Sender: TObject);
begin
     Left:=4;
     Top:=Screen.Height-Height-24;
     DateTimePicker1.Date:=Date;

     ShowResult;
end;

procedure TRCAP.ToolButton1Click(Sender: TObject);
begin
     ShowDate:=ShowDate-1;
     ShowResult;
end;

procedure TRCAP.ToolButton2Click(Sender: TObject);
begin
     ShowDate:=Date;
     ShowResult;
end;

procedure TRCAP.ToolButton3Click(Sender: TObject);
begin
     ShowDate:=ShowDate+1;
     ShowResult;
end;

procedure TRCAP.ToolButton5Click(Sender: TObject);
begin
     Close;
end;

procedure TRCAP.DateTimePicker1Change(Sender: TObject);
begin
     ShowDate:=DateTimePicker1.Date;
     ShowResult;
end;

procedure TRCAP.FormCreate(Sender: TObject);
begin
     ShowDate:=Date;
end;

end.