员工培训管理系统 第14页

员工培训管理系统 第14页
参考文献
[1] 张力科． SQL SERVER 2000 数据库开发技术与工程实践[M]．北京：人民邮电出版社, 2004．
[2] 刘韬，骆娟，何旭洪．VISUAL BASIC 数据库系统开发实例导航(第二版)[M]．北京：人民邮电出版社，2004．
[3] 王彬华．中文VISUAL BASIC 6.0实例教程[M]．成都：电子科技大学出版社，2004．
[4] 李华飚，毕宗睿，李水根．VISUAL BASIC数据库编程[M]．北京：人民邮电出版社，2004．
[5] 王珊，陈红．数据库系统原理教程[M]．北京：清华大学出版社，2003．
[6] 苏中滨，杨涛，陈联成．数据库系统概念与应用[M]．北京：中国水利水电出版社，2003．
[7] 李爱中，周成云，马务充．数据库系统教程[M]．北京：机械工业出版社， 2004．
[8] 孙越．VISUAL BASIC 数据库开发自学教程[M]．北京：人民邮电出版社，2004．
[9] Sean Ｐ Alexander．Microsoft  Advanced  Visual  Basic 6.0 Second Edition[M]．美国：Ｔhe Mandelbrot  Set  International  Ltd，1998．
附录：公用类模块源代码
Option Explicit
Private cnSIMS As ADODB.Connection                 '声明一个连接
Private rsSims As ADODB.Recordset                   '声明一个连接记录集
Public rs1 As ADODB.Recordset                    '声明一个连接到所需表的记录集
Public rs2 As ADODB.Recordset
Public rst As ADODB.Recordset
Private Data As Object                               ' 在类初始化时建立连接
Private Sub Class_Initialize()
    On Error GoTo DbnotOpen
    Set cnSIMS = New ADODB.Connection
    With cnSIMS
    .Provider = conProvide
    .ConnectionString = conString
    .ConnectionTimeout = 10
    .Open
    Set rst = New ADODB.Recordset
    End With
    Exit Sub
DbnotOpen:
    If Err = -2147467259 Then
        Set cnSIMS = Nothing
        MsgBox "连接后台数据库失败！" & vbCrLf & vbCrLf & "请检查配置是否完好,数据库student是否存在?", vbOKOnly + vbInformation, "学生信息管理系统"
        End
    End If
End Sub
'data是一个指向ADO记录集的对象的引用
'用于设置class的数据源内容
Private Sub Class_GetDataMember(DataMember As String, Data As Object)
    Set Data = rsSims
End Sub
'建立一个可以打开记录集的函数，需要是必须把表名传给函数
Public Function rsDK(Table As String)
    Set rsSims = New ADODB.Recordset
    With rsSims
    .Source = Table
    .ActiveConnection = cnSIMS
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open , , , , adCmdTable
    End With
End Function
'建立一个可以打开记录集(动态游标)的函数
'需要把SQL语句传递给函数
Public Function rsDK1(sql As String)
    Set rs1 = New ADODB.Recordset
    With rs1
    .Source = sql
    .ActiveConnection = cnSIMS
.CursorType = adOpenKeyset
    .LockType = adLockOptimistic
   .Open , , , , adCmdText
    End With
End Function
'建立一个可以打开记录集(静态游标)的函数
'需要把SQL语句传递给函数
Public Function rsDK2(sql As String)
    Set rs2 = New ADODB.Recordset
    With rs2
    .Source = sql
    .ActiveConnection = cnSIMS
    .CursorType = adOpenStatic
    .LockType = adLockOptimistic
    .Open , , , , adCmdText
    End With
End Function
'类终止时,释放一切可能占据的资源
Private Sub Class_Terminate()
    Set cnSIMS = Nothing
    Set rs1 = Nothing
    Set rs2 = Nothing
 Set rsSims = Nothing
    Set rst = Nothing
End Sub

 << 上一页  [11] [12] [13] [14] 

员工培训管理系统 第14页下载如图片无法显示或论文不完整，请联系qq752018766