vb學(xué)生成績管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)課程設(shè)計(jì)報(bào)告-文庫吧資料
2025-05-19 22:12本頁面
【正文】 一、課設(shè)的目的 ，提高實(shí)踐動(dòng)手能力；，進(jìn)一步理解計(jì)算機(jī)程序設(shè)計(jì)的思路與方法；，進(jìn)一步熟練運(yùn)用VB的語言元素和流程控制語句；，達(dá)到能熟練使用各種常見的VB控件，理解面向?qū)ο蟮乃枷?；，熟悉用戶界面的設(shè)計(jì)；，熟悉數(shù)據(jù)訪問控件ADO及相關(guān)對象的使用，能基于ADO控件實(shí)現(xiàn)Access的數(shù)據(jù)訪問與操縱； 二、界面設(shè)計(jì)和功能設(shè)計(jì) 下面的界面為用戶登陸界面： 用戶名和密碼均已設(shè)定，用戶名為zg，密碼為10902，只有輸入正確，然后點(diǎn)擊“登陸“按鈕才能進(jìn)入主界面。如果用戶名或密碼三次輸入錯(cuò)誤，則系統(tǒng)自動(dòng)退出。當(dāng)用戶名和密碼均輸入正確，點(diǎn)擊“登陸”按鈕，進(jìn)入主界面——“學(xué)生成績管理系統(tǒng)”界面，該界面是其他子界面的入口，界面如下：進(jìn)入主界面后，點(diǎn)擊“學(xué)生管理（刪除\添加）”，進(jìn)入學(xué)生管理界面，界面如下：該界面上有一個(gè)ADO控件，用于連接數(shù)據(jù)庫，當(dāng)用戶在六個(gè)文本框中輸入數(shù)據(jù)時(shí)，點(diǎn)擊“添加“按鈕，可以將數(shù)據(jù)錄入到數(shù)據(jù)庫中，如果此時(shí)點(diǎn)擊”刪除“按鈕，則剛才輸入的數(shù)據(jù)就會(huì)被刪除，點(diǎn)擊”保存“按鈕時(shí)，輸入的數(shù)據(jù)就會(huì)自動(dòng)保存在數(shù)據(jù)庫里，點(diǎn)擊”返回主窗體“按鈕，該窗體消失，主窗體出現(xiàn)。下面為輸入條件后查詢的結(jié)果——在主界面點(diǎn)擊“姓名查詢“按鈕后，會(huì)出現(xiàn)如下界面：該界面與上一界面相似，在文本框輸入要查詢的姓名后，點(diǎn)擊“查詢“按鈕，就會(huì)在DataGrid控件上顯示所要查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果——在主界面上點(diǎn)擊“各科成績段查詢“按鈕后，會(huì)出現(xiàn)如下界面：點(diǎn)擊“計(jì)算分?jǐn)?shù)段統(tǒng)計(jì)“按鈕后，就會(huì)出現(xiàn)所要查詢的結(jié)果。下面為所現(xiàn)實(shí)的結(jié)果——在主界面點(diǎn)擊“統(tǒng)計(jì)直方圖“按鈕后，出現(xiàn)如下界面：在該界面點(diǎn)擊各個(gè)按鈕后，就會(huì)出現(xiàn)與之相關(guān)科目的成績統(tǒng)計(jì)直方圖，下面為查詢的結(jié)果—— 在主界面點(diǎn)擊“優(yōu)等生“按鈕后，出現(xiàn)如下界面：點(diǎn)擊按鈕查詢后，結(jié)果就會(huì)在界面上顯示出來。 建立如下數(shù)據(jù)庫(學(xué)號(hào)、姓名、班級、英語、數(shù)學(xué)、VB、總分、排名)建立如下圖的所有界面： ADO控件和DataGrid控件以及數(shù)據(jù)庫的連接步驟：（這一步在設(shè)計(jì)界面的同時(shí)完成）（1）、如何加載ADO控件：步驟1：步驟2：步驟3：各個(gè)界面的ADO控件如何連接數(shù)據(jù)庫（分兩步）：步驟1： 如下面界面中的5個(gè)步驟步驟2：選中ADO控件Adodc1，點(diǎn)擊鼠標(biāo)右鍵選擇屬性，然后界面設(shè)置如下：控件綁定數(shù)據(jù)庫的字段操作說明：屬性設(shè)置說明：下面以學(xué)號(hào)為例，姓名、班級等都可參考此。設(shè)置DataSource:設(shè)置DataField:（2）、如何加載DataGrid控件控件DataGrid，可以實(shí)現(xiàn)數(shù)據(jù)的批量處理，該控件在控件庫Microsoft DataGrid Control 。以下為各個(gè)界面所對應(yīng)的代碼——該界面代碼如下：Private Sub Command1_Click() If = zg And = 10902 Then Else MsgBox 用戶名或密碼錯(cuò)誤,請重新輸入, vbMsgBoxSetForeground, 系統(tǒng)提示?。?End If Static t As Integer t = t + 1 If t = 3 Then EndEnd SubPrivate Sub Command2_Click()a = MsgBox(確
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1