global.cls

VB财务软件系统下载源代码提供自由下载使用学习

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Global"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
'--------------------------------
'时间:2001.11.12
'版权:北京用友软件股份有限公司
'设计:章景峰
'编码:章景峰
'说明:U8资金管理---实体对象
'--------------------------------
Option Explicit

'----域类型
Enum FieldOptionEnum
    esoMustBeSelected = 0        '----系统预置必选项目
    esoCanBeSelected             '----系统预置可选项目
    esoUserDefined               '----自定义项目
End Enum

'----域对象的可编辑属性
Enum EditPropertyEnum
    esoReadAndWrite = 0          '----可读写
    esoReadOnly                  '----只读
    esoNotVisible                '----不可见
End Enum

'----数据类型
Enum DataTypeEnum
    esoString = 1
    esoDate
    esoCurrency
    esoDouble
    esoLong
    esoBoolean
    esoMemo         '----备注型
    esoLabel        '----标签型
    esoID
End Enum

'----Entity object state enumeration
Enum EntityStateEnum
    esoInitialized = 0     '----初始化
    esoInstance            '----实例化
    esoAddNew              '----新增
    esoEdit                '----编辑
    esoDelete              '----删除
End Enum

'----
Enum ItemEnum
    itmIndexOrKey = 0
    itmCaption
End Enum

'----移动方式
Enum MoveModeEnum
    esoFirst = 0     '----移动到第一条记录
    esoPrevious      '----移动到上一条记录
    esoCurrent       '----移动到当前OID所代表的记录
    esoNext          '----移动到下一条记录
    esoLast          '----移动到最后一条记录
End Enum

'----Clone 方式
Enum CloneModeEnum
    esoStructureOnly = 0
    esoStructureAndData
End Enum