?? unit_custstructure_b.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -