EBU客户化开发基本能力提升手册(V890版)(8)

ERP事业部咨询实施客户化开发部

cEntityNameFld='cWhName'> \

\ \

\ \ \ \

\

\ \

\ \

\ \ \ End Select End Sub

第三步：实现获取数据方法

Public Sub GetSrvData(sRefID As String, sXML As String, RstClass As ADODB.Recordset, RstGrid As ADODB.Recordset, RstColSet As ADODB.Recordset, sMsg As String, bFlag As Boolean)

If bLogin = False Then MsgBox \ Exit Sub End If

Dim cnn As New ADODB.Connection Dim sWhereSql As String

cnn.ConnectionString = g_oLogin.ufdbname cnn.Open bFlag = True

If Len(sXML) > 0 Then

Dim dom As New DOMDocument Call dom.loadXML(sXML)

sWhereSql = dom.documentElement.selectSingleNode(\ If Len(sWhereSql) > 0 Then

sWhereSql = \ End If End If

Select Case LCase(sRefID) Case \

bFlag = GetRst(cnn, \cast(0 as bit) as bRefSelectColumn cInvCCode,cInvCName from inventoryclass\

If bFlag = True Then

bFlag = GetRst(cnn, \cInvCode,cInvName from Inventory\+ sWhereSql, RstGrid, sMsg)

End If

第36页 共 329页

ERP事业部咨询实施客户化开发部

Case \

bFlag = GetRst(cnn, \cast(0 as bit) as bRefSelectColumn cWhcode,cWhName from warehouse\

End Select cnn.Close

Set cnn = Nothing End Sub 1.2.2.2.6 完全自定义

设置属性：

EdtArchive.RefType = RefTypes.RefUserBrowse 自己实现控件消息

EditArchive_UserBrowse(sXML) 1.2.2.2.7 RichText

编辑框

直接设置属性：

EdtDate.RefType = Reftypes. RefRichText

1.2.2.2.8 Web

参照调用

Web参照调用和C/S的VB调用基本相同：其加载步骤如下： 1、加载RefEdit控件到Web页面 2、设置属性

3、初始化Init接口

配置文件：

1、注册组件：U8WebRefS.dll

2、将文件U8WebRefS.ASP 放在虚拟目录的根目录下即可

1.2.2.2.8.1 示例1：调用存货档案

1、设置属性：