unit_custbrowsebase_p.pas

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

end;

procedure TForm_custbrowsebase_P.btnGR_HighLevelClick(Sender: TObject);
begin
if btnGR_highlevel.tag=2  then
   begin
       PanelGR_highlevel.Visible:=true;
       PanelGR_highlevel.top:=PanelGRBTN_highlevel.top+PanelGRBTN_highlevel.Height;
       PanelGR_highlevel1.Visible:=true;
       PanelGR_highlevel1.top:=PanelGR_highlevel.top+PanelGR_highlevel.Height;
       PanelGR_highlevel2.Visible:=true;
       PanelGR_highlevel2.top:=PanelGR_highlevel1.top+PanelGR_highlevel1.Height;
       btnGR_highlevel.down:=true;
       btnGR_highlevel.tag:=1;
   end
else
if btnGR_highlevel.tag=1 then
    begin
       PanelGR_highlevel1.Visible:=false;
       PanelGR_highlevel2.Visible:=false;
       PanelGR_highlevel.Visible:=false;
       btnGR_highlevel.down:=false;
       btnGR_highlevel.tag:=2;
    end;
       ScrollBox_GR.VertScrollBar.Position:=PanelGRBTN_highlevel.Top;//个人高级选项

end;

procedure TForm_custbrowsebase_P.FlatButton1Click(Sender: TObject);
var
	beforebrowsetime:tdatetime;
        doubletmp,doubleinter:double;
        tmpstr:string;
begin
GR_sqlOrder:='';
GR_sqlwhere:='';
beforebrowsetime:=now;
doubleinter:=0;
tmpstr:=self.Name;
delete(tmpstr,1,3);
if PageControl1.ActivePageIndex=0 then
	tmpstr:='T_V_GR'+tmpstr+' t';
if PageControl1.ActivePageIndex=0 then//个人客户
    begin
        pro_GR_checkcondition(self);
        if GR_condition then
            begin
                pro_GR_Getid(self);
                pro_GR_Getsqlwhere(self);
                if (cbGR_Order.Checked) and (lbGR_selected.Items.Count>0) then
	                pro_GR_GetsqlOrder(self);
                if GR_sqlwhere='' then
                    begin
                        doubleinter:=now-beforebrowsetime;

//                        if Fun_MessageBox('无查询条件,是否继续',1,1)<>1 then
//                            exit
//                        else
				beforebrowsetime:=now;
                    end;
                try

               { with query_tmp do
                    begin
                        close;
                        sql.clear;
                        sql.add('select count(*) Rcount from '+tmpstr +' where 1=1');
                        sql.add(GR_sqlwhere);
                        open;
                        if fieldbyname('Rcount').asinteger>=REMIDEROW then
                            begin
                                doubleinter:=doubleinter+(now-beforebrowsetime);
				if fun_messagebox('记录返回 '+inttostr(fieldbyname('Rcount').asinteger)+' 条，是否继续显示',1,1)<>1 then
                    			exit
                                else
                                    beforebrowsetime:=now;
                            end;
			beforebrowsetime:=now;
                        StatusBar1.Panels[3].Text:=inttostr(fieldbyname('Rcount').asinteger)+' 条';
                    end; }
                pro_GetsqlQuery(self);
                with browse_normal do
                    begin
                	close;
                        sql.clear;
                        sql.Add(GR_sqlquery+GR_sqlwhere+GR_sqlOrder);
                        open;
                        StatusBar1.Panels[3].Text:='成功';
                    end;
		doubletmp:=doubleinter+(now-beforebrowsetime);
		StatusBar1.Panels[4].Text:='本次查询费时 '+currtostr(doubletmp*86400)+' 秒';
                except
//                    fun_messagebox('系统在执行过程中发生错误,请检查输入条件');
                end;
            end;
    end;


end;

procedure TForm_custbrowsebase_P.spiGR_ZWSJBeginChange(Sender: TObject);
begin
if sender=spiGR_ZWSJBegin then
    begin
        spiGR_ZWSJEnd.MinValue:=spiGR_ZWSJBegin.Value;
        if spiGR_ZWSJEnd.Value<spiGR_ZWSJBegin.Value then
              spiGR_ZWSJEnd.Value:=spiGR_ZWSJBegin.Value;
    end;
if sender=spiGR_AgeBegin then
    begin
        spiGR_AgeEnd.MinValue:=spiGR_AgeBegin.Value;
        if spiGR_AgeEnd.Value<spiGR_AgeBegin.Value then
              spiGR_AgeEnd.Value:=spiGR_AgeBegin.Value;
    end;
if sender=spiGR_ZWSJBegin then
    begin
    	spiGR_ZWSJEnd.MinValue:=spiGR_ZWSJBegin.Value;
        if spiGR_ZWSJEnd.Value<spiGR_ZWSJBegin.Value then
              spiGR_ZWSJEnd.Value:=spiGR_ZWSJBegin.Value;

    end;
end;

procedure TForm_custbrowsebase_P.coGR_citynoKeyPress(Sender: TObject;
  var Key: Char);
begin
key:=#0;
end;

procedure TForm_custbrowsebase_P.FlatButton4Click(Sender: TObject);
begin
close;
end;

procedure TForm_custbrowsebase_P.pro_CheckPanel(sender: tobject);
var
    i:integer;
begin
with self do
    begin
        for i:=0 to ComponentCount-1 do
            begin
		if (Components[i] is TPanel) or (Components[i] is TFlatPanel) then
                    begin
                        if (Components[i] is TPanel) then
                            begin
                                 if (Components[i] as tpanel).parent=ScrollBox_GR then
                                     begin
                                         if (Components[i] as tpanel).autosize=false then
                                             (Components[i] as tpanel).autosize:=true;
                                     end;
                            end;
                    end;
		if (Components[i] is TComboBox) or (Components[i] is TFlatComboBox) then
                   begin
                   	if (Components[i] is TFlatComboBox) then
                               if (Components[i] as TFlatComboBox).style<>csDropDownList then
                      		  (Components[i] as TFlatComboBox).style:=csDropDownList;
                   	if (Components[i] is TComboBox) then
                                if (Components[i] as TComboBox).style<>csDropDownList then
                       		    (Components[i] as TComboBox).style:=csDropDownList;
                   end;
	       {	if (Components[i] is TFlatEdit) or (Components[i] is TFlatComboBox)or (Components[i] is TDateTimePicker) then
                   begin
                       if (Components[i] is TControl) then
                            (Components[i] as TControl).width:=140;
                   end;}
            end;
    end;

end;

procedure TForm_custbrowsebase_P.pro_GR_orderpanel(sender: tobject);
begin
PanelGR_Stuff.top:=0;
PanelGR_base.top:=PanelGR_Stuff.Top+PanelGR_Stuff.Height;
PanelGR_base1.top:=PanelGR_base.top+PanelGR_base.Height;
//PanelGRBTN_stuff.top:=PanelGR_base1.top+PanelGR_base1.Height;
//PanelGR_Stuff.top:=PanelGRBTN_stuff.top+PanelGRBTN_stuff.Height;
PanelGRBTN_highlevel.top:=PanelGR_base1.top+PanelGR_base1.Height;
PanelGR_highlevel.Top:=PanelGRBTN_highlevel.top+PanelGRBTN_highlevel.Height;
PanelGR_highlevel1.top:=PanelGR_highlevel.top+PanelGR_highlevel.Height;
PanelGR_highlevel2.top:=PanelGR_highlevel1.top+PanelGR_highlevel.Height;
PanelGRBTN_SelectOrder.top:=PanelGR_highlevel2.top+PanelGR_highlevel2.Height;
PanelGR_SelectOrder.top:=PanelGRBTN_SelectOrder.top+PanelGRBTN_SelectOrder.Height;
end;



procedure TForm_custbrowsebase_P.coGR_citynoChange(Sender: TObject);
begin
  	Fun_Getcounty(coGR_off_no_home,'所有',coGR_Cityno.Text,0,ps_homename);
  	coGR_off_no_homeChange(coGR_off_no_home);
end;

procedure TForm_custbrowsebase_P.coGR_GHEnter(Sender: TObject);
VAR
   TMPSTR:STRING;
begin
{GH_Strsql:='select WK_NO,name from t_f_Manager where 1=1';
pro_GR_getid(self);
if coGR_cityno.Text<>'所有' then
        tmpstr:=tmpstr+' and '+'cityno='+''''+lGR_cityno+'''';
if coGR_off_no_home.Text<>'所有' then
        tmpstr:=tmpstr+' and '+'off_no_home='+''''+lGR_off_no_home+'''';
GH_Strsql:=GH_Strsql+TMPSTR;
pro_GR_CREATEGH(SELF,GH_Strsql);}

end;


procedure TForm_custbrowsebase_P.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;

procedure TForm_custbrowsebase_P.pro_getsqlQuery(sender: tobject);
var
    tmpstr:string;
begin
tmpstr:=self.Name;
delete(tmpstr,1,3);
tmpstr:='T_V_GR'+tmpstr+' t';
GR_sqlquery:='select rownum row_num,t.* from '+tmpstr+' where 1=1';
end;

procedure TForm_custbrowsebase_P.coGR_off_no_homeChange(Sender: TObject);
begin
  Fun_GetManager(coGR_GH,'所有',coGR_Cityno.Text,coGR_off_no_home.Text,GH);
end;

procedure TForm_custbrowsebase_P.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_custbrowsebase_P.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_custbrowsebase_P.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_custbrowsebase_P.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_custbrowsebase_P.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_custbrowsebase_P.cbGR_returnClick(Sender: TObject);
begin
if  cbGR_return.Checked then
    spiGR_Return.Enabled:=true
else
    spiGR_Return.Enabled:=false;
end;

procedure TForm_custbrowsebase_P.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_custbrowsebase_P.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_custbrowsebase_P.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_custbrowsebase_P.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_custbrowsebase_P.dbgGRMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
{if (browse_normal.IsEmpty) and (button=mbRight) then
    PopupMenu:=nil
else
    PopupMenu:=PopupMenu1;}

end;

end.