baselib.cls

一套企业设备管理系统源代码,所有的业务单据和流程都可以自定义,业务报表也可以通过SQL的存储过程来定义.

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

'//类属性
'--用户内码
Public Property Let setUserID(ByVal cUserID As Long)
 BaseDllLib.setUserID = cUserID
End Property
'--数据类型内码
Public Property Let setItemID(ByVal cItemID As Long)
 BaseDllLib.setItemID = cItemID
End Property
'--数据内码
Public Property Get getItemID() As Long
 getItemID = SysPara.FItemID
End Property
'--数据名称
Public Property Get getItemName() As String
 getItemName = SysPara.FName
End Property

'//类方法
Public Function mShow(ByRef ErrInfo As String, ByVal ShowSign As Long) As Long
 On Error GoTo ErrHandle
 frmMain.Show ShowSign
 ErrInfo = ""
 mShow = 0
 Exit Function
ErrHandle:
 ErrInfo = "执行错误：" & Chr(13) & "    错误编码：" & Err.Number & Chr(13) & "    错误信息：" & Err.Description
 mShow = 1
End Function

Private Sub Class_Initialize()
 Set BaseDllLib = CreateObject("BaseDllLib.BaseLib")
 Set DataLibType = CreateObject("BaseDllLib.DataType")
 Set ItemText = CreateObject("BaseDllLib.ItemText")
 With SysPara
  .ResLibIco = App.Path & "\ResLib\Ico\"
 End With
End Sub

Private Sub Class_Terminate()
 Set DataLibType = Nothing
 Set BaseDllLib = Nothing
 Set ItemText = Nothing
End Sub