列表過(guò)濾報(bào)表使用方法

、列表控件使用方法1、欄目的預(yù)置deletefromaa_columndic_basewhereckey='0412'andcfld=N'ipriority'InsertIntoaa_columndic_base(cKey,cFld,cQryField,iColPos,cCaption,cCaptionPar,bFixed,bDisp,iColWidth,iAlign,cOrder,bLock,iMergeCols,bMustSel,bNeedSum,LocaleID,IsEnum,bFilter,bMerge,cSumType,cProjectNO,cSubID,CanModify,ReferType)Values (N'0412',N'ipriority',Null,1,N' 優(yōu)先級(jí)',Null,0,1,1200,1,Null,0,0,1,0,N'zh-cn',0,0,0,N'none',N'U870',N'ST',1,2)InsertIntoaa_columndic_base(cKey,cFld,cQryField,iColPos,cCaption,cCaptionPar,bFixed,bDisp,iColWidth,iAlign,cOrder,bLock,iMergeCols,bMustSel,bNeedSum,LocaleID,IsEnum,bFilter,bMerge,cSumType,cProjectNO,cSubID,CanModify,ReferType)Values (N'0412',N'ipriority',Null,1,N' 優(yōu)先級(jí)',Null,0,1,1200,1,Null,0,0,1,0,N'zh-tw',0,0,0,N'none',N'U870',N'ST',1,2)InsertIntoaa_columndic_base(cKey,cFld,cQryField,iColPos,cCaption,cCaptionPar,bFixed,bDisp,iColWidth,iAlign,cOrder,bLock,iMergeCols,bMustSel,bNeedSum,LocaleID,IsEnum,bFilter,bMerge,cSumType,cProjectNO,cSubID,CanModify,ReferType)Values(N'0412',N'ipriority',Null,1,N'Priorty',Null,0,1,1200,1,Null,0,0,1,0,N'en-us',0,0,0,N'none',N'U870',N'ST',1,2)其中0412為欄目的標(biāo)識(shí)，可以根據(jù)需要預(yù)置多個(gè)自己想要的欄目。2、列表初始化'初始化欄目服務(wù)DimoColumnAsU8ColumnSet.clsColSet'此定義為窗體變量或是全局變量SetoColumn=NewU8ColumnSet.clsColSetoColumn.Initconn,g_oLogin.cUserIdoColumn.setColMode"0412"'以材料出庫(kù)單列表的欄目為例子，0412為ckey'取數(shù)SetrstList=NewADODB.RecordsetrstList.Open"select"&oColumn.GetSqlString&"fromrecordoutlist",conn,adOpenStatic,adLockReadOnlyVouchList1.SetVchLstRstrstList'列表記錄集的填充方式設(shè)置：VouchList1.FillMode=FillOverwriteVouchList1.FillMode=FillAppend'FillOverwrite代表用方法VouchList1.SetVchLstRstrstList給列表填充數(shù)據(jù)的時(shí)候會(huì)覆蓋原有數(shù)據(jù)，而FillAppend是在原來(lái)的顯示列基礎(chǔ)上追加數(shù)據(jù)。'合計(jì)方式：VouchList1.SumStyle=vlRecordAndGridsum'vlRecordSum'給列表控件賦欄目VouchList1.InitHeadoColumn.getColInfo獲取列表某個(gè)單元格的值：VouchList1.TextMatrix(Row,VouchList1.GetColIndex("cinvcode")) row為行號(hào)，VouchListl.GetColIndex("cinvcode")為獲取欄目cinvcode所對(duì)應(yīng)的列號(hào)。設(shè)置單元格的編輯狀態(tài)：VouchListl.DisableTextMatrixTrue,VouchListl.GetColIndex("cinvcode"),row獲取列表數(shù)據(jù)dom:VouchListl.GetListDomTrue/falseTrue代表只獲取選中的行。False獲取全部的行。3、按鈕事件設(shè)置toolbar按鈕：欄目、定位等點(diǎn)擊欄目可以設(shè)置欄目觸發(fā)事件：Private Sub UFToolbarl_OnCommand(ByVal enumType AsUFToolBarCtrl.ENUM_MENU_OR_BUTTON,ByValcButtonIdAsString,ByValcMenuIdAsString)IfLCase(cButtonld)="tlbsel"Then'欄目設(shè)置IfNotoColumn.setCol=enmCancelThenVouchListl.InitHeadoColumn.getColInfoEndIfElseIfLCase(cButtonId)="tlblocate"Then'定位VouchListl.LocateTrueEndIfEndSub列表的打印輸出和預(yù)覽。打?。篤ouchList1.VchLstPrint預(yù)覽：VouchListl.VchLstPreview輸出：VouchList1.VchLstPrintToFile二、過(guò)濾條件的使用1、過(guò)濾的預(yù)置計(jì)入uap開(kāi)發(fā)版之后,點(diǎn)擊上面的工具下面的過(guò)濾設(shè)計(jì)器，輸入產(chǎn)品號(hào)之后就可以設(shè)計(jì)過(guò)濾了，點(diǎn)擊新增，這時(shí)你就可以新增過(guò)濾條件項(xiàng)了。其中名稱為標(biāo)示，標(biāo)題為顯示的表體，數(shù)據(jù)源是過(guò)濾條件拼寫(xiě)出來(lái)的sql語(yǔ)句的中的字段名。編輯類型可以根據(jù)需要選擇，下面一些的選項(xiàng)可以自己選擇。下面介紹一下幾個(gè)特殊的編輯類型：A:參照類型，如果設(shè)置為參照，則要在下面填寫(xiě)對(duì)應(yīng)的參照id,比如你這個(gè)過(guò)濾是倉(cāng)庫(kù)條件，參照id就為warehouse_aa，然后在最下面參照返回值中選擇你要返回的是編碼還是名稱。B：枚舉類型，設(shè)置為枚舉類型的時(shí)候，需要在枚舉爛里面輸入枚舉類型（就是aa_enum里面的enumtype字段），默認(rèn)顯示可以輸入你想要默認(rèn)顯示的enumcode.用逗號(hào)分開(kāi)。C:sql語(yǔ)句類型，如果編輯類型選擇了sql語(yǔ)句的話，需要在sql語(yǔ)句頁(yè)簽下的第一個(gè)text框中輸入數(shù)據(jù)源，如下圖標(biāo)題text框里面是你要顯示的數(shù)據(jù)源字段對(duì)用的標(biāo)題。返回字段列是你選中之后返回的的列，fld1代表第一列。

其他可以具體的參照其他過(guò)濾設(shè)置。2、過(guò)濾的調(diào)用DimoFltSrvAsNewUFGeneralFilter.FilterSrvIfoFltSrv.OpenFilteroLogin,FilterID,"",,"ST",,TrueEndif'其中oLogin是u81ogin,FilterlD是過(guò)濾的ID。"ST"是系統(tǒng)號(hào)。

三、新報(bào)表制作方法1、報(bào)表預(yù)置進(jìn)入U(xiǎn)AP開(kāi)發(fā)版后，點(diǎn)擊870后，右面會(huì)顯示各個(gè)模塊報(bào)表，下面以庫(kù)存為例子來(lái)介紹報(bào)表制作方法。-U870+二采購(gòu)管理+二成本管理+□出口管理+“二|存貨核算+“二|工程變更+??二|合同管理+“二|進(jìn)口管理-O庫(kù)存管理.21旳表單.21cs表單+-」蘭旦畝表單-在報(bào)表節(jié)點(diǎn)點(diǎn)擊右鍵-新建報(bào)表安全庫(kù)存預(yù)!按出口訂單按生產(chǎn)訂單按委外訂單按物料齊套:按銷售訂單7保質(zhì)期預(yù)警采貼在途明*超儲(chǔ)存貨查i然后就可以新建報(bào)表的數(shù)據(jù)引擎了，一般我們使用上面的選擇方式來(lái)新建報(bào)表。其中而業(yè)務(wù)對(duì)象名稱和描述可以自己選擇名字。點(diǎn)擊下一步就可以彈出下面界面在報(bào)表節(jié)點(diǎn)點(diǎn)擊右鍵-新建報(bào)表2、數(shù)據(jù)源設(shè)置配置自定爻查詢信息CST_RepOrtTeSt)自定爻類型設(shè)置|查詢結(jié)果列］過(guò)濾條件設(shè)置］數(shù)據(jù)源服務(wù)組件類型： 習(xí)數(shù)據(jù)源服務(wù)類型信息：USSTREPORT.ClsTest這里是對(duì)報(bào)表設(shè)置數(shù)據(jù)源和列表體的地方，其中下面的數(shù)據(jù)源是在我們調(diào)用報(bào)表服務(wù)的時(shí)候，報(bào)表服務(wù)回掉的數(shù)據(jù)源工程和類，用來(lái)取數(shù)。所以你要確定你已經(jīng)寫(xiě)好這個(gè)類。新報(bào)表是默認(rèn)調(diào)用USSTREPORT.ClsTest里面的下面方法。PublicSubGetSql(eAsIFilterArgs)DimsSqlAsStringSetobjflt=e.RawFilterSetmconn=NewADODB.ConnectionSetmconn=e.Login.UfCurrentDbDimiCommandTimeOutAsLongiCommandTimeOut=mconn.CommandTimeoutmconn.CommandTimeout=0SetobjLogin=e.Logine.DataSource.Type=CustomDataSourceTypeEnum_TemplateTablestrTempTableName=e.DataSource.SQLsSql=MoveDataDetailmconn.CommandTimeout=iCommandTimeOutCalle.Args.Add("GroupFilter",GetViewFilter(""))EndSub3、查詢結(jié)果列設(shè)置其中的名稱和你數(shù)據(jù)源查詢出來(lái)的結(jié)果列字段要一致。4、過(guò)濾條件設(shè)置此過(guò)濾條件是在調(diào)用報(bào)表服務(wù)時(shí)自動(dòng)，報(bào)表服務(wù)自動(dòng)調(diào)用的過(guò)濾。5、報(bào)表的調(diào)用DimoReportsrvAsReportService.clsReportManagerSetoReportsrv=NewReportService.clsReportManageroReportsrv.OpenReport"",g_oLogin,"ST"第'一個(gè)變量是報(bào)表的id'上面的調(diào)用報(bào)表服務(wù)會(huì)自動(dòng)調(diào)用你傳入id的報(bào)表，先彈出過(guò)濾界面，如果你給這個(gè)報(bào)表設(shè)置了過(guò)濾條件，單擊過(guò)濾就會(huì)彈出報(bào)表界面'點(diǎn)擊過(guò)濾后報(bào)表會(huì)自動(dòng)調(diào)用你預(yù)置的類的數(shù)據(jù)源中的方法老報(bào)表調(diào)用getsqlforold,新報(bào)表調(diào)用getsql。'然后調(diào)用的時(shí)候報(bào)表服務(wù)會(huì)傳入一個(gè)對(duì)象，里面有l(wèi)ogin的信息和一個(gè)臨時(shí)表名，你把報(bào)表的明細(xì)數(shù)據(jù)插入到這個(gè)臨時(shí)表后報(bào)表控件就會(huì)顯示數(shù)據(jù)。四、參照控件和參照服務(wù)的使用1.引用參照服務(wù)的引用：

參照控件的引用：2.參照的初始化新建一個(gè)EditRef控件EditRefl，初始化的時(shí)候設(shè)置如下。RefEdit1.RefType=RefUserBrowse表示是用戶自己設(shè)置參照ID。參照類型有好幾中其中;RefCalculator代表是數(shù)值類型的參照，就是計(jì)算器RefDate代表是日期類型參照，參照出來(lái)的是日歷。調(diào)用參照服務(wù)如果設(shè)置參照類型為用戶自定義參照，可以調(diào)用參照服務(wù),下面以倉(cāng)庫(kù)參照為例子PrivateSubRefEdit1_Click()DimRefAsNewU8RefService.IServiceDimretRstClassAsADODB.RecordsetDimretRstGridAsADODB.RecordsetDimsErrorAsStringRef.RefID="warehouse_aa"Ref.MetaXML="<Ref><RefSetbMultiSel='0'bAuth='0'/><DataSrc><DataClassbRetEndData='0'/></DataSrc></Ref>"Ref.Mode=modeRefingIfRefEdit1.Text<>""Th