vb程序設(shè)計(jì)課程設(shè)計(jì)報(bào)告-學(xué)生成績(jī)管理系統(tǒng)(編輯修改稿)
2025-06-19 01:49 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 界面 圖 4 成績(jī)查詢界面 當(dāng)在圖 2中點(diǎn)成績(jī)查詢，則進(jìn)入圖 4界面，可以按課程和輸入條件進(jìn)行查詢。 查詢之前結(jié)果： 22 點(diǎn)擊查詢之后的結(jié)果： 控件 DataGrid，實(shí)現(xiàn)數(shù)據(jù)的批量處 理，該控件在控件庫(kù) Microsoft DataGrid Control 中。 23 說(shuō)明： DataGrid控件屬性設(shè)置 Dim kc_條件 As String Dim kc As String Private Sub Command1_Click() kc_條件 = = select * from stu where + kc + + kc_條件 End Sub Private Sub Form_Load() kc_條件 = =92 kc = vb End Sub Private Sub Option1_Click() kc = VB End Sub Private Sub Option2_Click() kc = math End Sub 24 Private Sub Option3_Click() kc = English End Sub （ 4） 姓名查詢 界面 （參考成績(jī)查詢界面） 圖 5 姓名查詢界面 輸入姓名后 查詢 25 程序代碼如下 Dim kc_條件 As String Dim kc As String Private Sub Command1_Click() kc_條件 = = select * from stu where + kc + =39。 + kc_條件 + 39。 End Sub Private Sub Form_Load() kc = name End Sub （ 5）班級(jí)查詢界面（參考成績(jī)查詢界面） 26 圖 6 班級(jí)查詢界面 輸入 班級(jí) 后 查詢 27 Dim kc_條件 As String Dim kc As String Private Sub Command1_Click() kc_條件 = = select * from stu where + kc + =39。 + kc_條件 + 39。 End Sub Private Sub Form_Load() kc = class End Sub （ 6）統(tǒng)計(jì)總分界面 。 當(dāng)在圖 2中點(diǎn)統(tǒng)計(jì)總分，則進(jìn)入圖 5界面。 實(shí)現(xiàn)功能： 當(dāng)點(diǎn)擊計(jì)算總分，則 DataGrid表格中 total列為三門課的總分，結(jié)果如下 圖 7 統(tǒng)計(jì)總分界面 當(dāng)點(diǎn)擊清除總分列時(shí)，則 DataGrid表格中 total列清空，結(jié)果如下： 28 圖 8 清除總分界面 Private Sub Command1_Click() Dim vb As Integer Dim math As Integer Dim english As Integer For i = 1 To vb = (vb).Value math = (math).Value english = (english).Value (total).Value = vb + math + english Next i End Sub Private Sub Command2_Click() For i = 1 To (total).Value = Null Next i End Sub 29 （ 7）排名界面 當(dāng)在圖 2中點(diǎn)排名，則進(jìn)入圖 9界面。 圖 9 排名界面 實(shí)現(xiàn)功能： 當(dāng)總分計(jì)算完后，可以根據(jù)總分計(jì)算排名。當(dāng)點(diǎn)擊排名，則 DataGrid表格中 mc列為顯示出名次，結(jié)果如下： 30 實(shí)現(xiàn)功能： 當(dāng)點(diǎn)擊清除排名后，則 DataGrid表格中 mc 列為空，結(jié)果如下 ： Private Sub Command1_Click() ’排名 = select * from stu order by total desc For i = 1 To (mc).Value = i
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1