u_fwsctj.pas

来自「语音坐席,支持录音及语音回访,和自动催款」· PAS 代码 · 共 70 行

unit U_FWSCTJ;

interface

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

type
  TFWSCTJ = class(TForm)
    Label1: TLabel;
    RQ1: TDateTimePicker;
    RQ2: TDateTimePicker;
    DBGridEh1: TDBGridEh;
    Query1: TQuery;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    PrintDBGridEh1: TPrintDBGridEh;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    FWLX: TComboBox;
    YWLX: TComboBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FWSCTJ: TFWSCTJ;

implementation
Uses U_CSSZ;
{$R *.dfm}

procedure TFWSCTJ.BitBtn1Click(Sender: TObject);
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 FWLX.Text<>'' Then Query1.SQL.Add('And 服务类型='+QuotedStr(FWLX.Text));
     If YWLX.Text<>'' Then Query1.SQL.Add('And 业务类型='+QuotedStr(YWLX.Text));

     Query1.SQL.Add('Group By 接待员');
     Query1.Open;
end;

procedure TFWSCTJ.BitBtn2Click(Sender: TObject);
begin
     PrintDBGridEh1.Preview;
end;

procedure TFWSCTJ.FormShow(Sender: TObject);
begin
     FWLX.Items.Assign(CSSZ.DBMemo9.Lines);
     
     RQ1.Date:=Date-7;
     RQ2.Date:=Date;
end;

end.