xxxx18一60岁hd中国/日韩女同互慰一区二区/西西人体扒开双腿无遮挡/日韩欧美黄色一级片 - 色护士精品影院www

資源簡(jiǎn)介

vb學(xué)生管理系統(tǒng)源代碼 部分代碼 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 '用來(lái)存放返回信息 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 = "查詢錯(cuò)誤：" & 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

資源截圖

代碼片段和文件信息

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

????.......?????85868??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\ADDCLASS.FRM

????.......????????56??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\ADDCLASS.FRX

????.......?????22040??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addclasss.frm

????.......????????56??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addclasss.frx

????.......????136075??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addcourse.frm

????.......????????56??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addcourse.frx

????.......????136024??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addcourse2.frm

????.......????????56??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addcourse2.frx

????.......????????56??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addcoursee.frx

????.......?????28845??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addcoutable.frm

????.......???????957??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\ADDCOU~2.LOG

????.......???????859??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\ADDCOU~3.LOG

????.......?????24711??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addleague.frm

????.......??????1090??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addleague.frx

????.......??????9455??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addonegradecourse.frm

????.......?????38353??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\ADDROOM.FRM

????.......????????56??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\ADDROOM.FRX

????.......?????49583??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\ADDROOM1.FRM

????.......????????56??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\ADDROOM1.FRX

????.......?????38637??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addroom1frm.frm

????.......????????56??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addroom1frm.frx

????.......?????38423??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addroomfrm.frm

????.......????????56??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addroomfrm.frx

????.......?????34997??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\ADDSCORE.FRM

????.......??????1090??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\ADDSCORE.FRX

????.......?????31172??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addscoree.frm

????.......??????1090??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addscoree.frx

????.......?????42316??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\ADDSTUD.FRM

????.......????????84??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\ADDSTUD.FRX

????.......?????13543??2003-01-05?12:26??學(xué)生管理系統(tǒng)\schoolgroup\addstudbad.frm

............此處省略90個(gè)文件信息

評(píng)論

共有 條評(píng)論