?? unit_custombrowsebase.pas
字號:
unit Unit_custombrowsebase;
{
*****************************************************************************
*功能：個人客戶/集團客戶查詢基窗體
*作者：郭新源
*版本：1.000
*繼承于：unit_base
*輸入:各種查詢條件
*輸出：查詢結果
*視圖：根據(jù)窗體名去除前綴加視圖前綴進行調用。
如：單元unit_QueryStru 個人客戶頁面視圖名為：t_V_GR_QueryStru
集團客戶頁面視圖名為：t_V_JT_QueryStru
*****************************************************************************
}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
TFlatSpeedButtonUnit, StdCtrls, TFlatEditUnit, TFlatComboBoxUnit,
ExtCtrls, Grids, DBGrids, TFlatButtonUnit, Db, DBTables, Menus,
Buttons, ComCtrls, ImgList, TFlatCheckBoxUnit, tflatpanelunit,TFlatSpinEditUnit, ToolWin,
TFlatRadioButtonUnit;
const
REMIDEROW=1000;
type
Tform_custombrowsebase = class(TForm)
Panel1: TPanel;
Panel5: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Query_tmp: TQuery;
dsbrowse_normal: TDataSource;
PopupMenu1: TPopupMenu;
FlatButton1: TFlatButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Panel6: TPanel;
ScrollBox_GR: TScrollBox;
ScrollBox_JT: TScrollBox;
PanelJT_HighLevel: TPanel;
pmi_CustInfo: TMenuItem;
pmi_consumestru: TMenuItem;
pmi_consumetrake: TMenuItem;
pmi_gradechange: TMenuItem;
panelJT_stuff: TPanel;
Label_JT_City: TLabel;
Label24: TLabel;
coJT_cityno: TFlatComboBox;
coJT_off_no_home: TFlatComboBox;
Label29: TLabel;
PanelJTBTN_HighLevel: TPanel;
PanelGR_base1: TPanel;
PanelGR_base: TPanel;
Label5: TLabel;
Label4: TLabel;
Label7: TLabel;
coGR_DJDM: TFlatComboBox;
coGR_USER_ZJBS: TFlatComboBox;
PanelGR_Stuff: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
coGR_cityno: TFlatComboBox;
coGR_off_no_home: TFlatComboBox;
PanelGRBTN_highlevel: TPanel;
PanelGR_highlevel2: TPanel;
Label92: TLabel;
Label91: TLabel;
Label87: TLabel;
Label86: TLabel;
Label88: TLabel;
coGR_ZY: TFlatComboBox;
coGR_XB: TFlatComboBox;
spiGR_AgeBegin: TFlatSpinEditInteger;
spiGR_AgeEnd: TFlatSpinEditInteger;
PanelGR_highlevel: TPanel;
PanelJT_Base: TPanel;
Label11: TLabel;
Label25: TLabel;
Label_jtname: TLabel;
coJT_JTLB: TFlatComboBox;
coJT_HYDM: TFlatComboBox;
PanelJT_base1: TPanel;
PanelJT_HighLevel1: TPanel;
Label83: TLabel;
Label84: TLabel;
dtpJT_Be_G_DateBegin: TDateTimePicker;
dtpJT_Be_G_DateEnd: TDateTimePicker;
cbJT_Be_G_Date: TFlatCheckBox;
Label85: TLabel;
coJT_GroupFlag: TFlatComboBox;
spiJT_JTCYBegin: TFlatSpinEditInteger;
spiJT_JTCYEnd: TFlatSpinEditInteger;
Label81: TLabel;
Label80: TLabel;
Label79: TLabel;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
btnGR_HighLevel: TToolButton;
ToolButton3: TToolButton;
ToolBar4: TToolBar;
ToolButton8: TToolButton;
btnJT_HighLevel: TToolButton;
ToolButton10: TToolButton;
cbGR_Age: TFlatCheckBox;
cbJT_JTCY: TFlatCheckBox;
PanelGR_highlevel1: TPanel;
Label93: TLabel;
Label96: TLabel;
Label95: TLabel;
Label99: TLabel;
Label94: TLabel;
Label75: TLabel;
Label_stat: TLabel;
dtpGR_BE_DH_TBegin: TDateTimePicker;
dtpGR_BE_DH_TEnd: TDateTimePicker;
cbGR_BE_DH_T: TFlatCheckBox;
coGR_SXDM: TFlatComboBox;
cbGR_ZWSJ: TFlatCheckBox;
spiGR_ZWSJBegin: TFlatSpinEditInteger;
spiGR_ZWSJEnd: TFlatSpinEditInteger;
coGR_Stat: TFlatComboBox;
edGR_SID: TFlatEdit;
coGR_GH: TFlatComboBox;
coJT_GH: TFlatComboBox;
dbgGR: TDBGrid;
dbgJT: TDBGrid;
browse_normal: TQuery;
StatusBar1: TStatusBar;
Bevel1: TBevel;
edJT_DMORMC: TFlatEdit;
PopupMenu2: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
PanelGRBTN_SelectOrder: TPanel;
ToolBar22: TToolBar;
ToolButton20: TToolButton;
btnGR_SelectOrder: TToolButton;
ToolButton21: TToolButton;
PanelGR_SelectOrder: TPanel;
Label999: TLabel;
spiGR_Return: TFlatSpinEditInteger;
cbGR_return: TFlatCheckBox;
cbGR_Order: TFlatCheckBox;
btnGR_to: TFlatButton;
btnGR_From: TFlatButton;
lbGR_canselect: TListBox;
lbGR_selected: TListBox;
rbGR_Asce: TFlatRadioButton;
rbGR_Desc: TFlatRadioButton;
lbGR_fieldcomment: TListBox;
PanelJTBTN_SelectOrder: TPanel;
ToolBar27: TToolBar;
ToolButton25: TToolButton;
btnJT_SelectOrder: TToolButton;
ToolButton26: TToolButton;
PanelJT_selectORder: TPanel;
Label998: TLabel;
spiJT_Return: TFlatSpinEditInteger;
cbJT_return: TFlatCheckBox;
cbJT_Order: TFlatCheckBox;
btnJT_to: TFlatButton;
btnJT_From: TFlatButton;
lbJT_CanSelect: TListBox;
lbJT_Selected: TListBox;
rbJT_Asce: TFlatRadioButton;
rbJT_Desc: TFlatRadioButton;
lbJT_fieldcomment: TListBox;
lbJT_field: TListBox;
lbGR_field: TListBox;
Panel4: TPanel;
FlatButton2: TFlatButton;
FlatButton3: TFlatButton;
FlatButton4: TFlatButton;
Splitter1: TSplitter;
ImageListA: TImageList;
procedure FormShow(Sender: TObject);
procedure btnJT_stuffClick(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure btnGR_highlevelClick(Sender: TObject);
procedure btnGR_stuffClick(Sender: TObject);
procedure btnJT_HighLevelClick(Sender: TObject);
procedure cbGR_BE_DH_TClick(Sender: TObject);
procedure cbJT_Be_G_DateClick(Sender: TObject);
procedure cbGR_ZWSJClick(Sender: TObject);
procedure cbGR_AgeClick(Sender: TObject);
procedure cbJT_JTCYClick(Sender: TObject);
procedure FlatButton1Click(Sender: TObject);
procedure coGR_USER_ZJBSKeyPress(Sender: TObject; var Key: Char);
procedure FlatButton4Click(Sender: TObject);
procedure spiGR_ZWSJBeginChange(Sender: TObject);
procedure coGR_citynoChange(Sender: TObject);
procedure coJT_citynoChange(Sender: TObject);
procedure coJT_NameEnter(Sender: TObject);
procedure coGR_GHEnter(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
procedure coGR_off_no_homeChange(Sender: TObject);
procedure coJT_off_no_homeChange(Sender: TObject);
procedure coJT_HYDMChange(Sender: TObject);
procedure edGR_SIDKeyPress(Sender: TObject; var Key: Char);
procedure edJT_DMORMCKeyPress(Sender: TObject; var Key: Char);
procedure pmi_CustInfoClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure btnGR_SelectOrderClick(Sender: TObject);
procedure btnGR_toClick(Sender: TObject);
procedure btnGR_FromClick(Sender: TObject);
procedure cbGR_returnClick(Sender: TObject);
procedure cbGR_OrderClick(Sender: TObject);
procedure cbJT_OrderClick(Sender: TObject);
procedure cbJT_returnClick(Sender: TObject);
procedure btnJT_toClick(Sender: TObject);
procedure btnJT_FromClick(Sender: TObject);
procedure btnJT_SelectOrderClick(Sender: TObject);
procedure pmi_consumestruClick(Sender: TObject);
procedure pmi_consumetrakeClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
protected
GH_Strsql:string;
JT_STRSQL:STRING;
lGR_GH:string;
lJT_GH:string;
lGR_cityno:string;
lJT_cityno:string;
lGR_Off_no_home:string;
lJT_Off_No_Home:string;
lGR_USER_ZJBS:string;
lGR_DJDM:string;
lGR_SXDM:string;
lGR_ZY:string;
lGR_XB:string;
lGR_Stat:string;
lJT_HYDM:string;
lJT_JTLB:string;
lJT_GroupFlag:string;
lJT_JTYHMC:STRING;
lJT_JTYHDM:string;
//
GR_sqlquery:string;
JT_sqlquery:string;
GR_sqlwhere:string;
JT_sqlwhere:string;
GR_condition:boolean;
JT_condition:boolean;
GR_Sqlorder:string;
JT_Sqlorder:string;
// JTName_sqlwhere:string;
// procedure pro_JT_CREATEJTMC(sender:tobject;strsql:string);virtual;
// procedure pro_JT_getNameSQLWhere(sender:tobject);
procedure pro_initcombobox(sender:tobject);virtual; //初始化下拉框
procedure pro_initother(sender:tobject);virtual; //初始化工作
procedure pro_GR_getid(sender:tobject);virtual; //獲得個人客戶頁下拉框所對應的代碼
procedure pro_JT_getid(sender:tobject);virtual;
procedure pro_getsqlQuery(sender:tobject);virtual;//獲得數(shù)據(jù)庫數(shù)據(jù)
procedure pro_GR_OpenDataSet(sender:tobject;strsql:string);virtual;abstract; //獲得數(shù)據(jù)庫數(shù)據(jù)
procedure pro_JT_OpenDataSet(sender:tobject;strsql:string);virtual;abstract;
procedure pro_GR_getsqlwhere(sender:tobject);virtual; //根據(jù)個人客戶頁的查詢條件獲得相關查詢條件
procedure pro_JT_getsqlwhere(sender:tobject);virtual;
procedure pro_GR_checkcondition(sender:tobject);virtual; //檢查相關輸入信息
procedure pro_JT_checkcondition(sender:tobject);virtual;
procedure pro_GR_orderpanel(sender:tobject);virtual; //排列個人客戶頁中的panel
procedure pro_JT_orderpanel(sender:tobject);virtual;
procedure pro_CheckPanel(sender:tobject); //初始化panel值
procedure pro_GR_getSqlorder(sender:tobject);virtual;
procedure pro_JT_getSqlorder(sender:tobject);virtual;
public
{ Public declarations }
end;
var
form_custombrowsebase: Tform_custombrowsebase;
implementation
uses main,unit_public,dmmain,unit_ca_consumeaction,unit_ca_consumestru;
//按鈕控制
function Fun_ButtonStatus(pFormName:TForm;pStatus:Boolean=False):Boolean;stdcall;export;external'winfun.dll';
//輸框狀態(tài)控制
Function Fun_ComponentStatus(pFormName:TForm;pStatusStyle:Integer=0;pStatus:Boolean=False):Integer;stdCall;external'winfun.dll';
//控制回車
Function Fun_ComponentTab(pFormName:TForm;pKey:Word):Boolean;StdCall;external'winfun.dll';
{$R *.DFM}
procedure Tform_custombrowsebase.FormShow(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
pro_GR_orderpanel(self);
pro_JT_orderpanel(self);
pro_initcombobox(self);
pro_initother(self);
//btnGR_stuff.Click;
btnGR_HighLevel.Click;
//btnJT_stuff.Click;
btnJT_HighLevel.Click;
PageControl1.OnChange(self);
btnGR_SelectOrder.Click;
btnJT_SelectOrder.Click;
//
lbGR_field.Visible:=false;
lbGR_fieldcomment.Visible:=false;
lbJT_field.Visible:=false;
lbJT_fieldcomment.Visible:=false;
// Pro_GFillInitValue(Self,'所有');
end;
procedure Tform_custombrowsebase.btnJT_stuffClick(Sender: TObject);
begin
{if btnJT_Stuff.tag=2 then
begin
PanelJT_Stuff.Visible:=true;
PanelJT_Stuff.top:=PanelJTBTN_Stuff.top+PanelJTBTN_Stuff.Height;
btnJT_Stuff.down:=true;
btnJT_Stuff.tag:=1;
end
else
if btnJT_Stuff.tag=1 then
begin
PanelJT_Stuff.Visible:=false;
btnJT_Stuff.down:=false;
btnJT_Stuff.tag:=2;
end;
ScrollBox_JT.VertScrollBar.Position:=PanelJTBTN_Stuff.Top;
}
end;
procedure Tform_custombrowsebase.PageControl1Change(Sender: TObject);
begin
browse_normal.close;
if PageControl1.ActivePageIndex=0 then
begin
dbgJT.Visible:=false;
dbgGR.Visible:=true;
end;
if PageControl1.ActivePageIndex=1 then
begin
dbgGR.Visible:=false;
dbgJT.Visible:=true;
end;
StatusBar1.Panels[1].text:=PageControl1.ActivePage.Caption;
StatusBar1.Panels[3].text:='';
StatusBar1.Panels[4].text:='';
end;
procedure Tform_custombrowsebase.pro_initcombobox(sender: tobject);
begin
fun_getcity(coGR_cityno,'所有',0,PS_CityName);
fun_getcity(coJT_cityno,'所有',0,PS_CityName);
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -