module1.bas

系统实现了图书的添加

Attribute VB_Name = "Module1"
Public userlevel As String         '保存用户级别
Public flag As Integer             '记录操作标记
Public tna  As String              '保存表名：用于调用edrec1窗体
Public cap  As String              '保存标题名：用于调用edrec1窗体
Public recs As Integer             '保存记录集中记录个数

Sub Main()
   pass.Show vbModal
End Sub

Public Function exesql(ByVal sql As String) As ADODB.Recordset
    sql = Trim$(sql)
    Set conn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    conn.ConnectionString = "DSN=libary;UID=sa;PWD=HZbp0802;"
    conn.Open
    Set rst.ActiveConnection = conn
    rst.LockType = adLockOptimistic
    rst.CursorType = adOpenKeyset
    rst.Open sql
    Set exesql = rst
    Set rst = Nothing
    Set conn = Nothing
End Function

Public Sub deldata(ByVal tn As String)
    Dim sql As String
    sql = "delete" & Trim$(tn)
    Set conn = New ADODB.Connection
    conn.ConnectionString = "DSN=libary;UID=sa;PWD=HZbp0802;"
    conn.Open
    conn.execuet sql
    If Trim(tn) = "open" Then
        sql = "insert oper values('admin','admin','系统管理员')"
        conn.execuet sql
    End If
    conn.Close
End Sub

Public Sub endata(keyasc As Integer)
    If keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Sub