unit_custstructure_b.pas

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

unit Unit_custstructure_B;

interface

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

type
  TForm_custstructure_B = class(Tform_custombrowsebase)
    ImageList1: TImageList;
    Label16: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    coGR_USER_FKFS: TFlatComboBox;
    Label27: TLabel;
    edJT_LXR: TFlatEdit;
    Label17: TLabel;
    edGR_XYD: TFlatEdit;
    edGR_CZ_XYD: TFlatEdit;
    edGR_QT_XYD: TFlatEdit;
    procedure FlatButton1Click(Sender: TObject);
    procedure btnGR_highlevelClick(Sender: TObject);
    procedure btnJT_HighLevelClick(Sender: TObject);
  private
    { Private declarations }
    protected
        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;

  public
    { Public declarations }
  end;

var
  Form_custstructure_B: TForm_custstructure_B;

implementation

{$R *.DFM}

procedure TForm_custstructure_B.FlatButton1Click(Sender: TObject);
var
    sqlstr:string;
begin
  inherited;

end;


procedure TForm_custstructure_B.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_highlevel.top+PanelGR_highlevel.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_custstructure_B.btnJT_HighLevelClick(Sender: TObject);
begin

if btnJT_highlevel.tag=2  then
   begin
       //PanelJT_highlevel1.Visible:=true;
       //PanelJT_highlevel1.top:=PanelJTBTN_highlevel.top+PanelJT_highlevel.Height;
       PanelJT_highlevel.Visible:=true;
       PanelJT_highlevel.top:=PanelJTBTN_highlevel.top+PanelJT_highlevel.Height;
       btnJT_highlevel.down:=true;
       btnJT_highlevel.tag:=1;
   end
else
if btnJT_highlevel.tag=1 then
    begin
       //PanelJT_highlevel1.Visible:=false;
       PanelJT_highlevel.Visible:=false;
       btnJT_highlevel.down:=false;
       btnJT_highlevel.tag:=2;
    end;
ScrollBox_JT.VertScrollBar.Position:=PanelJTBTN_HighLevel.Top;//个人高级选项

end;

procedure TForm_custstructure_B.pro_GR_OpenDataSet(sender: tobject;
  strsql: string);
begin
  inherited;
with browse_normal do
    begin
        close;
        sql.clear;
        sql.add('select SID 手机号码,NAME 客户姓名,AGe 年龄,SEX_desc 性别,ZY_Desc 职业,SXDM_Desc 客户属性,USER_ZJBS_Desc 品牌名称,DJDM_Desc 客户等级,USER_FKFS_Desc 付款方式,stat_desc 手机状态,');
        sql.add('XYD 单停信用度,QT_XYD 双停信用度,ZWSJ 在网时间,BE_DH_T 成为大客户时间,RLN_NAME 联系人,LXDH 联系电话,GH 客户经理,CityCode 地市,OFf_No_Home 局向 from T_V_CustInfo_Browse');
        sql.add('where 1=1');
        sql.add(strsql);
        open;
    end;

end;

procedure TForm_custstructure_B.pro_JT_OpenDataSet(sender: tobject;
  strsql: string);
begin
  inherited;
with browse_normal do
    begin
        close;
        sql.clear;
        sql.add('select JTYHMC 集团名称,LXR 集团联系人,SID 联系电话,HYDM_Desc 行业名称,GroupFlag_desc 企业属性,JTLB_Desc 客户类型,CY 成员数,');
        sql.add('GH_desc 客户经理,CityCode_desc 地市,JX_Desc 局向 from T_V_GroupIndo_Browse');
        sql.Add('where 1=1');
        sql.add(strsql);
        open;
    end;
end;

procedure TForm_custstructure_B.pro_GR_getsqlwhere(sender: tobject);
var
 tmpstr:string;
begin
  inherited;
GR_sqlwhere:=GR_sqlwhere+tmpstr;
end;

procedure TForm_custstructure_B.pro_JT_getsqlwhere(sender: tobject);
var
    tmpstr:string;
begin
  inherited;
JT_sqlwhere:=JT_sqlwhere+tmpstr;
end;

end.