【正文】 成績(jī)表 where 學(xué)號(hào) =39。 39。 amp。 39。 添加學(xué)生信息界面： 第 18 頁(yè) 共 30 頁(yè) 代碼如下： Private Sub Command1_Click() If = Or = Then MsgBox 學(xué)號(hào)和姓名不能為空！ , vbOKOnly + vbExclamation, 警告 Exit Sub 判斷“學(xué)號(hào)”和“姓名”是否為空，若是，則彈出警告，重新輸入 ! Else = select * from 基本信息表 where 學(xué)號(hào) =39。 Else = select * from 密碼表 where 用戶名 =39。 amp。 End Sub Private Sub xgmm_Click() 單擊“修改密碼”按鈕，當(dāng)前窗體隱藏，“教師修改密碼”窗體出現(xiàn)。 amp。 代碼如下： Private Sub Command1_Click() End End Sub 單擊“退出系統(tǒng)”按鈕，結(jié)束程序。 amp。 amp。 按照以上實(shí)體進(jìn)行設(shè)計(jì)：（ 1）打開可視化數(shù)據(jù)管理器程序（ 2）建立數(shù)據(jù)庫(kù)（ 3）創(chuàng)建數(shù)據(jù)庫(kù)表（ 4）添加字段（ 5）生成表⑹ 添加內(nèi)容 基本信息表 字段名稱 數(shù)據(jù)類型 字段大小 學(xué)號(hào) 文本 10 姓名 文本 10 性別 文本 2 年齡 數(shù)字 2 聯(lián)系電話 數(shù)字 50 班級(jí) 文本 50 家庭住址 文本 50 等。同時(shí)合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。 系統(tǒng)主要由五部分組成：系統(tǒng)用戶的管理、學(xué)生成績(jī)的管理、學(xué)生學(xué)籍信息的管理、信息的查詢 ， 其中還包括登錄界面以及成績(jī)的統(tǒng)計(jì)模塊。如上所述， Access 作為關(guān)系數(shù)據(jù)庫(kù)開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù) 庫(kù)的強(qiáng)大功能。數(shù)據(jù)庫(kù) (Database)是由一些有意義和有關(guān)系的數(shù)據(jù) (data)所組合而成。 關(guān)鍵詞 ：小型學(xué)生成績(jī)管理系統(tǒng)， SQL， VB ，數(shù)據(jù)庫(kù)，控件，控件與數(shù)據(jù)庫(kù)的綁定 第 3 頁(yè) 共 30 頁(yè) 目 錄 一． 選題的意義 ???????????????????????? 4 1 選擇該題目的原因 ???????????????????? ? 4 2 完成此題目用到的數(shù)據(jù)結(jié)構(gòu)和知識(shí)點(diǎn) ?????????? ??? 4 二 ．系統(tǒng)功能簡(jiǎn)介 ???????????????????? ?? ? 5 1 系統(tǒng)概述 ????????????????????????? 5 2 系統(tǒng)的組成及各模塊的功能 ????????????????? 5 3 系統(tǒng)的運(yùn)行環(huán)境 ?????????????????????? 5 三 ． 系統(tǒng) 設(shè) 計(jì) ????????????????????????? 6 1 總體結(jié)構(gòu)設(shè)計(jì) ?????????????????????? 6 2 數(shù)據(jù)庫(kù)設(shè)計(jì) ??????????????????????? 6 四 ． 系統(tǒng)實(shí)現(xiàn) ????????????????????????? 7 1 登錄模塊的設(shè)計(jì)和實(shí)現(xiàn)??????? ????????? ??? 8 2 學(xué)生登錄模塊的設(shè)計(jì)和實(shí)現(xiàn) ????????????? ???? 9 3 教師登錄模塊 的設(shè)計(jì)和實(shí)現(xiàn) ????????????????? 10 4 學(xué)生成績(jī) 查詢模塊設(shè)計(jì) 和實(shí)現(xiàn) ???????????????? 11 5 學(xué)生密碼修改模塊 設(shè)計(jì)和實(shí)現(xiàn) ???????????????? 12 6 主窗體模塊 的設(shè)計(jì)與實(shí)現(xiàn) ?????????????????? 13 7 添加用戶模塊的設(shè)計(jì)與實(shí)現(xiàn) ????????????????? 15 8 修改密碼模塊的設(shè)計(jì)與實(shí)現(xiàn) ????????????????? 16 9 學(xué)生信息添加模塊的設(shè)計(jì)與實(shí)現(xiàn) ??????????????? 18 10 學(xué)生信息修改模塊的設(shè)計(jì)與實(shí)現(xiàn) ?????????????? 19 11 學(xué)生信息查詢模塊的設(shè)計(jì)與實(shí)現(xiàn) ?????????????? 21 12 學(xué)生成績(jī)錄入模塊的設(shè)計(jì)與實(shí)現(xiàn) ????????????? 22 13 學(xué)生成績(jī) 修改 模塊的設(shè)計(jì)與實(shí)現(xiàn) ????????????? 24 14 學(xué)生成績(jī) 查詢 模塊的設(shè)計(jì)與實(shí)現(xiàn) ???????????? 26 15 項(xiàng)目統(tǒng)計(jì)模塊的設(shè)計(jì)與實(shí)現(xiàn) ?????????????? 28 第 4 頁(yè) 共 30 頁(yè) 五 .總結(jié)……………………………… ………………………… 28 1 遇到及解決的問(wèn)題??????????????? ??? 28 2 心得體會(huì)??????????????????????? 29 3 后記 ????????????????????????? 29 參考文獻(xiàn)………………………………………………………… 29 一 選題的意義 從大的方面來(lái)講，現(xiàn)在我國(guó)的部分高中及其以下級(jí)別的大部分中學(xué)，學(xué)生成績(jī)的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方 法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。由于成績(jī)記錄的數(shù)量眾多、管理復(fù)雜容易造成混亂，成績(jī)管理系統(tǒng)可以實(shí) 現(xiàn)對(duì)整個(gè)成績(jī)信息進(jìn)行準(zhǔn)確而高效的記載。 為滿足為學(xué)校服務(wù)這一基本功能，數(shù)字校園應(yīng)定位于信息服務(wù)，對(duì)學(xué)生的成績(jī)的高效而準(zhǔn)確的管理系統(tǒng)設(shè)計(jì)的出發(fā)點(diǎn)和最終目的，既要能夠滿足學(xué)生和老師的一般需求，又要能夠針對(duì)用戶的類型、需求特征等確定它的的權(quán)限以便進(jìn)行管理。 數(shù)據(jù)結(jié)構(gòu)： 通過(guò) 可視化數(shù)據(jù)管理器可以 進(jìn)行數(shù)據(jù)庫(kù)操作。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息，數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。面對(duì)龐大的信息量，需要有學(xué)生管理系統(tǒng)來(lái)提 高學(xué)生管理工作的效率。 第 6 頁(yè) 共 30 頁(yè) 系統(tǒng)使用環(huán)境 操作系統(tǒng)： windows xp/2021/me/98 系統(tǒng)支持： visual basic 數(shù)據(jù)庫(kù)： access 系統(tǒng)開發(fā)環(huán)境 操作系統(tǒng) ： windows xp/2021/me/98 系統(tǒng)支持： visual basic 三 系統(tǒng)設(shè)計(jì) 對(duì)上述各項(xiàng)功能進(jìn)行集中、分塊，按照結(jié)構(gòu)化層序設(shè)計(jì)的要求，得到如下 所示的系統(tǒng)功能功能模塊圖。 ? 教師密碼表：包括的字段有：用戶名，密碼。 39。 Private Sub Timer1_Timer() If + = 0 Then = 50 Else = 使標(biāo)簽按一定的時(shí)間運(yùn)動(dòng)，達(dá)到電子滾動(dòng)的效果。 amp。 39。 Private Sub Command3_Click() 單擊“返回”按鈕，當(dāng)前窗體隱藏， 學(xué)生成績(jī)查詢界面出現(xiàn)。 Private Sub cjlr_Click() End Subv 單擊“成績(jī)錄入”按鈕，進(jìn)入“成績(jī)錄入”界面。 Private Sub Command2_Click() = = = 單擊“取消”按鈕，將文本框清空。 MsgBox 密碼修改成功！ , vbOKOnly + vbExclamation, 修改密碼 End If End Sub 彈出“修改成功”的窗體。 = select * from 成績(jī)表 where 學(xué)號(hào) =39。