u_yhcz1.pas

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

unit U_YHCZ1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, DBTables, DB, Grids, DBGrids, DBCtrls, ExtCtrls,
  StdCtrls, Buttons, DBGridC, Qrctrls, QuickRpt, DBGridEh;

type
  TYHCZ = class(TForm)
    DataSource1: TDataSource;
    Panel4: TPanel;
    DBNavigator1: TDBNavigator;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    YHDM: TEdit;
    Label5: TLabel;
    YHM: TEdit;
    Label6: TLabel;
    DZ: TEdit;
    Label9: TLabel;
    SZDW: TEdit;
    Label10: TLabel;
    LXDH: TEdit;
    QueryYHXX: TQuery;
    QueryYHXXYONGHDM: TStringField;
    QueryYHXXXINGM: TStringField;
    QueryYHXXZHONGDS: TFloatField;
    QueryYHXXZHONGDS2: TFloatField;
    QueryYHXXSHOUFJB: TStringField;
    QueryYHXXCHUZRQ: TDateTimeField;
    QueryYHXXJIFRQ: TDateTimeField;
    QueryYHXXDANW: TStringField;
    QueryYHXXDIANH: TStringField;
    QueryYHXXYUE12: TFloatField;
    QueryYHXXBENNYJFY: TFloatField;
    QueryYHXXBENNSJFY: TFloatField;
    QueryYHXXBENNYHJE: TFloatField;
    QueryYHXXBEIZ: TStringField;
    SpeedButton6: TSpeedButton;
    QueryYHXXDIZ: TStringField;
    QueryYHXXYHZT: TStringField;
    QueryYHXXJZNY: TDateTimeField;
    CheckBox_SortYHDM: TCheckBox;
    CheckBox_SortDZDM: TCheckBox;
    DBGridEh1: TDBGridEh;
    Label14: TLabel;
    SFZH: TEdit;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton6Click(Sender: TObject);
    procedure YHDMKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YHCZ: TYHCZ;
  
implementation
Uses U_Main;
{$R *.DFM}

//查询
procedure TYHCZ.SpeedButton6Click(Sender: TObject);
begin
     Panel4.Caption:='正在查询，请稍侯...';
     Panel4.Refresh;

     QueryYHXX.Close;
     QueryYHXX.SQL.Clear;
     QueryYHXX.SQL.Add('Select * From '+DB_MN+'.YHXX Where 1>0');
     If Length(YHDM.Text)=7 Then QueryYHXX.SQL.Add(' And YongHDM='+#39+YHDM.Text+#39)
     ELse If Length(YHDM.Text)>0 Then QueryYHXX.SQL.Add(' And YongHDM Like '+#39+YHDM.Text+'%'+#39);
     If YHM.Text<>'' Then QueryYHXX.SQL.Add(' And XingM Like '+#39+'%'+YHM.Text+'%'+#39);
     If Length(DZ.Text)>0 Then QueryYHXX.SQL.Add(' And DiZ Like '+#39+DZ.Text+'%'+#39);
     If Length(SZDW.Text)>0 Then QueryYHXX.SQL.Add(' And DanW Like '+#39+'%'+SZDW.Text+'%'+#39);
     If Length(LXDH.Text)>0 Then QueryYHXX.SQL.Add(' And DianH Like '+#39+LXDH.Text+'%'+#39);
     If SFZH.Text<>'' Then QueryYHXX.SQL.Add(' And SFZH='+QuotedStr(SFZH.Text));
     If CheckBox_SortYHDM.Checked Then QueryYHXX.SQL.Add('Order by YongHDM')
     Else If CheckBox_SortDZDM.Checked Then QueryYHXX.SQL.Add('Order by YongHDZM');
     QueryYHXX.Open;
     
     Panel4.Caption:='查询完毕 记录数合计：'+IntToStr(QueryYHXX.RecordCount);
end;

procedure TYHCZ.YHDMKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     If Key=VK_Return Then
     If YHDM.Text<>'' Then
        While Length(YHDM.Text)<7 Do YHDM.Text:='0'+YHDM.Text;
end;

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

procedure TYHCZ.SpeedButton3Click(Sender: TObject);
begin
     If QueryYHXX.Active Then
     If QueryYHXXYongHDM.AsString<>'' Then
          ModalResult:=mrOK;
end;

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

end.