clstranspara.cls

用VB实现的数据库转换工具,可以将DBF转换为Access数据库

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsTransPara"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

'APOLLO定义表
Public m_ApoName As String
Public m_ApoType As String
Public m_ApoUnit As String
Public m_ApoAddr As String
Public m_Aporaw_zero As String
Public m_Aporaw_full As String
Public m_Apoeng_zero As String
Public m_Apoeng_full As String
Public m_Apoeng_units As String
Public m_Apoformat As String
Public m_Apocomment As String
Public m_Apoeditcode As String
Public m_Apolinked As String
Public m_Apooid As String

'GST定义表
Public m_GstControllID As String
Public m_GstLoopID As String
Public m_GstOneCode As String
Public m_GstDeviceNumber As String
Public m_GstZoneID As String