dmqx.bas

ERP中的一个子模块

Attribute VB_Name = "H_DMQX"
'******************************************************************
'   柤徧丗权限分类表(DMQX) ADO 僆僽僕僃僋僩嶌惉
'   棜楌丗2002-04-08 Visual Basic 6.0
'******************************************************************
Option Explicit

'---- 僥乕僽儖柤偺愝掕 ----
Global Const TBL_DMQX = "权限分类表"

'----- 僼傿乕儖僪掕悢 -----
Global Const QXCODE = 0     ' 分类编号     [VARCHAR2:6]
Global Const QXNAME = 1     ' 分类名称     [VARCHAR2:50]
Global Const QXREMK = 2     ' 备考     [VARCHAR2:50]
Global Const QXSUBSYSTEM = 3     ' 子系统名称     [VARCHAR2:20]
Global Const QXPGID = 4     ' 程序编号     [VARCHAR2:20]
Global Const QXPGNM = 5     ' 程序名称     [VARCHAR2:50]
Global Const QXREVERSE1 = 6     ' 待用字段１     [VARCHAR2:20]
Global Const QXREVERSE2 = 7     ' 待用字段２     [VARCHAR2:20]
Global Const QXREVERSE3 = 8     ' 待用字段３     [VARCHAR2:20]
Global Const QXREVERSE4 = 9     ' 待用字段４     [VARCHAR2:20]
Global Const QXCOCODE = 10     ' 会社编号     [VARCHAR2:5]
Global Const QXHBRCODE = 11     ' 本支点编号     [VARCHAR2:3]
Global Const QXIPDATE = 12     ' 登录日     [CHAR:8 (DATE)]
Global Const QXIPTIME = 13     ' 登录时间     [NUMBER:6 (TIME)]
Global Const QXIPID = 14     ' 登录者ID     [VARCHAR2:6]
Global Const QXUPDATE = 15     ' 更新日     [CHAR:8 (DATE)]
Global Const QXUPTIME = 16     ' 更新时间     [NUMBER:6 (TIME)]
Global Const QXUPID = 17     ' 更新者ID     [VARCHAR2:6]

Public Function initDMQX() As AdoOp
' DMQX ADO; 僆僽僕僃僋僩偺嶌惉; 
    Dim tbl as New AdoOp
    ReDim cfg(17) As String

    ' 僼傿乕儖僪柤徧
    cfg(0) = "C|006|0|qxcode"
    cfg(1) = "C|050|0|qxname"
    cfg(2) = "C|050|0|qxremk"
    cfg(3) = "C|020|0|qxsubsystem"
    cfg(4) = "C|020|0|qxpgid"
    cfg(5) = "C|050|0|qxpgnm"
    cfg(6) = "C|020|0|qxreverse1"
    cfg(7) = "C|020|0|qxreverse2"
    cfg(8) = "C|020|0|qxreverse3"
    cfg(9) = "C|020|0|qxreverse4"
    cfg(10) = "C|005|0|qxcocode"
    cfg(11) = "C|003|0|qxhbrcode"
    cfg(12) = "C|008|0|qxipdate"
    cfg(13) = "N|006|0|qxiptime"
    cfg(14) = "C|006|0|qxipid"
    cfg(15) = "C|008|0|qxupdate"
    cfg(16) = "N|006|0|qxuptime"
    cfg(17) = "C|006|0|qxupid"

    Call tbl.InsInit("DMQX", cfg, 17)  ' 僥乕僽儖忣曬愝掕
    Set InitDMQX = tbl
End Function