學(xué)生成績(jī)管理系統(tǒng)畢業(yè)設(shè)計(jì)(doc畢業(yè)設(shè)計(jì)論文)-資料下載頁(yè)
2025-06-26 09:44本頁(yè)面
【正文】 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。 amp。 Trim() amp。 39。End IfIf = 姓名 Then = select * from student_course_info where student_name=39。 amp。 Trim() amp。 39。End IfIf = 課程號(hào) Then = select * from student_course_info where course_no=39。 amp。 Trim() amp。 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 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。 amp。 amp。 39。Set mrc = executesql(txtsql, msgtext)While ( = False) (student_id) amp。 amp。 (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 = update student_course_info set score = amp。 amp。 where student_id=39。 amp。 xh amp。 39。and course_no=39。 amp。 kz amp。 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。 amp。 xh amp。 39。and course_no=39。 amp。 kz amp。 39。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。 amp。 (course_name)WendEnd Sub附錄3添加成績(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。 amp。 amp。 39。Set mrc = executesql(txtsql, msgtext)While ( = False) (student_id) amp。 amp。 (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。 xh amp。 39。and course_no=39。 amp。 kz amp。 39。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。 amp。 (course_name)WendEnd
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號(hào)-1