基础资料选择组件.txt

系统主控台 1、功能菜单 文件：设置（数据参数、修改密码、系统参数）、注销、退出 帮助：关于、注册、在线升级 2、功能按钮 执行、注销、退出 3、控制台 设置 参数设置：数据

2007/09/29
版本：1.0.1试用版

组件GUID：ChoiceItem.BaseLib

功能描述：
    弹出标准选择窗口，可以选择一个或者多个系统基础资料

组件接口：
    属性：
        setUserID：调用组件的用户内码
        setClassID：组件弹出窗口中显示资料的类内码
        setParentStr：组件初次显示的资料的父级内码集合，例如：|0|2|
        setMapCol：返回资料值对应的表列号的集合，例如：12|1|0|0|0 表示组件返回的值对应在表的12列和1列，0表示不处理.
        setMapType：返回资料的类型，与setMapCol对应
        setMulChoiceSign：是否允许多项选择(True/False)
        getSignRowRes：返回单项选择时返回的数据集合(具体返回的元素，由Ks_ItemClass表FSqlProName字段中指定的存储过程决定,该存储过程的参数有Ks_ItemClassCmdPara中的记录来指定)
        getMulRowRes：返回多项选择返回时的数据集合
                      定义一个集合变量,然后检测上面集合的元素数量，通过循环语句将定义的集合指定给上面集合的元素
                      定义ChoiceItem.RetCls对象，将ChoiceItem.RetCls对象变量指定为上述集合的元素
                      接下来的数据返回同getSignRowRes属性
                      调用代码示例：
                      Dim ErrInfo As String '//错误信息接收变量
                      Dim ComObj As Object '//系统组件对象
                      Dim RetColl As Collection '//系统返回对象集合
                      Dim ObjColl As Collection '//子对象集合
                      Dim iLoop As Long
                      Dim jLoop As Long
                      Dim ResObj As Object '//数据返回对象
                      Set ComObj = CreateObject("ChoiceItem.BaseLib")
                      Set ResObj = CreateObject("ChoiceItem.RetCls")
                      ComObj.setUserID = 1
                      ComObj.setClassID = 3
                      ComObj.setParentStr = "|0|"
                      ComObj.setMapCol = "12|1|0|0|0"
                      ComObj.setMapType = "1|2|0|0|0"
                      ComObj.setMulChoiceSign = True
                      Call ComObj.mShow(ErrInfo, 1)
                      Set RetColl = ComObj.getMulRowRes
                      If RetColl.Count > 0 Then '//判断是否返回了值
                        For iLoop = 1 To RetColl.Count '//循环获取子集合
                         Set ObjColl = RetColl.Item(iLoop)
                         If ObjColl.Count > 0 Then '//判断子集合是否包含数据对象
                          For jLoop = 1 To ObjColl.Count
                           Set ResObj = ObjColl.Item(jLoop)
                            frmText.Text=ResObj.FValue '//获取具体的返回数据
                           Next
                         End If
                        Next
                      End If
                      Set ResObj = Nothing
                      Set ComObj = Nothing
                      Set ObjColl = Nothing
                      Set RetColl =Nothing
    方法：
       mShow ErrInfo,ShowStyle 弹出新增或者修改窗户
             ErrInfo：调用时返回的错误信息，正确调用时返回空字符串
             ShowStyle：组件窗体弹出方式，0:非焦点模式 1:焦点模式