unit_queryindiservice.pas

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

        if trim(coJT_ServKind.text)='被动服务' then
               	lJT_ServKind:='1';
    end;
if  coJT_ServTop_Id.text<>'所有' then           	//个性服务
      begin
	if lJT_off_no_home<>'' then
     	    begin
     		try
           	    piOff_No_Home:=strtoint(lJT_Off_No_Home);
        	except
           	    piOff_No_Home:=-1;
        	end;
            end
	else
            	piOff_No_Home:=-1;
      	lJT_ServTop_Id:=Fun_GetSERV_TOPIC(coJT_ServTop_Id,lJT_CityNo,PiOff_No_Home,1);
      end;
end;

procedure Tfrm_queryindiservice.pro_JT_getsqlwhere(sender: tobject);
var
    tmpstr:string;
begin
  inherited;
if (lJT_JTYHDM<>'') then
        tmpstr:=tmpstr+' and '+'t.JTYHDM='+lJT_JTYHDM;
if lJT_cityno<>'' then
        tmpstr:=tmpstr+' and '+'t.cityno='+lJT_cityno;
if lJT_off_no_home<>'' then
        tmpstr:=tmpstr+' and '+'t.off_no_home='+lJT_off_no_home;
if lJT_GH<>'' then
        tmpstr:=tmpstr+' and '+'t.WK_NO='+''''+lJT_GH+'''';
//
//
if lJT_TypeCode<>'' then
        tmpstr:=tmpstr+' and '+'t.TypeCode='+lJT_TypeCode+' and '+'t.TypeCode_t='+lJT_TypeCode;
if lJT_ModeCode<>'' then
        tmpstr:=tmpstr+' and '+'t.ModeCode='+lJT_ModeCode+' and '+'t.ModeCode_m='+lJT_ModeCode;
if lJT_QualityCode<>'' then
        tmpstr:=tmpstr+' and '+'t.QualityCode='+lJT_QualityCode+' and '+'t.QualityCode_q='+lJT_QualityCode;
if lJT_ServKind<>'' then
        tmpstr:=tmpstr+' and '+'t.ServKind='+lJT_ServKind;

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

if cbJT_Finish.Checked then
     if rbJT_FinishYes.Checked then
         tmpstr:=tmpstr+' and '+'t.Finish='+'1'
     else
         tmpstr:=tmpstr+' and '+'t.Finish='+'0';
//
if cbJT_ServiceDate.Checked then
    begin
        tmpstr:=tmpstr+' and '+'t.BeginTime between '+'to_date('''+formatdatetime('yyyymmdd',dtpJT_ServiceDateBegin.Date)+''',''yyyymmdd'')'+' and '+'to_date('''+formatdatetime('yyyymmdd',dtpJT_ServiceDateEnd.Date)+''',''yyyymmdd'')';
        tmpstr:=tmpstr+' and '+'t.EndTime between '+'to_date('''+formatdatetime('yyyymmdd',dtpJT_ServiceDateBegin.Date)+''',''yyyymmdd'')'+' and '+'to_date('''+formatdatetime('yyyymmdd',dtpJT_ServiceDateEnd.Date)+''',''yyyymmdd'')';
    end;
JT_sqlwhere:=JT_sqlwhere+tmpstr;
end;

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

end;

procedure Tfrm_queryindiservice.cbGR_ServiceDATEClick(Sender: TObject);
begin
  inherited;
if cbGR_ServiceDate.Checked then
    begin
      dtpGR_ServiceDateBegin.Color:=clwindow;
      dtpGR_ServiceDateEnd.Color:=clwindow;
      dtpGR_ServiceDateBegin.Enabled:=true;
      dtpGR_ServiceDateEnd.Enabled:=true;
    end
else
    begin
      dtpGR_ServiceDateBegin.Color:=clActiveBorder;
      dtpGR_ServiceDateEnd.Color:=clActiveBorder;
      dtpGR_ServiceDateBegin.Enabled:=false;
      dtpGR_ServiceDateEnd.Enabled:=false;
    end;
end;

procedure Tfrm_queryindiservice.cbJT_ServiceDATEClick(Sender: TObject);
begin
  inherited;
if cbJT_ServiceDate.Checked then
    begin
      dtpJT_ServiceDateBegin.Color:=clwindow;
      dtpJT_ServiceDateEnd.Color:=clwindow;
      dtpJT_ServiceDateBegin.Enabled:=true;
      dtpJT_ServiceDateEnd.Enabled:=true;
    end
else
    begin
      dtpJT_ServiceDateBegin.Color:=clActiveBorder;
      dtpJT_ServiceDateEnd.Color:=clActiveBorder;
      dtpJT_ServiceDateBegin.Enabled:=false;
      dtpJT_ServiceDateEnd.Enabled:=false;
    end;
end;

procedure Tfrm_queryindiservice.pro_initother(sender: tobject);
begin
  inherited;
dtpGR_ServiceDATEBegin.date:=now;
dtpGR_ServiceDATEEnd.date:=now;
end;

procedure Tfrm_queryindiservice.cbJT_FinishClick(Sender: TObject);
begin
  inherited;
if cbJT_Finish.Checked then
    begin
        rbJT_FinishYes.Enabled:=true;
        rbJT_FinishNo.Enabled:=true;
    end
else
    begin
        rbJT_FinishYes.Enabled:=false;
        rbJT_FinishNo.Enabled:=false;
    end
end;

procedure Tfrm_queryindiservice.cbGR_FinishClick(Sender: TObject);
begin
  inherited;
if cbGR_Finish.Checked then
    begin
        rbGR_FinishYes.Enabled:=true;
        rbGR_FinishNo.Enabled:=true;
    end
else
    begin
        rbGR_FinishYes.Enabled:=false;
        rbGR_FinishNo.Enabled:=false;
    end
end;

procedure Tfrm_queryindiservice.coGR_off_no_homeChange(Sender: TObject);
var
    pscityno:string;
    pioff_no_home:integer;
    tmpstr:string;
begin
  inherited;
if  CoGR_CityNo.text<>'所有' then
   pscityno:=Fun_GetCity(CoGR_CityNo,'',1);
if  CoGR_OFF_NO_HOME.text<>'所有' then
   tmpstr:=Fun_GetCounty(CoGR_OFF_NO_HOME,'','',1);
if tmpstr<>'' then
    begin
        try
            pioff_no_home:=strtoint(tmpstr);
        except
            pioff_no_home:=-1;
        end;
    end
else
     pioff_no_home:=-1;
Fun_GetSERV_TOPIC(coGR_ServTop_Id,pscityno,pioff_no_home,0,'所有');
end;

procedure Tfrm_queryindiservice.coJT_off_no_homeChange(Sender: TObject);
var
    pscityno:string;
    pioff_no_home:integer;
    tmpstr:string;
begin
  inherited;
if  CoJT_CityNo.text<>'所有' then
   pscityno:=Fun_GetCity(CoJT_CityNo,'',1);
if  CoJT_OFF_NO_HOME.text<>'所有' then
   tmpstr:=Fun_GetCounty(CoJT_OFF_NO_HOME,'','',1);
if tmpstr<>'' then
    begin
        try
            pioff_no_home:=strtoint(tmpstr);
        except
            pioff_no_home:=-1;
        end;
    end
else
     pioff_no_home:=-1;
Fun_GetSERV_TOPIC(coJT_ServTop_Id,pscityno,pioff_no_home,0,'所有');


end;

procedure Tfrm_queryindiservice.FlatButton3Click(Sender: TObject);
begin
  inherited;
  if browse_normal.Active then
  if not (browse_normal.Bof and browse_normal.Eof) then
  begin
    if PageControl1.ActivePageIndex=0 then
    Fun_ExportData('大客户服务个人客户','大客户服务个人客户',dbgGR)
    else
    Fun_ExportData('大客户服务集团客户','大客户服务集团客户',dbgJT)
  end;
end;

procedure Tfrm_queryindiservice.FlatButton2Click(Sender: TObject);
begin
  inherited;
  if browse_normal.Active then
  if not (browse_normal.Bof and browse_normal.Eof) then
  begin
    if PageControl1.ActivePageIndex=0 then
    begin
      try
        PrintDbGrid(dbgGR.datasource.dataset,dbgGR,'大客户服务个人客户');
      except
        Application.MessageBox('系统在执行过程中发生错误！','提示',MB_ICONINFORMATION);
        exit;
      end;//try
    end
    else
      begin
        try
          PrintDbGrid(dbgJT.datasource.dataset,dbgJT,'大客户服务集团客户');
        except
          Application.MessageBox('系统在执行过程中发生错误！','提示',MB_ICONINFORMATION);
          exit;
        end;//try
      end;
  end;
end;

end.