clsjobsmanager.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 = "clsJobsManager"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Dim dbm As clsDBManager
'向jobs表里添加数据
Public Function InsertJobs(PjobsI As clsJobsItem)
    Dim strSql As String
    strSql = "insert into jobs(job_desc,min_lvl,Max_lvl) " _
        & "values('" & PjobsI.Job_desc & _
          "'," & PjobsI.Min_lvl & "," & PjobsI.Max_lvl & ")"
    
    dbm.ExecSQL strSql
End Function
'删除数据
Public Function DeleteJobs(PjobsI As clsJobsItem)
    Dim strSql As String
    strSql = "delete from jobs where 1=1"
    If PjobsI.Job_id <> 0 Then
        strSql = strSql & " and job_id =" & PjobsI.Job_id
    End If
    If PjobsI.Job_desc <> "" Then
        strSql = strSql & " and job_desc='" & PjobsI.Job_desc & "'"
    End If
    dbm.ExecSQL strSql
End Function
'查询数据
Public Function SelectJobs(PjobsI As clsJobsItem, ByRef Prs As ADODB.Recordset) As Collection
    Dim strSql As String
    strSql = "select * from jobs where 1=1"
    
    Dim Rst As New clsRstSet
    Rst.Source = strSql
    Set Prs = dbm.GetRs(Rst)
    Set SelectJobs = dbm.RsToCollection(Prs)
End Function
'初始化(构造函数)    自定义本类的实例时触发
Private Sub Class_Initialize()
    Set dbm = New clsDBManager   '数据库管理类
    Dim dbc As clsDBConfig
    Set dbc = New clsDBConfig    '数据库配置类
    
    dbc.DBType = SqlServer          '数据类型
    dbc.DBName = "pubs"             '数据库名称
    dbc.LoginType = Sql             '登陆类型
    dbc.LoginName = "sa"            '登陆名
    dbc.LoginPwd = "ok"             '登陆密码
    dbc.HostName = "."              '服务器名
    
    dbm.ConToDB dbc              'dbm调用管理类函数ConToDB来连接数据库  参数为dbc
End Sub

'析构函数  当本类的实例的所有引用从内存中删除，或当对象的最后一个引用失去范围时就会触发此事件
Private Sub Class_Terminate()
    dbm.DisCon            '连接数据库关闭
    Set dbm = Nothing     '释放内存
End Sub