unit_custombrowsebase.pas

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

end;

procedure Tform_custombrowsebase.coJT_HYDMChange(Sender: TObject);
begin
end;

{procedure Tform_custombrowsebase.pro_JT_getNameSQLWhere(sender: tobject);
var
    tmpstr:string;
begin
JT_sqlwhere:='';

//if coJT_cityno.Text<>'所有' then      //地市
if lJT_cityno<>'' then
        tmpstr:=tmpstr+' and '+'t.cityno_G='+lJT_cityno+' and '+'t.cityno_city_G='+lJT_cityno;
//if coJT_off_no_home.Text<>'所有' then  //局向
if lJT_off_no_home<>'' then
        tmpstr:=tmpstr+' and '+'t.JX_G='+lJT_off_no_home+' and '+'t.off_no_home_county_G='+lJT_off_no_home;
//if coJT_GH.Text<>'所有' then      //
if lJT_GH<>'' then
        tmpstr:=tmpstr+' and '+'t.GH_G='+''''+lJT_GH+'''';
//
//if coJT_HYDM.Text<>'所有' then          //行业
if lJT_HYDM<>'' then
        tmpstr:=tmpstr+' and '+'t.HYDM_G='+lJT_HYDM+' and '+'t.hydm_Calling_G='+lJT_HYDM;
//if coJT_JTLB.Text<>'所有' then            //集团类型
if lJT_JTLB<>'' then
        tmpstr:=tmpstr+' and '+'t.JTLB_G='+''''+lJT_JTLB+''''+' and '+'t.JTLB_Type_G='+''''+lJT_JTLB+'''';
//if coJT_GroupFlag.Text<>'所有' then      //客户属性
if lJT_GroupFlag<>'' then
        tmpstr:=tmpstr+' and '+'t.GROUPFLAG='+lJT_GroupFlag;


        //
if cbJT_BE_G_Date.Checked then
    begin
        tmpstr:=tmpstr+' and '+'t.BE_G_DATE between '+'to_date('''+formatdatetime('yyyymmdd',dtpJT_BE_G_DateBegin.Date)+''',''yyyymmdd'')'+' and '+'to_date('''+formatdatetime('yyyymmdd',dtpJT_BE_G_DateEnd.Date)+''',''yyyymmdd'')';
    end;
JTName_sqlwhere:=tmpstr;

end; }

procedure Tform_custombrowsebase.edGR_SIDKeyPress(Sender: TObject;
  var Key: Char);
begin
//#22 ctrl+v #3 ctrl+c #8 退格
  if key=#13 then
    FlatButton1.onclick(self);
if not (key in ['0'..'9',#22,#3,#13,#8]) then
   key:=#0;

end;

procedure Tform_custombrowsebase.edJT_DMORMCKeyPress(Sender: TObject;
  var Key: Char);
begin
{if key=#13 then
    begin
	JT_STRSQL:='select t.JTYHMC from t_V_GROUPINFO_Browse t WHERE 1=1';
	pro_JT_getid(self);
	pro_JT_getNameSQLWhere(sender);
	JT_STRSQL:=JT_STRSQL+JTName_sqlwhere;
	PRO_jt_CREATEJTMC(SELF,JT_STRSQL);

    end;}
end;

procedure Tform_custombrowsebase.pmi_CustInfoClick(Sender: TObject);
var
    tmpstr:string;
begin
with browse_normal do
    begin
       if active then
           begin
	        tmpstr:=trim(fieldbyname('sid_C').asstring);
        	if tmpstr<>'' then
		    GP_ToCallCustInfo(tmpstr);
            end;
    end;
end;

procedure Tform_custombrowsebase.N1Click(Sender: TObject);
var
    tmpstr:string;
begin
with browse_normal do
    begin
       if active then
           begin
	        tmpstr:=trim(fieldbyname('jtyhdm_G').asstring);
        	if tmpstr<>'' then
		    GP_ToCallGroupInfo(tmpstr);
           end;
    end;
end;

procedure Tform_custombrowsebase.btnGR_SelectOrderClick(Sender: TObject);
begin
if btnGR_SelectOrder.Tag=1 then
    begin
        PanelGR_SelectOrder.Visible:=false;
        btnGR_SelectOrder.down:=false;
        btnGR_SelectOrder.Tag:=2;
    end
else
if btnGR_SelectOrder.Tag=2 then
    begin
        PanelGR_SelectOrder.Visible:=true;
        PanelGR_SelectOrder.top:=PanelGRBTN_SelectOrder.top+PanelGRBTN_SelectOrder.Height;
        btnGR_SelectOrder.down:=true;
        btnGR_SelectOrder.Tag:=1;
    end;
ScrollBox_GR.VertScrollBar.Position:=PanelGRBTN_selectorder.Top;//个人高级选项

end;

procedure Tform_custombrowsebase.btnGR_toClick(Sender: TObject);
var
    i,m:integer;
begin
i:=0;
while  lbGR_CanSelect.SelCount>0 do
    begin
        if lbGR_CanSelect.Selected[i] then
            begin
                   if rbGR_Asce.checked then
			lbGR_Selected.Items.Add(lbGR_CanSelect.items[i]+' A')
                   else
                        lbGR_Selected.Items.Add(lbGR_CanSelect.items[i]+' D');
                   lbGR_CanSelect.Items.delete(i);
            end
        else
            inc(i);
    end;


end;

procedure Tform_custombrowsebase.btnGR_FromClick(Sender: TObject);
var
    i,m:integer;
    tmpstr:string;
begin
i:=0;
while  lbGR_Selected.SelCount>0 do
    begin
        if lbGR_Selected.Selected[i] then
            begin
        	tmpstr:=copy(lbGR_selected.items[i],1,pos(' ',lbGR_selected.items[i])-1);
                lbGR_canselect.items.add(tmpstr);
                lbGR_Selected.Items.delete(i);
            end
        else
            inc(i);
    end;


end;

procedure Tform_custombrowsebase.cbGR_returnClick(Sender: TObject);
begin
if  cbGR_return.Checked then
    spiGR_Return.Enabled:=true
else
    spiGR_Return.Enabled:=false;
end;

procedure Tform_custombrowsebase.cbGR_OrderClick(Sender: TObject);
begin
if cbGR_Order.Checked then
    begin
        lbGR_canselect.Enabled:=true;
        lbGR_selected.Enabled:=true;
        rbGR_Asce.Enabled:=true;
        rbGR_Desc.Enabled:=true;
        btnGR_to.Enabled:=true;
        btnGR_From.Enabled:=true;
        cbGR_return.Checked:=true;
        cbGR_return.OnClick(self);
    end
else
    begin
    	lbGR_canselect.Enabled:=false;
        lbGR_canselect.Enabled:=false;
        lbGR_selected.Enabled:=false;
        rbGR_Asce.Enabled:=false;
        rbGR_Desc.Enabled:=false;
        btnGR_to.Enabled:=false;
        btnGR_From.Enabled:=false;
        cbGR_return.Checked:=false;
        cbGR_return.OnClick(self);
    end;
end;

procedure Tform_custombrowsebase.pro_GR_getSqlorder(sender: tobject);
var
    i,m:integer;
    tmpstr:string;
begin
GR_SqlOrder:='order by ';
for i:=0 to lbGR_selected.items.count-1 do
    begin
        tmpstr:=copy(lbGR_selected.items[i],1,pos(' ',lbGR_selected.items[i])-1);
        m:=lbGR_fieldcomment.items.indexof(tmpstr);
        tmpstr:=lbGR_field.Items[m];
        if pos('D',lbGR_selected.items[i])>0 then
	        GR_SqlOrder:=GR_SqlOrder+tmpstr+' DESC,'
        else
	        GR_SqlOrder:=GR_SqlOrder+tmpstr+',';
    end;
delete(GR_SqlOrder,length(GR_SqlOrder),1);


end;

procedure Tform_custombrowsebase.cbJT_OrderClick(Sender: TObject);
begin
if cbJT_Order.Checked then
    begin
        lbJT_canselect.Enabled:=true;
        lbJT_selected.Enabled:=true;
        rbJT_Asce.Enabled:=true;
        rbJT_Desc.Enabled:=true;
        btnJT_to.Enabled:=true;
        btnJT_From.Enabled:=true;
        cbJT_return.Checked:=true;
        cbJT_return.OnClick(self);
    end
else
    begin
    	lbJT_canselect.Enabled:=false;
        lbJT_canselect.Enabled:=false;
        lbJT_selected.Enabled:=false;
        rbJT_Asce.Enabled:=false;
        rbJT_Desc.Enabled:=false;
        btnJT_to.Enabled:=false;
        btnJT_From.Enabled:=false;
        cbJT_return.Checked:=false;
        cbJT_return.OnClick(self);
    end;

end;

procedure Tform_custombrowsebase.cbJT_returnClick(Sender: TObject);
begin
if  cbJT_return.Checked then
    spiJT_Return.Enabled:=true
else
    spiJT_Return.Enabled:=false;
end;

procedure Tform_custombrowsebase.btnJT_toClick(Sender: TObject);
var
    i,m:integer;
begin
i:=0;
while  lbJT_CanSelect.SelCount>0 do
    begin
        if lbJT_CanSelect.Selected[i] then
            begin
                   if rbJT_Asce.checked then
			lbJT_Selected.Items.Add(lbJT_CanSelect.items[i]+' A')
                   else
                        lbJT_Selected.Items.Add(lbJT_CanSelect.items[i]+' D');
                   lbJT_CanSelect.Items.delete(i);
            end
        else
            inc(i);
    end;

end;

procedure Tform_custombrowsebase.btnJT_FromClick(Sender: TObject);
var
    i,m:integer;
    tmpstr:string;
begin
i:=0;
while  lbJT_Selected.SelCount>0 do
    begin
        if lbJT_Selected.Selected[i] then
            begin
        	tmpstr:=copy(lbJT_selected.items[i],1,pos(' ',lbJT_selected.items[i])-1);
                lbJT_canselect.items.add(tmpstr);
                lbJT_Selected.Items.delete(i);
            end
        else
            inc(i);
    end;

end;

procedure Tform_custombrowsebase.pro_JT_getSqlorder(sender: tobject);
var
    i,m:integer;
    tmpstr:string;
begin
JT_SqlOrder:='order by ';
for i:=0 to lbJT_selected.items.count-1 do
    begin
        tmpstr:=copy(lbJT_selected.items[i],1,pos(' ',lbJT_selected.items[i])-1);
        m:=lbJT_fieldcomment.items.indexof(tmpstr);
        tmpstr:=lbJT_field.Items[m];
        if pos('D',lbJT_selected.items[i])>0 then
	        JT_SqlOrder:=JT_SqlOrder+tmpstr+' DESC,'
        else
	        JT_SqlOrder:=JT_SqlOrder+tmpstr+',';
    end;
delete(JT_SqlOrder,length(JT_SqlOrder),1);

end;

procedure Tform_custombrowsebase.btnJT_SelectOrderClick(Sender: TObject);
begin
if btnJT_SelectOrder.Tag=1 then
    begin
        PanelJT_SelectOrder.Visible:=false;
        btnJT_SelectOrder.down:=false;
        btnJT_SelectOrder.Tag:=2;
    end
else
if btnJT_SelectOrder.Tag=2 then
    begin
        PanelJT_SelectOrder.Visible:=true;
        PanelJT_SelectOrder.top:=PanelJTBTN_SelectOrder.top+PanelJTBTN_SelectOrder.Height;
        btnJT_SelectOrder.down:=true;
        btnJT_SelectOrder.Tag:=1;
    end;
ScrollBox_JT.VertScrollBar.Position:=PanelJTBTN_selectorder.Top;//个人高级选项

end;

procedure Tform_custombrowsebase.pmi_consumestruClick(Sender: TObject);
begin
  //客户消费构成
if not browse_normal.IsEmpty then
  begin
      FormMain.Pro_OpenForm(TFRM_CA_consumestru, FRM_CA_consumestru, self);
      FRM_CA_consumestru.st_sid.Caption:=browse_normal.fieldbyname('sid_c').asstring;
      FRM_CA_consumestru.btnGR_FunFull.OnClick(sender);
      FRM_CA_consumestru.FlatButton1.OnClick(sender);
  end;
end;

procedure Tform_custombrowsebase.pmi_consumetrakeClick(Sender: TObject);
begin
  //客户消费行为
if not browse_normal.IsEmpty then
  begin
      FormMain.Pro_OpenForm(TFRM_CA_consumeaction, FRM_CA_consumeaction, self);
      FRM_CA_consumeaction.st_sid.Caption:=browse_normal.fieldbyname('sid_c').asstring;
      FRM_CA_consumeaction.btnGR_FunFull.OnClick(sender);
      FRM_CA_consumeaction.FlatButton1.OnClick(sender);
  end;
end;

procedure Tform_custombrowsebase.FormCreate(Sender: TObject);
begin
  pro_checkpanel(self);
end;

end.