U8参照编程指南.doc

U8参照编程指南 下面所有参照ID只用来测试使用，不作最终的参照ID 1、控件引用 2、使用示例 2.1 元素据定义参照 属性设置 RefEdit.RefType= Reftypes.RefArchive 例如： 示例1：直接调用存货参照 调用存货初始化（窗体参照）： EdtArchive.RefType=RefArchive Call Me.EdtArchive.Init(g_oLogin, Inventory_AA, False, ) 示例2：直接调用仓库档案参照 调用仓库初始化（列表参照） EdtArchive.RefType=RefArchive Call Me.EdtArchive.Init(g_oLogin, warehouse_AA,False, ) 其中参数值Inventory,warehouse均表示参照ID， 示例3：程序动态设置部分元素据定义示例： EdtArchive.RefType=RefArchive Call Me.EdtArchive.Init(g_oLogin, Inventory_AA, False, ) sMetaXML = RefRefSet bMultiSel=0 iShowStyle=1 //Ref Call EdtArchiveUser.Init(g_oLogin, Inventory, False, sMetaXML) 其参照格式元素据定义：参照元素据定义.xml 2.2 枚举参照 属性设置： EdtRefEnum.RefType = Reftypes.RefEnumType 2.2.1、调用类型1（完整型） （ 其XML格式定义： 参照枚举元素据参数定义.xml） 例如： Dim sXml As String sXml = Ref _ RefSet cRetFld=code cCheckFlds=code,name cShowFld=name _ /RefSet _ DataSrc _ DataGrid provider=XML cDataSrcID= _ Item code=0 name=无换算率/ _ Item code=1 name=固定换算率/ _ Item code=2 name=浮动换算率/ _ /DataGrid _ /DataSrc _ RefColSet _ U8ColSet _ Data _ ColSet cFld=code bDisp=1 cCaption= iColWidth=0 iAlign=1/ _ ColSet cFld=name bDisp=1 cCaption= iColWidth=1500 iAlign=1/ _ /Data _ /U8ColSet _ /RefColSet _ /Ref EdtRefEnum.RefType = Reftypes.EnumType Call Me.EdtRefEnum.Init(g_oLogin, sXml, False, ) 2.2.2、调用类型2（简约型） 格式定义：同UFComboBox控件的SetEnumMapString() 格式保持一致 例如： Dim strEnum As String strEnum = 是{#}否{##}yes{#}no Call Me.EdtRefEnum.Init(g_oLogin, strEnum, False, ) 2.2.3、调用类型3（数据库型） 应用场景：对于参照的枚举数据需要从AA_Enum中读取； 格式定义：（ 其XML格式定义： 参照枚举元素据参数定义.xml） 例如（示例格式为XML简写格式）： Dim sXML As String sXML = RefDataSrc _ DataGrid provider=DB cEnumTypeID=AA.ARCHIVE.boolean _ /DataGrid _ /DataSrc/Ref Call RefEditEnumDB.Init(g_oLogin, sXML, False, ) 2.3 日历调用 直接设置属性： EdtDate.RefType = Reftypes.Ref