U8開發(fā)之過(guò)濾控件課件

1、U8過(guò)濾控件摘要編程語(yǔ)言：VB過(guò)濾控件（UFGeneralFilter）是U8應(yīng)用程序常用的控件之一，它有以下特性： 分設(shè)計(jì)時(shí)和運(yùn)行時(shí)，設(shè)計(jì)時(shí)是集成在UAP中。 支持將861的模板自動(dòng)升級(jí)成870的模板。 提供程序員編程的接口。 提供回調(diào)接口。 對(duì)象不銷毀則保留用戶的各種設(shè)置。 通過(guò)常用條件和高級(jí)條件適應(yīng)不同的用戶的條件的要求。 界面更加友好易用。 支持常用條件分組。 過(guò)濾設(shè)置功能強(qiáng)大。組件：名稱版本說(shuō)明UFGeneralFilter.dll11.0及以前版本過(guò)濾控件的核心組件，包含所有業(yè)務(wù)組調(diào)用接口。UFGeneralFilterOCX.ocx11.0快捷過(guò)濾組件，給單據(jù)列表和UFGener

2、alFilter.dll使用。UFGeneralFilterPub.dl11.0過(guò)濾控件內(nèi)部公共組件。UFGeneralFilterSrv.dll11.0及以前版本為過(guò)濾控件取數(shù)的組件。UFFilterCache.dll11.0及以前版本過(guò)濾控件緩存處理組件。外部使用類：名稱版本說(shuō)明FilterSrv 11.0及以前版本UFGeneralFilter中，條件運(yùn)行時(shí)的服務(wù)類。DesignSrv11.0及以前版本UFGeneralFilter中，條件設(shè)計(jì)時(shí)的服務(wù)類。概念說(shuō)明1. 規(guī)則組件：在過(guò)濾控件運(yùn)行的過(guò)程中，支持寫代碼干預(yù)過(guò)濾的活動(dòng)，如初始化、值改變、參照后等等，這些代碼所屬的組件我們叫做過(guò)濾

3、的規(guī)則組件。2. 行為對(duì)象：由規(guī)則組件創(chuàng)建出來(lái)的對(duì)象。3. 回調(diào)方法：規(guī)則組件中實(shí)現(xiàn)的方法必須是按照過(guò)濾控件的要求，如方法名、參數(shù)、參數(shù)類型等，這些方法我們叫做回調(diào)方法。4. 謂詞：過(guò)濾項(xiàng)可以設(shè)置默認(rèn)值，但是這些默認(rèn)值是運(yùn)行時(shí)產(chǎn)生的，而不是一個(gè)固定死的值，我們稱之為謂詞，如：“本月第一日”，“前天”，“當(dāng)前登錄人” 等等。5. 快捷過(guò)濾，11.0新增，位于單據(jù)列表上部或左側(cè)或者報(bào)表的左側(cè)查詢區(qū)域，我們稱之為快捷過(guò)濾。 目標(biāo)本文主要介紹過(guò)濾欄控件的基礎(chǔ)知識(shí)，應(yīng)用過(guò)程及相關(guān)注意事項(xiàng)，方便各類U8產(chǎn)品開發(fā)人員更好的使用過(guò)濾控件，更高效的開發(fā)產(chǎn)品。過(guò)濾控件的使用使用場(chǎng)景各類U8產(chǎn)品開發(fā)人員可以通過(guò)過(guò)濾

4、設(shè)計(jì)器設(shè)計(jì)過(guò)濾，方便快捷的實(shí)現(xiàn)對(duì)其列表、報(bào)表及檔案等進(jìn)行數(shù)據(jù)過(guò)濾的功能。數(shù)據(jù)字典過(guò)濾控件基本表（flt_DefineMeta_Base）(UFMeta庫(kù)) U870字段名字段類型說(shuō)明FilterID (U870)nvarchar(50)過(guò)濾IDcLockedBy (U870)nvarchar(800)過(guò)濾過(guò)濾條件限制串，多個(gè)不支持高級(jí)條件的過(guò)濾項(xiàng)名，逗號(hào)隔開。FilterDesc (U870)Nvarchar(300)描述FilterName (U870)Nvarchar(200)標(biāo)題bLocked (U870)bit是否鎖定XMLExpression (U870)ntextXml格式，過(guò)濾元

5、數(shù)據(jù)。PersonItems (U8110)Nvarchar(2000)由于方案的變化，字段含義的原始意圖已經(jīng)沒(méi)有了。用來(lái)給業(yè)務(wù)組預(yù)置數(shù)據(jù)，預(yù)置period=1時(shí)表示將會(huì)計(jì)年月由如2013.1格式轉(zhuǎn)換成如201301的格式。ProjectNO (U870)Nvarchar(50)項(xiàng)目編號(hào)SubNO (U870)Nvarchar(10)子產(chǎn)品號(hào)IsUpgrade (U870)bit是否升級(jí)過(guò)濾緩存表（flt_DefineMeta_Cache）(UFMeta庫(kù)) U871字段名字段類型說(shuō)明FilterID (U871)nvarchar(50)過(guò)濾IDLocaleID (U871)Nvarchar(

6、50)語(yǔ)種XMLExpression (U871)ntextXml格式，過(guò)濾元數(shù)據(jù)。pubufts (U871)timestamp時(shí)間戳過(guò)濾二次開發(fā)表 (flt_DefineMeta_Cust) (UFMeta庫(kù)) U870字段名字段類型說(shuō)明FilterID (U870)Nvarchar(50)過(guò)濾IDProjectNO (U870)Nvarchar(50)項(xiàng)目編號(hào)XMLExpression (U870)ntextXml格式，二次開發(fā)的過(guò)濾元數(shù)據(jù)LocaleID (U870)Nvarchar(50)語(yǔ)種cSubID (U870)Nvarchar(50)子產(chǎn)品ID過(guò)濾多語(yǔ)表 (flt_Defin

7、eMeta_lang) (UFMeta庫(kù)) U870字段名字段類型說(shuō)明SubNO (U870)Nvarchar(50)子產(chǎn)品號(hào)LocaleID (U870)Nvarchar(50)語(yǔ)種ProjectNO (U870)Nvarchar(50)項(xiàng)目號(hào)FilterID (U870)Nvarchar(50)過(guò)濾IDXMLExpression (U870)ntextXml格式，多語(yǔ)元數(shù)據(jù)。Title (U871)Nvarchar(200)標(biāo)題快捷過(guò)濾預(yù)置表 (Flt_QuickConditionSet) (UFData庫(kù)) U8110字段名字段類型說(shuō)明ItemName (U8110)Nvarchar(4

8、00)過(guò)濾項(xiàng)名稱FilterID (U8110)Nvarchar(100)過(guò)濾編號(hào)UserID (U8110)Timestamp用戶id，業(yè)務(wù)組預(yù)置用system。過(guò)濾方案表 (flt_Solution) (UFData庫(kù)) U870字段名字段類型說(shuō)明ID (U870)uniqueidentifier過(guò)濾方案編號(hào)ViewId (U8110)Nvarchar(50)報(bào)表視圖編號(hào)GroupId (U8110)Nvarchar(50)分組編號(hào)IsPublic (U870)bit是否公共方案UserID (U870)Nvarchar(50)用戶idIsDefault (U870)bit是否是默認(rèn)方案X

9、MLExpression (U870)Ntext方案常用條件的元數(shù)據(jù)isAdvance (U870)Bit此字段11.0廢棄AdvanceXMLExpression (U8110)Ntext高級(jí)條件元數(shù)據(jù)NewReportID (U870)Nvarchar(100)廢棄字段LocaleID (U870)Nvarchar(50)多語(yǔ)類型cClassID (U8100)Nvarchar(50)過(guò)濾方案分類編號(hào)isSample (U870)Bit廢棄字段PageRowCount (U8110)int每頁(yè)的行數(shù)SolutionName (U870)nvarchar(300)過(guò)濾方案名稱U8常用字段業(yè)務(wù)

10、類型預(yù)置表（U8CommonFieldBusinessType）(UFMeta庫(kù))字段名字段類型說(shuō)明FieldName (U8110)Nvarchar(80)字段名稱SubId (U8110)Nvarchar(10)子產(chǎn)品編號(hào)BusinessType (U8110)Nvarchar(80)字段的業(yè)務(wù)類型，目前僅定義了person類型。ProjectNO (U8110)Nvarchar(50)項(xiàng)目號(hào)設(shè)計(jì)過(guò)濾1. 打開UAP工具過(guò)濾設(shè)計(jì)器新建過(guò)濾打開查詢條件設(shè)計(jì)器。是否支持高級(jí)條件：勾選時(shí)，運(yùn)行時(shí)的查詢條件界面中才存在高級(jí)條件。是否顯示匯總選擇：勾選時(shí)，運(yùn)行時(shí)的查詢條件界面中才有查看匯總信息的選項(xiàng)

11、。是否取消二次開發(fā)：勾選時(shí)，如果一個(gè)過(guò)濾是在系統(tǒng)預(yù)置項(xiàng)目（U870）中設(shè)計(jì)的，那么客戶化項(xiàng)目（U8CUSTDEF）中無(wú)法新增和復(fù)制過(guò)濾條件項(xiàng)（不勾選，是允許新增和復(fù)制的）。規(guī)則組件：過(guò)濾插件的組件名，如FilterDevDemo.FilterDevClass，過(guò)濾控件可以根據(jù)這個(gè)名稱去創(chuàng)建出行為對(duì)象和調(diào)用行為對(duì)象里的回調(diào)方法。顯示SQL：設(shè)計(jì)完過(guò)濾以后，可以通過(guò)顯示SQL來(lái)提起過(guò)濾的元素?fù)?jù)腳本，最終這些腳本提交安裝盤。1. 查詢條件設(shè)計(jì)器中可以對(duì)查詢項(xiàng)目進(jìn)行增加、刪除、編輯等操作。編輯類型：為枚舉時(shí)，需要在第二個(gè)頁(yè)簽設(shè)置枚舉類型或者枚舉串；為Sql語(yǔ)句類型時(shí)，需要在第三個(gè)頁(yè)簽設(shè)置Sql語(yǔ)句、返

12、回字段、顯示字段等信息，返回字段只能寫成fld1、fld2的形式，如果返回字段要設(shè)置成sql語(yǔ)句的第一個(gè)字段時(shí)就用fld1，第二個(gè)字段就用fld2，依此類推，而不是sql語(yǔ)句中selelct 后的字段名。數(shù)據(jù)源：過(guò)濾所查詢的數(shù)據(jù)源中的字段名。是否常用條件：勾選后，運(yùn)行時(shí)常用條件區(qū)域才顯示出來(lái)，否則僅在高級(jí)條件中出現(xiàn)。 允許用戶修改比較符：勾選后，查詢方案的條件項(xiàng)的比較符允許修改，否則是不允許修改的。作為參數(shù)：勾選后，過(guò)濾條件項(xiàng)的值就不拼到過(guò)濾控件返回的sql條件中，但是過(guò)濾對(duì)象上存在這個(gè)值，可以在過(guò)濾的程序員編程接口中訪問(wèn)到。是否便捷條件：僅UAP的BS單據(jù)列表中使用，勾選后，UAP的BS單據(jù)

13、列表的便捷條件區(qū)域才能看見此過(guò)濾項(xiàng)。參與全文搜索：僅UAP的BS單據(jù)列表中使用，勾選后，UAP的BS單據(jù)列表的全文搜索才去搜索這項(xiàng)。2. 過(guò)濾設(shè)計(jì)完成后提取腳本并做進(jìn)安裝盤。使用過(guò)濾1. 引用過(guò)濾組件UFGeneralFilter.dll2. 初始化過(guò)濾對(duì)象Dim fltSrv As UFGeneralFilter.FilterSrvSet fltSrv = New UFGeneralFilter.FilterSrv3. 顯示過(guò)濾界面Public Function OpenFilter(ByVal m_Login As Object, ByVal sFilterID As String, Op

14、tional ByVal sReportName As String, Optional ByVal sSubID As String, Optional ErrInfo As Variant ,Optional HiddenFilter As Boolean) As Boolean參數(shù)1：Login對(duì)象參數(shù)2：條件的Key參數(shù)3：過(guò)濾的名稱參數(shù)4：子產(chǎn)品號(hào)參數(shù)5：返回的錯(cuò)誤信息返回值：如果返回為False表明出現(xiàn)失敗說(shuō)明：你可以用參數(shù)2，忽略參數(shù)3、4或用參數(shù)3、4而忽略參數(shù)2例子：Dim bSuccess As BooleanDim ErrInfo as VariantSet fltSrv

15、.BehaviorObject = UserObject過(guò)濾回調(diào)對(duì)象，不是必須的，與填寫規(guī)則組件達(dá)到的目的是一致。bSuccess=fltSrv. OpenFilter(g_oLogin, SA_17, , ErrInfo)或者bSuccess=fltSrv. OpenFilter(g_oLogin, , 17, SA, ErrInfo) 也必須確保存在SA_17這個(gè)過(guò)濾編號(hào) If bSuccess = True Then MsgBox fltSrv.GetSQLWhereEnd If常用的方法接口運(yùn)行時(shí)接口類：UFGeneralFilter.FilterSrv.cls名稱說(shuō)明GetValue

16、獲得某編輯框的值，注意此方法需要在顯示過(guò)濾窗口后使用。SetValue設(shè)置某編輯框的值，注意此方法需要在顯示過(guò)濾窗口后使用。SetEditFilter設(shè)置參照的過(guò)濾的SQL語(yǔ)句。通過(guò)此方法你可以做到一個(gè)過(guò)濾項(xiàng)目被修改后可以影響其他過(guò)濾項(xiàng)目的參照的條件。HiddenCondition隱藏某編輯框DisableCondition 某編輯框不可編輯GetSqlWhere得到過(guò)濾條件的where條件字符串GetWhereWithToken得到指定過(guò)濾條件的where條件字符串，在使用此方法前請(qǐng)先使用FilterList屬性修改每個(gè)過(guò)濾項(xiàng)目的Token值如：srv.FilterList(1).lngGr

17、ouptoken=1。OpenFilter顯示過(guò)濾界面OpenFilterConfig打開過(guò)濾設(shè)置界面，傳入?yún)?shù)和openfilter一致。BehaviorObject設(shè)置行為對(duì)象，行為對(duì)象可以提供方法用于在過(guò)濾的不同事件中調(diào)用，可以程序中動(dòng)態(tài)創(chuàng)建，也可以設(shè)計(jì)過(guò)濾時(shí)填寫規(guī)則組件，過(guò)濾控件將自己創(chuàng)建行為對(duì)象。DateConditionIsExpresion布爾類型，為true時(shí)，過(guò)濾的值都以謂詞形式顯示，默認(rèn)為false設(shè)計(jì)時(shí)接口類：UFGeneralFilter.DesignSrv.cls名稱說(shuō)明BuildConditionEx建立或修改一個(gè)新的條件項(xiàng)，此方法是設(shè)計(jì)時(shí)預(yù)置一個(gè)條件項(xiàng)的元數(shù)據(jù)的方

18、法。參數(shù)1：元數(shù)據(jù)的連接串參數(shù)2：條件的Key參數(shù)3：項(xiàng)目編號(hào)參數(shù)4：子產(chǎn)品編號(hào)參數(shù)5：參照的XML串參數(shù)6：錯(cuò)誤信息返回值：如果返回為False表明出現(xiàn)失敗ConditionDesign說(shuō)明：調(diào)用過(guò)濾設(shè)計(jì)器參數(shù)1：元數(shù)據(jù)庫(kù)名參數(shù)2：業(yè)務(wù)庫(kù)連接串參數(shù)3：過(guò)濾的ID號(hào)參數(shù)4：語(yǔ)言參數(shù)5：用戶名參數(shù)6：錯(cuò)誤信息行為對(duì)象中可以實(shí)現(xiàn)的回調(diào)方法當(dāng)過(guò)濾的某項(xiàng)的值發(fā)生變化時(shí)回調(diào)此函數(shù)，skey過(guò)濾項(xiàng)名稱，如：cDepCodePublic Function CallBack_ValueChange(sKey As String, flt As UFGeneralFilter.FilterSrv)End Fun

19、ction當(dāng)過(guò)濾初始化是回調(diào)此函數(shù)Public Function CallBack_FilterInit(flt As UFGeneralFilter.FilterSrv)End Function當(dāng)點(diǎn)過(guò)濾時(shí)回調(diào)此函數(shù)，Cancel是否取消filterClickPublic Function CallBack_FilterClick(flt As UFGeneralFilter.FilterSrv, Cancel As Boolean)End Function當(dāng)過(guò)濾項(xiàng)彈出參照后，過(guò)濾控件回調(diào)此函數(shù)，后三個(gè)參數(shù)都是參照控件中帶出來(lái)的Public Function CallBack_AfterBro

20、wse (sKey As String, flt As UFGeneralFilter.FilterSrv , RstClass As ADODB.RecordSet, RstGrid As ADODB.RecordSet, sXml As String)End Function彈出自定義參照的回調(diào)方法，過(guò)濾控件使用的標(biāo)準(zhǔn)參照控件無(wú)法滿足要求時(shí)，可以在這個(gè)回調(diào)方法中彈出自定義的參照Public Function CallBack_UserBrowse (sKey As String, flt As UFGeneralFilter.FilterSrv)End Function報(bào)表使用過(guò)濾且報(bào)表視

21、圖初始化時(shí)，過(guò)濾控件回調(diào)此函數(shù)Public Function CallBack_ReportViewInit (sKey As String, flt As UFGeneralFilter.FilterSrv，DisplayViewClass as string)End Function報(bào)表使用過(guò)濾且報(bào)表視圖改變時(shí)，過(guò)濾控件回調(diào)此函數(shù)Public Function CallBack_ReportViewChange (sKey As String, flt As UFGeneralFilter.FilterSrv，DisplayViewClass as string)End Function快

22、捷過(guò)濾的使用方法1. 數(shù)據(jù)預(yù)置為確定第一次使用快捷過(guò)濾時(shí)，顯示那些過(guò)濾項(xiàng)，需要在Flt_QuickConditionSet表中預(yù)置數(shù)據(jù)。銷售快捷過(guò)濾數(shù)據(jù)預(yù)置DELETE FROM Flt_QuickConditionSet WHERE FilterID=SA_17 AND USERID=systemINSERT INTO Flt_QuickConditionSet(FilterID,UserID,ItemName)VALUES(SA_17,system,cCusCode)INSERT INTO Flt_QuickConditionSet(FilterID,UserID,ItemName)VAL

23、UES(SA_17,system,cPersonName)INSERT INTO Flt_QuickConditionSet(FilterID,UserID,ItemName)VALUES(SA_17,system,dPreDate)INSERT INTO Flt_QuickConditionSet(FilterID,UserID,ItemName)VALUES(SA_17,system,dDate)2. 代碼編寫引用過(guò)濾組件UFGeneralFilter.dll添加組件UFGeneralFilterOCX.OcxDim flt as FilterSrvSet flt=new FilterSrvflt.InitBaseVarValue g_oLogin,”SA_17” 初始化一些基本的變量，參數(shù)傳入與前面提到的OpenFilter方法一致FilterControlOCX1.Init flt讓過(guò)濾項(xiàng)支持謂詞“當(dāng)前登錄人