西南大學(xué)網(wǎng)絡(luò)教育學(xué)院畢業(yè)設(shè)計(jì)西南大學(xué)網(wǎng)絡(luò)教育學(xué)院畢業(yè)設(shè)計(jì)共共46頁(yè)第#頁(yè)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="查詢錯(cuò)誤:"&Err.DescriptionResumeExecuteSQL_ExitEndFunctionPublicFunctionTesttxt(txtAsString)AsBooleanIfTrim(txt)=""ThenTesttxt=FalseElseTesttxt=TrueEndIfEndFunction添加學(xué)籍信息原代碼：PrivateSubCommand1_Click()DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgTextAsStringIfNotTesttxt(txtSID.Text)ThenMsgBox"請(qǐng)輸入學(xué)號(hào)！",vbOKOnly+vbExclamation,"警告"txtSID.SetFocusExitSubEndIfIfNotTesttxt(txtName.Text)ThenMsgBox"請(qǐng)輸入姓名！",vbOKOnly+vbExclamation,"警告"txtName.SetFocusExitSubEndIfIfNotTesttxt(comboSex.Text)ThenMsgBox"請(qǐng)選擇性別！",vbOKOnly+vbExclamation,"警告"comboSex.SetFocusExitSubEndIfIfNotTesttxt(txtBorndate.Text)ThenMsgBox"請(qǐng)輸入出生日期！",vbOKOnly+vbExclamation,"警告"txtBorndate.SetFocusExitSubEndIfIfNotTesttxt(comboClassNo.Text)ThenMsgBox"請(qǐng)選擇班號(hào)！",vbOKOnly+vbExclamation,"警告"comboClassNo.SetFocusExitSubEndIfIfNotTesttxt(txtTel.Text)ThenMsgBox"請(qǐng)輸入聯(lián)系電話！",vbOKOnly+vbExclamation,"警告"txtTel.SetFocusExitSubEndIfIfNotTesttxt(txtRudate.Text)ThenMsgBox"請(qǐng)輸入入校日期！",vbOKOnly+vbExclamation,"警告"txtRudate.SetFocusExitSubEndIfIfNotTesttxt(txtAddress.Text)ThenMsgBox"請(qǐng)輸入家庭住址！",vbOKOnly+vbExclamation,"警告"txtAddress.SetFocusExitSubEndIfIfNotIsNumeric(Trim(txtSID.Text))ThenMsgBox"請(qǐng)輸入數(shù)字！",vbOKOnly+vbExclamation,"警告"ExitSubtxtSID.SetFocusEndIftxtSQL="select*fromstudent_Infowherestudent_ID="&Trim(txtSID.Text)'&"'"Setmrc=ExecuteSQL(txtSQL,MsgText)Ifmrc.RecordCount<>0ThenMsgBox"學(xué)號(hào)重復(fù)，請(qǐng)重新輸入！",vbOKOnly+vbExclamation,"警告"mrc.ClosetxtSID.SetFocusElsemrc.CloseIfNotIsDate(txtBorndate.Text)ThenMsgBox"出生時(shí)間應(yīng)輸入日期格式(yyyy-mm-dd)!",vbOKOnly+vbExclamation,"警告"txtBorndate.SetFocusElsetxtBorndate=Format(txtBorndate,"yyyy-mm-dd")IfNotIsDate(txtRudate.Text)ThenMsgBox"入校時(shí)間應(yīng)輸入日期格式(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"添加學(xué)籍信息成功！",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