conndb.bas

一个用VB写的通信录程序是一个课程设计很实用

Attribute VB_Name = "Module1"
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public username As String '用户借书证号
Public password As String '用户密码
Public level As String '用户级别
Public money As Double '用户罚金
Public name1 As String '用户姓名

Public SearchFlag As Boolean '是否查找
Public editusername As String '要编辑的借书证号
Public editname As String '要编辑的姓名
Public editpassword As String '要编辑的密码
Public editsubject As String '要编辑的系别
Public editclass As String '要编辑的班级
Public editmoney As Double '要编辑的罚金
Public editlevel As String '要编辑的级别
Public mSave As Boolean '是否保存

Public editbookno As String '要编辑的图书编号
Public editbooktitle As String '要编辑的书名
Public editprice '要编辑的价格
Public editsort As String '要编辑的类别
Public editpress As String '要编辑的出版社
Public editlenddate As Date '要编辑的借出日期
'Public editstock As String '要编辑的库存
Public lendbookno As String '所借书的编号

Public booktotal As Integer  '可以借书的册数
Public bookday As Integer  '可以借书的天数
Public setflag As Boolean '全局标志
Public fine As Single  '超出一天的罚款
'打开数据库连接
Function opendb(querystr, rsmode)
    
    Dim connstr As String
    Dim dbf As String
    dbf = App.Path & "\db1.mdb"
    connstr = "Provider=Microsoft.jet.oledb.4.0;data source= " & dbf
    conn.Open connstr
    If Not querystr = "" Then
        
        Select Case rsmode
               Case "1"
                    rs.Open querystr, conn, 1, 1
               Case "2"
                    rs.Open querystr, conn, 2, 2
               Case "3"
                    rs.Open querystr, conn, 1, 3
               Case Else
                    
                    rs.Open querystr, conn, 1, 1
        End Select
    End If
End Function
'关闭数据库连接
Function closedb()
        rs.Close
        Set rs = Nothing
        conn.Close
        Set conn = Nothing
End Function

Function mopendb()
    Dim connstr As String
    Dim dbf As String
    dbf = App.Path & "\db1.mdb"
    connstr = "Provider=Microsoft.jet.oledb.4.0;data source= " & dbf
    conn.Open connstr
End Function

Function mclosedb()
    conn.Close
    Set conn = Nothing
End Function