module1.bas

一个用vb做的课程设计,功能强大.基本上包括实际应用的所有功能,当时也是得分很高.

Attribute VB_Name = "Module1"
Public gUserName As String
Public flag As Integer
Public gSQL As String
Public iflag As Integer


Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo TransactSQL_Error
   strConnection = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "\table.mdb"
   strArray = Split(sql)
   con.Open strConnection
   If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
      rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic
      Set TransactSQL = rs
      iflag = 1
    Else
    con.Execute sql
    iflag = 1
    End If
TransactSQL_Exit:
    Set rs = Nothing
    Set con = Nothing
    Exit Function
    
TransactSQL_Error:
    MsgBox "查询错误：" & Err.Description
    iflag = 2
    Resume TransactSQL_Exit
    End Function
    Public Sub TabToEnter(Key As Integer)
    If Key = 13 Then
    SendKeys "{TAB}"
    End If
    End Sub
    Sub main()
    Dim fLogin As New Frmlogin
    fLogin.Show vbModual
    
    End Sub