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.