L5--U8-11.1客开培训文档--单据列表

U8单据列表控件开发培训部门：U8平台及公共开发部U8版本号：V11.1讲师：李亮定稿时间：2013-11-110.变更记录变更阶段时间变更原因变更类型内容提出人1.单据列表介绍1.1单据列表发展历程单据列表发展经历了如下几个重大里程碑：1、U8V8.721）单据列表控件引用的UFSpGrid.ocx因代码超出VB工程“容量”，同时避免打破兼容性，更换为UFSpGrid2.ocx。2）同时单据列表支持的编辑功能，具体如下：单据列表对合并显示功能的支持：要使单据列表支持合并显示的功能，主要要对栏目设置功能的进行设置，单据列表对参照输入的支持1、增加对事件BrowUser,FillList的支持，其用法与SuperGrid中的用法相同2、要使单据列表具有参照输入的功能，须在栏目设置中进行如下设置：a.AA_ColumnDic及AA_ColumnSet两个视图b.BrowUserType，如果为NULL或为0，则单据列表状态保持原样，其它类型同SuperGrid中的类型定义，其定义如下：'列参照类型EnumBrowTypeBrowNull=0UserBrowButtonDblBrowButtonDateBrowButtonBrowComEndEnum其值按１递增。增加对超字段选择范围的支持，也就条件的字节数可以超过8k限制增加对UAP结构下分页组件的调用方式,用法如下：其大体调用方式与CS方式下的调用没有太大区别，与CS不同的地方在于要UAP的调用方式要声明一个算法变量，以支持UIP调用后结果集的导入，具体用法详见示例工程的Form2代码增加对枚举类型的支持在U8VouchList中增加分页的功能，用法如下：1、请按原有使用VouchList的方式使用单据列表2、将分页的按钮放在所使用的窗体中3、在数据库中执行脚本，创建分页引擎的存储过程SPPagediv2、U8V11.0单据列表整合了翻页和快捷过滤功能，同时增强了交互和易用性。如：着色、布局等20多个功能，具体参考1.2单据列表示例代码及常用功能说明具体代码示例工程参见：1.扩展：PrivateWithEventsm_pagedivAsPagediv'分页引擎，配合实现单据列表自身的翻页功能。CallobjU8Tbl.InitExternalButton(strCardNum,m_Login)Call,Me)‘单据列表及控件与toolbar绑定，以便后续二次开发功能拓展。2.属性：VchLst.SumStyle=vlGridSum'合计方式'合计方式枚举PublicEnumSumStyleEumvlSumNone=0'没有合计vlRecordsum=1'记录集合计vlGridSum=2'Grid合计vlRecordAndGridsum=3'记录集和Grid合计EndEnumVchLst.ReadOnly=NotCBool(1)VchLst.LoginObj=m_LoginVchLst.FltState=FalseVchLst.ShiftUpDown=True‘是否支持shift+上下箭头连续选择行VchLst.HiddenRefreshView=FalseVchLst.FillMode=FillOverwrite'填充模式'填充模式枚举PublicEnumFillModeEnumFillAppend=0'追加填充FillOverwrite=1'覆盖填充EndEnumVchLst.Title=“列表的标题”VouchList.TextMatrix(row,col)=“单元格值”VouchList.LocateState‘定位状态True：定位False：取消定位VouchList.TopRow‘纵向滚动后最顶上的当前行号3.方法：CallVchLst.InitFlt(m_Login,clsVoucherLst.objFilter,,,,strErrorRes)‘初始化过滤对象VchLst.InitHeadoColSet.getColInfo()‘初始化表头sHeadXml表头格式信息VchLst.SetPrintOtherInfosXML‘设置打印其它信息-表尾SetdomOption=VchLst.GetListDom(False)‘取得列表对应dom对象bSelecttrue-返回选中行dom对象false-返回整个列表dom对象sXML=‘获取被调整列宽或列序的栏目串VchLst.SetFormatStringfdtrate,0.000000、VchLst.DoFormat‘设置格式化信息VchLst.ClearDataSource‘解除数据邦定VchLst.SetVchLstRstvltable.DataRecordset‘设置表体记录集VchLst.RecordCount=vltable.DataCount‘设置列表全部数据集记录数VchLst.SetSumRstrstSum‘合计记录集CallVchLst.BindPagediv(m_pagediv)‘分页引擎邦定VchLst.AdJustGridWidth‘作废VchLst.ProtectUnload()‘数据合法性检查。当前对象状态安全检查，可在执行某些上层功能时调用。如增加/删除功能、窗口Form_QueryUnload事件等地方PrivateSubButtonClick(strButtonKeyAsString)IfVchLst.ReadOnly=FalseThenIfVchLst.ProtectUnload()2ThenExitSubEndIfEndIfCallVchLst.ShowVoucherDesign(strPrintCardnum,ipvtidStr,SA)‘打印模板设计界面VchLst.AddItem,VchLst.rows‘增加项目VchLst.ShowBatchModify‘调用这个方法显示批量修改窗口//VchLst.AllSelect//VchLst.AllNonelngMainCol=VchLst.GridColIndex(strMainKey)‘根据关键字来获取所在列的索引VchLst.Find‘查找:在定位状态下，查找下一个VchLst.InitPrintSetupstrPrnXml‘初始化打印设置VouchList.VchLstPreview`'预览VchLst.GetGridBody().XXX‘引用UFSpGrid2.ocx，用于直接操作UFSpGrid2控件VchLst.GetGridBody().GetGridBody().XXX‘引用vsflexgrid.ocx，用于直接操作vsflexgrid控件VouchList.Locate'定位SetdomLine=VouchList.GetBodyLine(iRow)‘根据行索引取得表体行dom对象4.事件：PrivateSubVchLst_AfterColumnsDisplayRule()'着色后事件PrivateSubVchLst_BatchModify(sItemXMLAsString)'批改窗口弹出前，对传入批改窗口的xml进行再构造，比如设置参照类型等PrivateSubVchLst_BrowUser(RetValueAsVariant,rowAsLong,ColAsLong)‘单元格编辑参照事件PrivateSubVchLst_CellValueChanged(ByValrowAsInteger,ByValColAsInteger,NewValueAsVariant,OldValueAsVariant,KeepFocusAsBoolean)‘单元格内容变化检查事件PrivateSubVchLst_DblClick()‘双击PrivateSubVchLst_FillList(ByValrAsLong,ByValcAsLong,pComAsObject)‘单元格编辑下拉事件PrivateSubVchLst_MouseUp(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)PrivateSubVchLst_PrintSettingChanged(ByValvarLocalSettingsAsVariant,ByValvarModuleSettingsAsVariant)‘打印信息改变时触发PrivateSubVchLst_RowColChange()‘单据列表支持切换行功能PrivateSubVchLst_SelectClick2(ByValSelectedAsBoolean,ByValrowAsLong)‘SelectClick和SelectClick2使用一个就可以了，而且SelectClick2要逐渐替代SelectClickPrivateSubVchLst_CopySelect(bAutherAsBoolean)‘增加copytocliborad的功能，返回权限。PrivateSubVouchList_BeforeSendCommand(cmdTypeAsU8VouchList.UFCommandType,pageSizeAsLong,pageCurrentAsLong)‘列表翻页事件2.列表控件原有功能说明2.1特性列表控件的安装位置：\U8SOFT\ufcomsql\U8VouchList.ocx列表控件主要用于初报表外的表格样式的展示，包括单据列表、生单列表、个别档案列表等等。列表控件主要和栏目控件配合使用，也可以单独使用。列表控件具备编辑能力，支持文本、数字、下拉框、参照等输入方式。下面介绍列表控件的属性、方法、事件。2.2属性BottomRow属性说明：获取当前显示区域最后一行的索引。只读属性。语法：VouchList1.BottomRow参数说明：无返回值：当前显示区域最后一行的索引ColPoint属性说明：获取与设置某列的小数位数。语法：VouchList1.ColPoint(cFld)=[valueaslong]参数说明：VouchList1：控件名称cFld：列的字段名Value：小数位数EditLocked属性说明：获取或设置控件是否被编辑锁定，锁定后将不能编辑。语法：VouchList1.EditLocked()=[valueasBoolean]参数说明：VouchList1：控件名称Value：true—锁定，不能编辑，false—不锁定，可编辑。FrozenCols属性说明：获取或设置列表控件冻结列的个数。语法：VouchList1.FrozenCols()=[valueasLong]参数说明：VouchList1：控件名称Value：冻结列的个数IsSumSelectedRows属性说明：获取和设置是否只对选中行进行合计。语法：VouchList1.IsSumSelectedRows()=[valueasBoolean]参数说明：VouchList1：控件名称。Value：true--只对打上“Y”的行进行合计；false—对所有行进行合计。LeftCol属性说明：获取和设置当前显示区域最左侧列的索引。语法：VouchList1.LeftCol=[valueasLong]参数说明：Value：当前显示区域最左侧列的索引LoginObj属性说明：获取和设置登录对象，在批改时需要登录对象。如果使用批量替换必须设置该属性，而且在调用ShowBatchModify之前必须设置好，如果不使用批量替换，可以不设置。语法：VouchList1.LoginObj=[valueasObject]参数说明：Value：当前U8的登录对象ReadOnly属性说明：获取和设置控件是否只读。语法：VouchList1.ReadOnly=[valueasBoolean]参数说明：Value：true—只读false—可编辑RightCol属性说明：获取当前显示区域最右侧列的索引。只读属性。语法：Vouch