module1.bas

简单的图书管理系统

Attribute VB_Name = "Module1"
Public userlevel As String
Public flag As String
Public tna As String
Public cap As String
Public recs As String
Sub Main()
pass.Show vbModal
End Sub
Public Function exesql(ByVal sql As String)
sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "DSN=Library;UID=sa;PWD=;"
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=Library;UID=sa;PWD=;"
conn.Open
conn.Execute sql
If Trim(tn) = "user" Then
sql = "insert user values ('admin','123456','系统管理员')"
conn.Execute sql
End If
conn.Close

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

End Sub