資源簡介
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個文件信息
-----------?---------??----------?-----??----
????.......?????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個文件信息
- 上一篇：vb實時曲線圖vb實時曲線圖
- 下一篇：圖書管理系統vb源代碼有代碼，可直接運行
評論
共有 條評論
川公網安備 51152502000135號