vb程序設(shè)計(jì)課程設(shè)計(jì)報(bào)告-學(xué)生成績(jī)管理系統(tǒng)-文庫(kù)吧
2025-04-24 01:49 本頁(yè)面
【正文】 m5） 該窗體 界面上有兩個(gè) Command按鈕，一個(gè) ADO控件，還有一個(gè) DataGrid控件， 可根據(jù)Acess表格上各學(xué)生所有課程的總分對(duì)學(xué)生進(jìn)行排名。 7. 各科成績(jī)段統(tǒng)計(jì)窗體（ form6） 9 該窗體可直接實(shí)現(xiàn)對(duì)各門課程中優(yōu)秀人數(shù) 、 良好人數(shù) 、 中等人數(shù) 、 及格人數(shù) 、 不及格人數(shù) 進(jìn)行統(tǒng)計(jì)。 8. 統(tǒng)計(jì)直方圖窗體（ form7） 10 該窗體 有 3個(gè) Command按鈕，一個(gè) Chart 控件，一個(gè) ADO 控件， 可實(shí)現(xiàn)將各門功課所有學(xué)生的成績(jī)以直方圖的形式呈現(xiàn)出來(lái)，更加直觀！ 9. 姓名查詢（ form8） 11 通過輸入姓名可以查詢?cè)撋行畔ⅰ? （ form9） 12 通過輸入班級(jí)可以查詢?cè)摪嗨袑W(xué)生的信息。 （ form11） 13 該窗體有一個(gè) Command按鈕，一個(gè) ADO控 件，還有一個(gè) DataGrid控件，可以篩選出滿足： 1) 平均成績(jī)大于 90分；或平均分大于 85 分且至少有一門功課為 100分；或者平均分大于 85分且至少兩門課程成績(jī)?yōu)?95分以上 ； 2) 名次在前三名 ； 3) 每門功課及格以上； 14 3. 系統(tǒng)功能實(shí)施 Access 數(shù)據(jù)庫(kù) 圖 1 數(shù)據(jù)庫(kù) 建立簡(jiǎn)單的學(xué)生成績(jī)管理系統(tǒng)界面和實(shí)現(xiàn)功能 （ 1）主界面 15 圖 2 主界面 程序代碼如下： Private Sub Command1_Click() End Sub Private Sub Command10_Click() End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() 16 End Sub Private Sub Command6_Click() End Sub Private Sub Command7_Click() End Sub Private Sub Command8_Click() End Sub Private Sub Command9_Click() End Sub （ 2）學(xué)生管理界面 圖 3 學(xué)生管理界面 如何加載 ADO 步驟一 17 步驟二 步驟三 18 各個(gè)界面的 ADO控件如何連接數(shù)據(jù)庫(kù)（分兩步）： 步驟 一 ： 如下面界面中的 5個(gè)步驟 步驟 2： 選中 ADO控件 Adodc1，點(diǎn)擊鼠標(biāo)右鍵選擇屬性，然后界面設(shè)置如下： 19 控件綁定數(shù)據(jù)庫(kù)的字段操作說(shuō)明： 屬性設(shè)置說(shuō)明：下面以學(xué)號(hào)為例，姓名、班級(jí)等都可參考此。將學(xué)號(hào)對(duì)應(yīng)的文本框 Text1連接 Adodc1顯示數(shù)據(jù)庫(kù)中的學(xué)號(hào)，需要設(shè)置 DataSource和 DataField 兩個(gè)屬性 ,首先選中Text1文本框，并進(jìn)行下面的兩步操作，即可綁定數(shù)據(jù)庫(kù)的學(xué)號(hào)字段。 設(shè)置 DataSource: 20 設(shè)置 DataField: 當(dāng)在圖 2中點(diǎn)擊學(xué)生管理，則進(jìn)入圖 3界面，可以進(jìn)行學(xué)生添加、刪除、修 改等操作。 參考代碼：（在圖 3工程的學(xué)生管理點(diǎn)擊事件中加） Private Sub Command1_Click() ’ 添加 End Sub Private Sub Command2_Click() ’ 刪除 If = 0 Or Then Exit Sub End If If = 0 Then Exit Sub End If If Then End Sub Private Sub Command4_Click() ’ 保存 End Sub Private Sub Command5_Click() ’ 返回主窗體 21 Unload Me End Sub （ 3）成績(jī)查詢
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1