學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)(doc畢業(yè)設(shè)計(jì)論文)-wenkub.com
2025-06-23 09:44 本頁(yè)面
【正文】 Set mrc = executesql(txtsql, msgtext)If = False ThenMsgBox 這個(gè)學(xué)生的這門(mén)成績(jī)已錄過(guò)!, vbOKOnly, 警告Exit SubElse(student_id) = xh(course_no) = kz(score) = Val()MsgBox 寫(xiě)入成功!, vbOKOnly = End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim mrc As Dim txtsql As StringDim msgtext As Stringtxtsql = select distinct classname from student_infoSet mrc = executesql(txtsql, msgtext)While ( = False) (classname)Wendtxtsql = select course_no,course_name from course_infoSet mrc = executesql(txtsql, msgtext)While ( = False) (course_no) amp。and course_no=39。 (student_name)WendEnd SubPrivate Sub Command1_Click()Dim xh As StringDim kz As StringDim mrc As Dim txtsql As StringDim msgtext As StringIf = ThenMsgBox 您還沒(méi)有選擇課程!Exit SubEnd IfIf = ThenMsgBox 您還沒(méi)有選擇學(xué)生學(xué)號(hào)!Exit SubEnd IfIf Not IsNumeric() ThenMsgBox 分?jǐn)?shù)輸入不為數(shù)字!Exit SubEnd Ifkz = Left(, InStr(1, , ) 1)xh = Left(, InStr(1, , ) 1)txtsql = select * from student_course_info where student_id=39。 amp。Set mrc = executesql(txtsql, msgtext)If = False ThenMsgBox 這個(gè)學(xué)生的這門(mén)成績(jī)已刪除!, vbOKOnly, 提示Exit SubElse(student_id) = xh(course_no) = kz(score) = Val()MsgBox 刪除成功!, vbOKOnly = End IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim mrc As Dim txtsql As StringDim msgtext As Stringtxtsql = select distinct classname from student_infoSet mrc = executesql(txtsql, msgtext)While ( = False) (classname)Wendtxtsql = select course_no,course_name from course_infoSet mrc = executesql(txtsql, msgtext)While ( = False) (course_no) amp。and course_no=39。executesql txtsql, msgtextIf sqlSucc Then MsgBox 這個(gè)學(xué)生的這門(mén)成績(jī)已修改!, vbOKOnly, 提示Else MsgBox 修改不成功!, vbOKOnlyEnd IfEnd SubPrivate Sub Command2_Click()Dim xh As StringDim kz As StringDim mrc As Dim txtsql As StringDim msgtext As StringIf = ThenMsgBox 您還沒(méi)有選擇課程!Exit SubEnd IfIf = ThenMsgBox 您還沒(méi)有選擇學(xué)生學(xué)號(hào)!Exit SubEnd IfIf Not IsNumeric() ThenMsgBox 分?jǐn)?shù)輸入不為數(shù)字!Exit SubEnd Ifkz = Left(, InStr(1, , ) 1)xh = Left(, InStr(1, , ) 1)txtsql = delete * from student_info where student_id=39。and course_no=39。 where student_id=39。Set mrc = executesql(txtsql, msgtext)While ( = False) (student_id) amp。End IfEnd SubPrivate Sub Command2_Click(Index As Integer)Unload MeEnd SubPrivate Sub Form_Load() 學(xué)號(hào) 姓名 課程號(hào) = 學(xué)號(hào)End Sub附錄2修改成績(jī)代碼：Private Sub Combo1_Click()Dim mrc As Dim txtsql As StringDim msgtext As Stringtxtsql = select student_id,student_name from student_info where classname=39。End IfIf = 課程號(hào) Then = select * from student_course_info where course_no=39。End IfIf = 姓名 Then = select * from student_course_info where student_name=39。End IfEnd SubPrivate Sub Command2_Click(Index As Integer)Unload MeEnd SubPrivate Sub Form_Load() 學(xué)號(hào) 姓名 課程號(hào) = 學(xué)號(hào)End SubPrivate Sub Command1_Click(Index As Integer)If Trim() = ThenMsgBox 請(qǐng)輸入檢索詞Exit SubEnd IfIf = 學(xué)號(hào) Then = select * from student_course_info where student_id=39。End If If = 課程號(hào) Then = select * from student_course_info where course_no=39。End IfIf = 姓名 Then = select * from student_course_info where student_name=39。在我的畢業(yè)設(shè)計(jì)從開(kāi)題到完成的時(shí)間里，白老師的態(tài)度極其認(rèn)真、嚴(yán)謹(jǐn)?shù)闹螌W(xué)風(fēng)格，使我受益匪淺；雖然他課時(shí)比較多，但仍以極大的耐心對(duì)我的畢業(yè)設(shè)計(jì)從各方面啟發(fā)我，謹(jǐn)此向指導(dǎo)我的老師致以深深的謝意！ （全文共10,365字）附錄附錄1查詢(xún)成績(jī)代碼：Private Sub Command1_Click(Index As Integer)If Trim() = ThenMsgBox 請(qǐng)輸入檢索詞Exit SubEnd IfIf = 學(xué)號(hào) Then = select * from student_course_info where student_id=39。開(kāi)闊了視野，增長(zhǎng)了知識(shí)，積累了經(jīng)驗(yàn)。：經(jīng)過(guò)三天的精心測(cè)試，檢測(cè)工作已完成，發(fā)現(xiàn)了一些錯(cuò)誤并改正了，保證了軟件的完善性、正確性，到目前為止，我并沒(méi)有發(fā)現(xiàn)邏輯上的錯(cuò)誤，因此，我的軟件開(kāi)發(fā)是成功的、有效的，實(shí)現(xiàn)了當(dāng)初設(shè)想的全部目標(biāo)。②質(zhì)量：檢查每模塊的功能、性能、要求是否符合相關(guān)文檔的技術(shù)要求，不合格者，糾正錯(cuò)誤，保證質(zhì)量。項(xiàng)目已進(jìn)行到了系統(tǒng)測(cè)試階段。圖59 課程管理模塊之課程添加信息界面統(tǒng)計(jì)匯總模塊可以對(duì)成績(jī)有一個(gè)總體的顯示，這個(gè)模塊只有教師能夠運(yùn)行，它能夠?qū)λ械膶W(xué)生成績(jī)進(jìn)行顯示，教師登陸后，單擊“統(tǒng)計(jì)匯總”就會(huì)顯示所有學(xué)生成績(jī)信息。圖57成績(jī)管理模塊界面之查詢(xún)成績(jī)信息界面根據(jù)教學(xué)設(shè)計(jì)，每年學(xué)生都有新的成績(jī)，教師需要將成
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1