西南大學網絡教育學院畢業設計西南大學網絡教育學院畢業設計共共46頁第#頁fMainForm.addcourseMenu.Enabled=FalsefMainForm.addresultMenu.Enabled=FalsefMainForm.addsinfoMenu.Enabled=FalsefMainForm.adduserMenu.Enabled=FalsefMainForm.modifycinfoMenu.Enabled=FalsefMainForm.modifycourseMenu.Enabled=FalsefMainForm.modifypwdMenu.Enabled=FalsefMainForm.modifyresultMenu.Enabled=FalsefMainForm.modifysinfo_Menu.Enabled=FalsefMainForm.gradecourseMenu.Enabled=FalsefMainForm.ShowEndIfEndSubPublicFunctionConnectString()_AsStringConnectString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=student.mdb;PersistSecurityInfo=False"EndFunctionPublicFunctionExecuteSQL(ByValSQLAsString,MsgStringAsString)AsADODB.RecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStringOnErrorGoToExecuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenConnectStringIfInStr("INSERT,DELETE,UPDATE",UCase$(sTokens(0)))Thencnn.ExecuteSQLMsgString=sTokens(0)&"querysuccessful"ElseSetrst=NewADODB.Recordsetrst.OpenTrim$(SQL),cnn,adOpenKeyset,adLockOptimisticSetExecuteSQL=rstMsgString="查詢到"&rst.RecordCount&"條記錄"EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString="查詢錯誤:"&Err.DescriptionResumeExecuteSQL_ExitEndFunctionPublicFunctionTesttxt(txtAsString)AsBooleanIfTrim(txt)=""ThenTesttxt=FalseElseTesttxt=TrueEndIfEndFunction添加學籍信息原代碼：PrivateSubCommand1_Click()DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgTextAsStringIfNotTesttxt(txtSID.Text)ThenMsgBox"請輸入學號！",vbOKOnly+vbExclamation,"警告"txtSID.SetFocusExitSubEndIfIfNotTesttxt(txtName.Text)ThenMsgBox"請輸入姓名！",vbOKOnly+vbExclamation,"警告"txtName.SetFocusExitSubEndIfIfNotTesttxt(comboSex.Text)ThenMsgBox"請選擇性別！",vbOKOnly+vbExclamation,"警告"comboSex.SetFocusExitSubEndIfIfNotTesttxt(txtBorndate.Text)ThenMsgBox"請輸入出生日期！",vbOKOnly+vbExclamation,"警告"txtBorndate.SetFocusExitSubEndIfIfNotTesttxt(comboClassNo.Text)ThenMsgBox"請選擇班號！",vbOKOnly+vbExclamation,"警告"comboClassNo.SetFocusExitSubEndIfIfNotTesttxt(txtTel.Text)ThenMsgBox"請輸入聯系電話！",vbOKOnly+vbExclamation,"警告"txtTel.SetFocusExitSubEndIfIfNotTesttxt(txtRudate.Text)ThenMsgBox"請輸入入校日期！",vbOKOnly+vbExclamation,"警告"txtRudate.SetFocusExitSubEndIfIfNotTesttxt(txtAddress.Text)ThenMsgBox"請輸入家庭住址！",vbOKOnly+vbExclamation,"警告"txtAddress.SetFocusExitSubEndIfIfNotIsNumeric(Trim(txtSID.Text))ThenMsgBox"請輸入數字！",vbOKOnly+vbExclamation,"警告"ExitSubtxtSID.SetFocusEndIftxtSQL="select*fromstudent_Infowherestudent_ID="&Trim(txtSID.Text)'&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.RecordCount<>0ThenMsgBox"學號重復，請重新輸入！",vbOKOnly+vbExclamation,"警告"mrc.ClosetxtSID.SetFocusElsemrc.CloseIfNotIsDate(txtBorndate.Text)ThenMsgBox"出生時間應輸入日期格式(yyyy-mm-dd)!",vbOKOnly+vbExclamation,"警告"txtBorndate.SetFocusElsetxtBorndate=Format(txtBorndate,"yyyy-mm-dd")IfNotIsDate(txtRudate.Text)ThenMsgBox"入校時間應輸入日期格式(yyyy-mm-dd)!",vbOKOnly+vbExclamation,"警告"txtRudate.SetFocusElsetxtRudate=Format(txtRudate,"yyyy-mm-dd")txtSQL="select*fromstudent_Info"Setmrc=ExecuteSQL(txtSQL,MsgText)mrc.AddNewmrc.Fields(0)=Trim(txtSID.Text)mrc.Fields(1)=Trim(txtName.Text)mrc.Fields(2)=Trim(comboSex.Text)mrc.Fields(3)=Trim(txtBorndate.Text)mrc.Fields(4)=Trim(comboClassNo.Text)mrc.Fields(5)=Trim(txtTel.Text)mrc.Fields(6)=Trim(txtRudate.Text)mrc.Fields(7)=Trim(txtAddress.Text)mrc.Fields(8)=Trim(txtComment.Text)mrc.UpdateMsgBox"添加學籍信息成功！",vbOKOnly+vbExclamation,"警告〃mrc.CloseMe.HideEndIfEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgTextAsStringDimiAsIntegercomboSex.AddItem"男"comboSex.AddItem"女"txtSQL="select*fromclass_Info"Setmrc=ExecuteSQL(txtSQL,MsgText)Fori=1Tomrc.RecordCountcomboClassNo.AddItemmrc.Fields(0)mrc.MoveNextNe