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

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

    .......     85868  2003-01-05 12:26  学生管理系统\schoolgroup\ADDCLASS.FRM

    .......        56  2003-01-05 12:26  学生管理系统\schoolgroup\ADDCLASS.FRX

    .......     22040  2003-01-05 12:26  学生管理系统\schoolgroup\addclasss.frm

    .......        56  2003-01-05 12:26  学生管理系统\schoolgroup\addclasss.frx

    .......    136075  2003-01-05 12:26  学生管理系统\schoolgroup\addcourse.frm

    .......        56  2003-01-05 12:26  学生管理系统\schoolgroup\addcourse.frx

    .......    136024  2003-01-05 12:26  学生管理系统\schoolgroup\addcourse2.frm

    .......        56  2003-01-05 12:26  学生管理系统\schoolgroup\addcourse2.frx

    .......        56  2003-01-05 12:26  学生管理系统\schoolgroup\addcoursee.frx

    .......     28845  2003-01-05 12:26  学生管理系统\schoolgroup\addcoutable.frm

    .......       957  2003-01-05 12:26  学生管理系统\schoolgroup\ADDCOU~2.LOG

    .......       859  2003-01-05 12:26  学生管理系统\schoolgroup\ADDCOU~3.LOG

    .......     24711  2003-01-05 12:26  学生管理系统\schoolgroup\addleague.frm

    .......      1090  2003-01-05 12:26  学生管理系统\schoolgroup\addleague.frx

    .......      9455  2003-01-05 12:26  学生管理系统\schoolgroup\addonegradecourse.frm

    .......     38353  2003-01-05 12:26  学生管理系统\schoolgroup\ADDROOM.FRM

    .......        56  2003-01-05 12:26  学生管理系统\schoolgroup\ADDROOM.FRX

    .......     49583  2003-01-05 12:26  学生管理系统\schoolgroup\ADDROOM1.FRM

    .......        56  2003-01-05 12:26  学生管理系统\schoolgroup\ADDROOM1.FRX

    .......     38637  2003-01-05 12:26  学生管理系统\schoolgroup\addroom1frm.frm

    .......        56  2003-01-05 12:26  学生管理系统\schoolgroup\addroom1frm.frx

    .......     38423  2003-01-05 12:26  学生管理系统\schoolgroup\addroomfrm.frm

    .......        56  2003-01-05 12:26  学生管理系统\schoolgroup\addroomfrm.frx

    .......     34997  2003-01-05 12:26  学生管理系统\schoolgroup\ADDSCORE.FRM

    .......      1090  2003-01-05 12:26  学生管理系统\schoolgroup\ADDSCORE.FRX

    .......     31172  2003-01-05 12:26  学生管理系统\schoolgroup\addscoree.frm

    .......      1090  2003-01-05 12:26  学生管理系统\schoolgroup\addscoree.frx

    .......     42316  2003-01-05 12:26  学生管理系统\schoolgroup\ADDSTUD.FRM

    .......        84  2003-01-05 12:26  学生管理系统\schoolgroup\ADDSTUD.FRX

    .......     13543  2003-01-05 12:26  学生管理系统\schoolgroup\addstudbad.frm

............此处省略90个文件信息