commoncls.cls

本代码适合初学数据库者学习借鉴

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CommonCls"
Attribute VB_GlobalNameSpace = True
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
'保持属性值的局部变量
Private mvarKeyString As String '局部复制
Private MydsEncrypt As New dsEncrypt
Public Property Let KeyString(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.KeyString = 5
    mvarKeyString = vData
End Property


Public Property Get KeyString() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.KeyString
    KeyString = mvarKeyString
End Property




Public Function DeEncrypt(InputString As String, SolutionId As Integer, PassString As String) As String
' SolutionId 加解密方案, PassString 调用密码

If KeyString = "" Or KeyString = "0" Then KeyString = "REGITSIEMANYM"
Set MydsEncrypt = New dsEncrypt
MydsEncrypt.KeyString = Me.KeyString
DeEncrypt = MydsEncrypt.Encrypt(InputString)
Set MydsEncrypt = Nothing

End Function


Public Function Encrypt(InputString As String, SolutionId As Integer, PassString As String) As String

' SolutionId 加解密方案, PassString 调用密码
If KeyString = "" Or KeyString = "0" Then KeyString = "REGITSIEMANYM"
Set MydsEncrypt = New dsEncrypt
MydsEncrypt.KeyString = Me.KeyString
Encrypt = MydsEncrypt.Encrypt(InputString)
Set MydsEncrypt = Nothing

End Function