mdlpublic.bas

u8

Attribute VB_Name = "mdlPublic"
'--------------------------------
'时间:2001.11.12
'版权:北京用友软件股份有限公司
'设计:章景峰
'编码:章景峰
'说明:U8资金管理---数据对象
'--------------------------------
Option Explicit

Public Const ErrNoUpdatedRecords            As Long = vbObjectError + 3101
Public Const ErrRecordHasLocked             As Long = vbObjectError + 3102
Public Const ErrRecordCannotBeUnlocked      As Long = vbObjectError + 3103

Public con As New ADODB.Connection