U8参照编程指南.doc

U8参照编程指南
下面所有参照ID只用来测试使用,不作最终的参照ID
1、控件引用


2、使用示例
元素据定义参照
属性设置
=
例如:
示例1:直接调用存货参照
调用存货初始化(窗体参照):
=RefArchive
Call (g_oLogin, "Inventory_AA", False, "")
示例2:直接调用仓库档案参照
调用仓库初始化(列表参照)
=RefArchive
Call (g_oLogin, "warehouse_AA",False, "")
其中参数值"Inventory","warehouse"均表示参照ID,
示例3:程序动态设置部分元素据定义示例:
=RefArchive
Call (g_oLogin, "Inventory_AA", False, "")
sMetaXML = "<Ref><RefSet bMultiSel='0' iShowStyle='1' /></Ref>"
Call (g_oLogin, "Inventory", False, sMetaXML)
其参照格式元素据定义:
枚举参照
属性设置:
=
、调用类型1(完整型)
( 其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>"
=
Call (g_oLogin, sXml, False, "")
、调用类型2(简约型)
格式定义:boBox控件的SetEnumMapString("") 格式保持一致
例如:
Dim strEnum As String
strEnum = "是{#}否{##}yes{#}no"
Call (g_oLogin, strEnum, False, "")
、调用类型3(数据库型)
应用场景:对于参照的枚举数据需要从AA_Enum中读取;
格式定义:( 其XML格式定义: )
例如(示例格式为XML简写格式):
Dim sXML As String
sXML = "<Ref><DataSrc>" & _
" <DataGrid provider='DB' cEnumTypeID='' >" & _
"</DataGrid>" & _
"</DataSrc></Ref>"
Call (g_oLogin,