【文件属性】：
文件名称：vb学生管理系统源代码
文件大小：210KB
文件格式：RAR
更新时间：2016-12-24 13:15:58
vb 学生 管理系统
vb学生管理系统源代码
部分代码
Public UserName As String
Public txtSQL As String 'use to store record SQLsentence
Public dream As ADODB.Recordset 'use to store record object
Public Msgtext As String '用来存放返回信息
Public OK As Boolean '
'Public db As String
Public Sub highlight()
With Screen.ActiveForm
If (TypeOf .ActiveControl Is TextBox) Then
.ActiveControl.SelStart = 0
.ActiveControl.SelLength = Len(.ActiveControl)
End If
End With
End Sub
Sub Main()
'Dim Login As New Login
'Login.Show vbModal
'f Not Login.OK Then
'Login Failed so exit app
' End
'End If
'Unload studentmdi
' Set login = New login
login.Show
End Sub
Public Function connectstring() As String
connectstring = "Provider=Microsoft.jet.OLEDB.3.51;Data source=f:\schoolgroup\school.mdb"
End Function
Public Function ExecuteSQL(ByVal SQL As String, Msgstring As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
cnn.Open connectstring
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
cnn.ExecuteSQL
Msgstring = sTokens(0) & "query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim(SQL), cnn, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
Msgstring = "查询到" & rst.RecordCount & " 条记录"
End If
executeSQL_exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_Error:
Msgstring = "查询错误：" & err.Description
Resume executeSQL_exit
End Function
Public Function Testtxt(txt As String) As Boolean
If Trim(txt) = "" Then
Testtxt = False
Else
Testtxt = True
End If
End Function