mclient.bas

原代码学生信息管理系统（原代码）不够的的话我给原程序 QQ3810091

Attribute VB_Name = "MClient"
Option Explicit
Public strUserName As String                   '用户名称
Public iflag As Integer                        '是否连接成功标志
Public ichangeFlag As Integer                  '修改标志
Public strPublicSQL As String                  '传递SQL字符串

Public Function getRS(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 getRS_Error
    strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\"
    strConnection = strConnection & "Client.mdb"
    strArray = Split(sql)
    con.Open strConnection                      '打开连接
        rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic
        Set getRS = rs                          '返回记录集
        iflag = 1
getRS_Exit:
    Set rs = Nothing
    Set con = Nothing
    Exit Function
getRS_Error:
    MsgBox "查询错误：" & Err.Description
    iflag = 2
    Resume getRS_Exit
End Function

Public Sub TransactSQL(ByVal sql As String)
Dim con As ADODB.Connection
Dim strConnection As String
Dim strArray() As String
Set con = New ADODB.Connection                  '创建连接
On Error GoTo TransactSQL_Error
    strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\"
    strConnection = strConnection & "Client.mdb"
    strArray = Split(sql)
    con.Open strConnection                      '打开连接
    con.Execute sql                             '执行命令
    iflag = 1
TransactSQL_Exit:
    Set con = Nothing
    Exit Sub
TransactSQL_Error:
    MsgBox "查询错误：" & Err.Description
    iflag = 2
    Resume TransactSQL_Exit
End Sub



Public Sub TabToEnter(Key As Integer)
    If Key = 13 Then                            '判断是否为回车键
    SendKeys "{TAB}"                            '转换为Tab键
    End If
End Sub

Sub main()
    Dim fLogin As New frmLogin
    fLogin.Show                                 '显示窗体
End Sub