unit_queryindiservice.pas

delphi开发的中国移动大客户管理系统,后台数据库为oracle

unit unit_queryindiservice;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Unit_custombrowsebase, ImgList, Menus, Db, DBTables, Grids, DBGrids,
  ComCtrls, TFlatCheckBoxUnit, TFlatSpinEditUnit, ToolWin, StdCtrls,
  TFlatEditUnit, TFlatComboBoxUnit, TFlatButtonUnit, ExtCtrls,
  TFlatRadioButtonUnit;

type
  Tfrm_queryindiservice = class(Tform_custombrowsebase)
    Label10: TLabel;
    Label12: TLabel;
    dtpGR_ServiceDATEBegin: TDateTimePicker;
    dtpGR_ServiceDATEEnd: TDateTimePicker;
    cbGR_ServiceDATE: TFlatCheckBox;
    Label15: TLabel;
    Label16: TLabel;
    dtpJT_ServiceDATEBegin: TDateTimePicker;
    dtpJT_ServiceDATEEnd: TDateTimePicker;
    cbJT_ServiceDATE: TFlatCheckBox;
    cbGR_Finish: TFlatCheckBox;
    rbGR_FinishYes: TFlatRadioButton;
    rbGR_FinishNo: TFlatRadioButton;
    Label14: TLabel;
    coJT_ModeCode: TFlatComboBox;
    Label17: TLabel;
    coJT_QualityCode: TFlatComboBox;
    cbJT_Finish: TFlatCheckBox;
    rbJT_FinishYes: TFlatRadioButton;
    rbJT_FinishNo: TFlatRadioButton;
    Label8: TLabel;
    Label9: TLabel;
    coGR_ModeCode: TFlatComboBox;
    coGR_QualityCode: TFlatComboBox;
    Label6: TLabel;
    coGR_TypeCode: TFlatComboBox;
    Label19: TLabel;
    coGR_ServKind: TFlatComboBox;
    Label20: TLabel;
    coGR_ServTop_Id: TFlatComboBox;
    Label13: TLabel;
    coJT_TypeCode: TFlatComboBox;
    Label18: TLabel;
    coJT_ServKind: TFlatComboBox;
    Label21: TLabel;
    coJT_ServTop_Id: TFlatComboBox;
    procedure cbGR_ServiceDATEClick(Sender: TObject);
    procedure cbJT_ServiceDATEClick(Sender: TObject);
    procedure cbJT_FinishClick(Sender: TObject);
    procedure cbGR_FinishClick(Sender: TObject);
    procedure coGR_off_no_homeChange(Sender: TObject);
    procedure coJT_off_no_homeChange(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
  private
      vGR_indiseq:string;
      vJT_indiseq:string;

    { Private declarations }
    protected
        lGR_TypeCode:string;
        lGR_ModeCode:string;
        lGR_QualityCode:string;
        lGR_ServKind:string;
        lGR_ServTop_Id:string;
        lJT_TypeCode:string;
        lJT_ModeCode:string;
        lJT_QualityCode:string;
        lJT_ServKind:string;
        lJT_ServTop_Id:string;
        procedure pro_initcombobox(sender:tobject);override;
        procedure pro_initother(sender:tobject);override;
        procedure pro_GR_getid(sender:tobject);override;
        procedure pro_JT_getid(sender:tobject);override;
        procedure pro_GR_OpenDataSet(sender:tobject;strsql:string);override;
        procedure pro_JT_OpenDataSet(sender:tobject;strsql:string);override;
        procedure pro_GR_getsqlwhere(sender:tobject);override;
        procedure pro_JT_getsqlwhere(sender:tobject);override;
        procedure pro_GR_checkcondition(sender:tobject);override;
        procedure pro_JT_checkcondition(sender:tobject);override;

  public
    { Public declarations }
  end;

var
  frm_queryindiservice: Tfrm_queryindiservice;

implementation
  uses dmmain,unit_public,PrintFrmForm;
  Function Fun_ExportData(pFileName:String;pReportTitle:String;pObjectSource:TObject):Boolean;stdcall;external'winfun.dll';
{$R *.DFM}

procedure Tfrm_queryindiservice.pro_GR_checkcondition(sender: tobject);
begin
  inherited;
if cbGR_ServiceDate.Checked then
    begin
        if trunc(dtpGR_ServiceDateEnd.DateTime)<trunc(dtpGR_ServiceDateBegin.DateTime) then
            begin
//                fun_messagebox('享受过服务时间段开始日期不能大于结束日期');
                GR_condition:=false;
            end;
    end;

end;

procedure Tfrm_queryindiservice.pro_GR_getid(sender: tobject);
var
    piOff_No_Home:integer;
begin
  inherited;
lGR_TypeCode:='';
lGR_ModeCode:='';
lGR_QualityCode:='';
lGR_ServKind:='';
lGR_ServTop_Id:='';
if coGR_TypeCode.text<>'所有'  then     		//服务类型
	lGR_TypeCode:=fun_getcodename(coGR_TypeCode);
if  coGR_ModeCode.Text<>'所有' then       	//服务方式
	lGR_ModeCode:=fun_getcodename(coGR_ModeCode);
if  coGR_QualityCode.Text<>'所有' then         	//服务质量
	lGR_QualityCode:=fun_getcodename(coGR_QualityCode);
if  coGR_ServKind.Text<>'所有' then          	//服务性质
    begin
        if trim(coGR_ServKind.text)='主动服务' then
    		lGR_ServKind:='0';
        if trim(coGR_ServKind.text)='被动服务' then
               	lGR_ServKind:='1';
    end;
if  coGR_ServTop_Id.text<>'所有' then           	//个性服务
      begin
	if lGR_off_no_home<>'' then
     	    begin
     		try
           	    piOff_No_Home:=strtoint(lGR_Off_No_Home);
        	except
           	    piOff_No_Home:=-1;
        	end;
            end
	else
            	piOff_No_Home:=-1;
      	lGR_ServTop_Id:=Fun_GetSERV_TOPIC(coGR_ServTop_Id,lGR_CityNo,PiOff_No_Home,1);
      end;
end;

procedure Tfrm_queryindiservice.pro_GR_getsqlwhere(sender: tobject);
var
    tmpstr:string;
begin
  inherited;
//
if edGR_SID.Text<>'' then
      tmpstr:=tmpstr+' and '+'t.SID='+''''+edGR_SID.Text+'''';
if lGR_cityno<>'' then
        tmpstr:=tmpstr+' and '+'t.cityno='+lGR_cityno;
if lGR_off_no_home<>'' then
        tmpstr:=tmpstr+' and '+'t.off_no_home='+lGR_off_no_home;
if lGR_GH<>'' then
        tmpstr:=tmpstr+' and '+'t.WK_NO='+''''+lGR_GH+'''';
//
if lGR_TypeCode<>'' then
        tmpstr:=tmpstr+' and '+'t.TypeCode='+lGR_TypeCode+' and '+'t.TypeCode_t='+lGR_TypeCode;
if lGR_ModeCode<>'' then
        tmpstr:=tmpstr+' and '+'t.ModeCode='+lGR_ModeCode+' and '+'t.ModeCode_m='+lGR_ModeCode;
if lGR_QualityCode<>'' then
        tmpstr:=tmpstr+' and '+'t.QualityCode='+lGR_QualityCode+' and '+'t.QualityCode_q='+lGR_QualityCode;
if lGR_ServKind<>'' then
        tmpstr:=tmpstr+' and '+'t.ServKind='+lGR_ServKind;

if lGR_ServTop_Id<>'' then
        tmpstr:=tmpstr+' and '+'t.ServTop_Id='+lGR_ServTop_Id+' and '+'t.ServTop_Id_s='+lGR_ServTop_Id;

if cbGR_Finish.Checked then
     if rbGR_FinishYes.Checked then
         tmpstr:=tmpstr+' and '+'t.Finish='+'1'
     else
         tmpstr:=tmpstr+' and '+'t.Finish='+'0';

if cbGR_ServiceDate.Checked then
    begin
        tmpstr:=tmpstr+' and '+'t.BeginTime between '+'to_date('''+formatdatetime('yyyymmdd',dtpGR_ServiceDateBegin.Date)+''',''yyyymmdd'')'+' and '+'to_date('''+formatdatetime('yyyymmdd',dtpGR_ServiceDateEnd.Date)+''',''yyyymmdd'')';
        tmpstr:=tmpstr+' and '+'t.EndTime between '+'to_date('''+formatdatetime('yyyymmdd',dtpGR_ServiceDateBegin.Date)+''',''yyyymmdd'')'+' and '+'to_date('''+formatdatetime('yyyymmdd',dtpGR_ServiceDateEnd.Date)+''',''yyyymmdd'')';
    end;
GR_sqlwhere:=GR_sqlwhere+tmpstr;
end;

procedure Tfrm_queryindiservice.pro_GR_OpenDataSet(sender: tobject;
  strsql: string);
begin
with browse_normal do
    begin
        close;
        sql.clear;
        sql.add('select * from T_V_GR_queryindiservice');
        sql.Add('where 1=1');
        sql.add(strsql);
        open;
    end;
end;

procedure Tfrm_queryindiservice.pro_initcombobox(sender: tobject);
begin
  inherited;

end;

procedure Tfrm_queryindiservice.pro_JT_checkcondition(sender: tobject);
begin
  inherited;
if cbJT_ServiceDate.Checked then
    begin
        if trunc(dtpJT_ServiceDateEnd.DateTime)<trunc(dtpJT_ServiceDateBegin.DateTime) then
            begin
//                fun_messagebox('享受过服务时间段开始日期不能大于结束日期');
                JT_condition:=false;
            end;
    end;
end;

procedure Tfrm_queryindiservice.pro_JT_getid(sender: tobject);
var
    piOff_No_Home:integer;
begin
  inherited;
lJT_TypeCode:='';
lJT_ModeCode:='';
lJT_QualityCode:='';
lJT_ServKind:='';
lJT_ServTop_Id:='';
if coJT_TypeCode.text<>'所有'  then     		//服务类型
	lJT_TypeCode:=fun_getcodename(coJT_TypeCode);
if  coJT_ModeCode.Text<>'所有' then       	//服务方式
	lJT_ModeCode:=fun_getcodename(coJT_ModeCode);
if  coJT_QualityCode.Text<>'所有' then         	//服务质量
	lJT_QualityCode:=fun_getcodename(coJT_QualityCode);
if  coJT_ServKind.Text<>'所有' then          	//服务性质
    begin
        if trim(coJT_ServKind.text)='主动服务' then
    		lJT_ServKind:='0';