DD積分管理系統(tǒng)設(shè)計文檔

1、學(xué)院計算機科學(xué)與技術(shù)糸軟件工程導(dǎo)論軟件項目開發(fā)文檔積分管理系統(tǒng)擬制人：審核人：批準人：小組成員：學(xué)院計算機系01 (2)班 二零零四年十二月十日vv同學(xué)在校積分管理系統(tǒng)>> 文檔目錄一摘要:+ 二弓i 言:+v 三 可行性研究汁+1 經(jīng)濟可行性+1 技術(shù)可 行性+2. 操作可行性+ 四需求分析汁+i 功能要求+1性能要求+ 2 運行要求+ 3 將來要求+4. 數(shù)據(jù)要求+ 五總體設(shè)計：+1. 系統(tǒng)流程圖：+2. 數(shù)據(jù)流圖：+3. 登錄子系統(tǒng)流圖：+4 學(xué)生積分基本操作 流 圖:+5 扌艮 扌丁 印子系多流圖：+ 6. 學(xué)半基本宿息查詢了系統(tǒng)流圖:+ 六 詳細設(shè)計：+1. access

2、 數(shù)庫設(shè): +2. sql 查詢語言：+ 3 系 統(tǒng)歡迎 界面設(shè) 計:+4. 系統(tǒng)登錄界面設(shè)計：+ 5 系統(tǒng)主操作界面設(shè)計:+ 6. 版本信息界面設(shè)計：+7- 學(xué)生信 息查詢 總 表設(shè)計：+8- 查詢界面設(shè) 計":+9. 積分增扌口： +10. 新增學(xué)生基本信息:+ii 查找方式：+ 七編碼設(shè)計：（略）+ 八系統(tǒng)測試：（略）+ 九發(fā)布維護：（略）+ 十 系統(tǒng)運彳?。? -| : +舉一反三，vb編程起步vb高級編程vb數(shù)據(jù)庫編程設(shè)計vb基礎(chǔ)教程vb數(shù)據(jù)控件大本營 第一部分：摘要：本軟件系統(tǒng)是課堂項目，我們在vv軟件工程陳老師的指導(dǎo)下，嚴格按照軟件工程 開發(fā)軟件的有關(guān)步驟，自己組隊成立

3、開發(fā)小組，進行自己的開發(fā)項目。我們選做的是 vv學(xué)生在校積分管理系統(tǒng)，其實現(xiàn)的功能包括常見的增加、刪除、修改、打印報 表、學(xué)生信息查詢等。 第二部分：引言：現(xiàn)在的學(xué)校要求對學(xué)生的個人能力進行嚴格的管理，包插對個人的優(yōu)秀表現(xiàn)以及缺 點。學(xué)生干部與老師領(lǐng)導(dǎo)者們，面對眾多的指標和選項，要全面系統(tǒng)地了解學(xué)生的表現(xiàn)情況 將會有很大的困難。 第三部分：進度計劃<1>項目小組：姓名工作職務(wù)模塊分工備注組長界面設(shè)計，系統(tǒng)登錄，軟件需求；可行性分析；組員學(xué)生查詢，軟件幫助，組員報表打印，軟件測試，組員后期維護，軟件發(fā)布2開發(fā)時間:時間:工作模塊參加者第一階段總體分析，可行性分析，需求分析，用戶聯(lián)系.

4、第二階段界面設(shè)計，系統(tǒng)登錄等模塊學(xué)生查詢，軟件幫助報表打印第三階段軟件測試，軟件發(fā)布第四階段后期維護<3>丄程gantt圖:與用戶 聯(lián)系需求分析系統(tǒng)界 面設(shè)計并個單獨模塊測試發(fā)布堆護圖工程各模塊的進度gantt圖<4>工程網(wǎng)絡(luò):工程網(wǎng)絡(luò)圖 第四部分：可行性研究：可行性研究的任務(wù)不是解決問題，而是確定問題是否值得解。首先，需要進一步分析和澄清問題定義。在澄清問題定義后，分析應(yīng)該導(dǎo)出系統(tǒng)的邏輯 模型，然后從中出發(fā)，探索若干種可供選擇的主要解法。vl>經(jīng)濟可行性：在現(xiàn)代的學(xué)校中，學(xué)生的人數(shù)在不斷的增加，學(xué)校對學(xué)生的管理難度不斷的加大。面對越來 越多的學(xué)生的基本信息，如何

5、對他們進行有效的管理，成了擺在學(xué)校面前的一大難題。本軟 件是為學(xué)校的工作人員提供幫助，方便他們對學(xué)生進行管理，本系統(tǒng)軟件管理方血功能強大, 操作界面友好，操作方便快捷，有效率，提供升級等售后服務(wù)；<2>技術(shù)可行性：本信息管理系統(tǒng)采用vb界而，后臺數(shù)據(jù)庫采用的是access數(shù)據(jù)庫。由于vb技術(shù) 已經(jīng)很成熟。它支持多種數(shù)據(jù)庫格式，比如access、sql server 200. oracle、os/2 等。vb的功能已經(jīng)非常強大，其功能涉及到文件、網(wǎng)絡(luò)、數(shù)據(jù)庫、控件、activex等。數(shù)據(jù)庫方面，sqls e r v e r2000支持大型企業(yè)或公司的數(shù)據(jù)管理系統(tǒng)，access 數(shù)據(jù)庫

6、是一種面向桌面的中小型數(shù)據(jù)庫管理信息系統(tǒng)，其功能方面己經(jīng)能輕松應(yīng)付，其數(shù)據(jù) 庫的數(shù)據(jù)安全和數(shù)據(jù)完整性也非常滿意。這次開發(fā)的項目主要是基于在校學(xué)生的積分管理信息功能，只是對學(xué)生的積分管理方面 的一次開發(fā)項目，涉及到比較少的數(shù)據(jù)表，數(shù)據(jù)項。采用vb加access數(shù)據(jù)庫開發(fā)這個 學(xué)生在校積分管理系統(tǒng)可以滿意廣大領(lǐng)導(dǎo)和老師的需要。很多實踐證明，采用vb加access數(shù)據(jù)庫開發(fā)管理系統(tǒng)，在技術(shù)上是可行性<3>操作可行性：本系統(tǒng)采用vb做前臺界面，其vb在界面方面的功能比較強大，可以滿足常見的操作 需要。本系統(tǒng)的界面采用用戶熟悉的windows界面，下拉式菜單，每個菜單都有相應(yīng)的 快捷菜單與熱

7、鍵；可以懸浮的工具欄；可見的狀態(tài)性，隨時提示用戶正在進行的操作。小結(jié)：基于上面的分析，開發(fā)本系統(tǒng)從經(jīng)濟上、技術(shù)上、操作上都是可行的。 第五部分：需求分析：1. 功能要求：系統(tǒng)要投入使用，必須實現(xiàn)如下功能：系統(tǒng)安全性方面的驗證，系統(tǒng)登錄，新增加 用戶，注銷用戶；學(xué)生基本信息的增加、刪除、修改；學(xué)生積分的各項的選項的增 加、刪除、修改；管理功能模塊方面有學(xué)生信息查詢；打印方而可以打印報表；還 提供文檔支持、軟件說明；2. 性能要求：本管理信息系統(tǒng)主要用于單用戶，還不支持網(wǎng)絡(luò)功能，用戶數(shù)不多，所以性能上的 要求不很高，目標是可以在通用的計算機上流暢運行。用八數(shù)量大于1安全性口令、數(shù)據(jù)加密穩(wěn)定性7x2

8、4可靠性99.9999%數(shù)據(jù)備份采用access的備份機制3. 運行要求:硬件:cpupentium 500m 以上硬盤2g以上業(yè)小rtnt內(nèi)存hy 64m軟件：windows 系統(tǒng)操作系統(tǒng)：windows 98, windows me, windows 2000,windows xp windows 20034. 將來要求：<1>.用戶數(shù)量的增加，要求響應(yīng)時間的保證;<2>.對安全性提出更高的要求；<3>.移植到網(wǎng)絡(luò)上面,比如cdma；5. 數(shù)據(jù)要求：數(shù)據(jù)的安全性，完整性等等；6. 安全要求：系統(tǒng)登錄密碼安全、用戶使用權(quán)限的設(shè)置等等； 第六部分：總體設(shè)計：

9、i. 統(tǒng)流程圖：淸單 庫學(xué)住(h息淸單程序迫出系統(tǒng)對學(xué)生 積分管 理寫入 數(shù)據(jù)庫軟fl幫助梢助說明2 數(shù)據(jù)流圖:源點/終點處理系統(tǒng)管理員 操作員 用戶系統(tǒng)管理功能應(yīng)塊操作，進行數(shù)據(jù)輸入毎操作査看學(xué)生在校積分信息數(shù)據(jù)流數(shù)據(jù)存儲系統(tǒng)登錄提示用戶輸入用戶名稱提示輸入巒碼驗證合法性成功登錄倍息査詢調(diào)用學(xué)生倍息命令提示用戶選擇所旻的査詢方式確定后.輸出所翌的信息打印報表進入打印報農(nóng)的界面完成報表打印工作杳呑用八錚理數(shù)據(jù)庫驗證用戶合法性非法用戶不能登錄,提示出錯信息成功登錄啟，可新増用戶，并更新數(shù)據(jù)庫連結(jié)數(shù)據(jù)庫調(diào)用sql命令，査詢數(shù)搖庫中的數(shù)據(jù)并顯示給用戶斯開與數(shù)據(jù)庫的連結(jié)連結(jié)數(shù)據(jù)庫，并根據(jù)用戶需翌更新數(shù)

10、據(jù)庫斯開與數(shù)據(jù)庫的連結(jié)組成數(shù)據(jù)流圖的元素在信息中提取圖3. 登錄子系統(tǒng)流圖：學(xué)生信息數(shù)據(jù)摩更新更新學(xué)牛數(shù)據(jù)您城示1更新爭務(wù)系統(tǒng)登錄. 零待用戶 輸入用戶 名臉證用戶密円合法成功甥錄 顯示學(xué)生 倍息數(shù)據(jù)£運行l(wèi)界面管理員非法用戶，出錯退出系統(tǒng)系統(tǒng)登錄子系統(tǒng)數(shù)據(jù)流圖4 學(xué)生積分基本操作流圖:開始系統(tǒng)登錄臉證成功嚶牛積分卓公操佇廠個人信息_ 學(xué)習(xí)枳分_ 紀律積分 卩生枳分一 宣傳枳分 勞動枳分一民意測試學(xué)生積分基本操作流圖5 報表打卬子系統(tǒng)流圖：打印ih所翌的報農(nóng);印未糾 打機準116 學(xué)生基本信息查詢子系統(tǒng)流圖:名字：打印報表; 別名：報表信息;描述：本報表學(xué)生%本信息查詢”務(wù)開查詢操作

11、l1i錯顯：小査詢內(nèi)容第七部分：詳細設(shè)計1. access數(shù)據(jù)庫設(shè)計：建立數(shù)據(jù)庫：新建數(shù)據(jù)庫“學(xué)生信息積分系統(tǒng)”，保存到d： 學(xué)生信息積分系統(tǒng)data b錄下。在“學(xué)生信息積分系統(tǒng)”數(shù)據(jù)庫中新建表main：a說明總成絨 英語過級 不交作業(yè)字段詹性第規(guī)査閱i 宇段大小 格式 輸入法模式 輸入掩訶款認佰有效性規(guī)則 有效性文本 必埴字段 允許空字符審 索引unicode jes88輸入法開啟字役名稱最長可到64個字符（包括空格）.按f1鍵可査看百關(guān)字段名稱的稱肋.可以在其'輸入掩碼'文本框內(nèi)輸入其掩碼，其作用是：在你瀏覽此表時只顯示掩碼，而不顯 示其內(nèi)容。例如：你的密碼是“wyc”，

12、你輸入掩碼為“ok”，在你瀏覽表時，顯示密碼為“ok”, 可以起到一定的保密作用，而在程序中調(diào)用表顯示其內(nèi)容時，不顯示掩碼。在“學(xué)生信息積分系統(tǒng)"數(shù)據(jù)庫中新建表studnet：宇段名稱說明字段屬性匸jx常規(guī)查釦 字段大小 格式 輸入法根式談?wù)J值有效性規(guī)則 有效性文本 必境字敗 允許空字符串 素引unicode 圧絢沆入法開啟字段名稱最長可到m個字符i包括空格）.s f1謹可查看有關(guān)字綾名稱的帝肋.在“學(xué)生信息積分系統(tǒng)''數(shù)據(jù)庫中新建表studnet：字螢大小 格式sft入法根式 編入掩碼常規(guī)査聞揄入法開啟亭覆名稱最長可到m個宇符(包括空格)冬f1穗可查看有關(guān)宇霞名稱的

13、幫助.默認值有效性規(guī)則 有效性文本 必埴字段 允許空芋符審 耒引unicode 壓縮軟件運行主程序：set talk off &&關(guān)閉對話模式set safe offset stat offset dele on &&不處理已刪除的記錄set cent onset date to ansiclose alloooooooooooooooooooooooozoom window screen max &&主窗丨 i最大化oooooooooooooooooooooooomypath=left(sys( 16),rat(nm,sys( 16) &

14、;&確定程序所在的位置set defa to (mypalh) &&設(shè)置當前路徑set path to data;form;pic &&指明路徑open database學(xué)牛:積分管理系統(tǒng)&&打開數(shù)據(jù)庫ooooooooooooooooooooooooread eventsquit2. sql查詢語言：數(shù)據(jù)庫查詢是數(shù)據(jù)庫的核心操作。access提供了 sql語言的查詢功能，捉供了 select語句等對數(shù)據(jù)庫進行查詢，該語句具有靈活的使用方式和豐富的功能。其一般格式 為：selectall|distinctv 0 標列表達式, 0 標列表達式

15、：from表名或視圖名 ,表名或視圖名wherev條件表達式group by列名having v條件表達式:order by列名ascqesc；整個select語句的含義是：根據(jù)where子句的條件表達式，從from子句指定的 基本表或視圖中找出滿足條件的元組，再按select子句中的目標表達式，選出屬性形成 結(jié)果表。如果有g(shù)roup by子句，則將結(jié)果按列名的值進行分組，列值相等的就分在 同一組屮。如果group by子句中有having短語，則只有滿足指定的條件才輸出。如果 有orderby子句，則結(jié)果還要按列幺排序輸出。3. 系統(tǒng)歡迎界面設(shè)計:nfj：7chi.idc lf乍組學(xué)生在校積

16、分管理系統(tǒng) v2.0jri制作:yehudi工程 1 - selefr> (fora)軟件操作(£)4 系統(tǒng)登錄界面設(shè)計:界面元素:名稱：用途：label用戶登錄label用戶label密碼command確定command退出textboxtextbox代碼設(shè)計：private sub command 1 _click()'判斷用戶輸入的名稱和口令是否合法'首先判斷輸入的用戶名是否存在，如果不存在，給出提示，如果用戶名存在，判斷輸入口令是否正確，如果錯誤，給出提示'如果用戶名和口令輸入正確，卸載本窗體，'否則，判斷是否用完三次機會，并給出相應(yīng)提示

17、。dim isuser as booleandim pwd as stringdim uname as string static count as integer'用戶是否存在'記錄輸入口令次數(shù)pwd = trim(text2.text)uname = trim(textl.text)isuser = false七匕対用戶名稱和口令的正確與否do while not data 1 .recordset.eofif uname = data 1 .recordset.fields(o) then'當用戶名和當前記錄名稱相同時的處理：if pwd = datal.reco

18、rdset.fields(hpasswordm) then'如果口令輸入正確，卸載本窗體unload meainfrm.toolbarl .buttons(2).enabled = true lainfrm.toolbar 1 .buttons( 1).enabled = false 學(xué)生在校枳分管理系統(tǒng).showexit subelse'如果口令輸入錯誤，給出提示信息if count < 2 thenmsgbox h口令錯誤，請重新輸入”text2.text = ”text2.setfocusend ifisuser = true，標志為合法用戶exit doend i

19、fend ifdata 1 .recordset.movenext移動到下一條記錄loopcount = count + 1，輸入口令次數(shù)加1，輸入三次口令，且口令錯誤，退出程序if count = 3 thenmsgbox “非法用戶，不能使用本系統(tǒng)”endend if'如果沒有此用戶，顯示提示信息if not isuser thenmsgbox"無此用戶，請重新登錄”text 1.text 二”“textl.setfocusend ifdalal .recordsel.movefirstend subprivate sub command2_click()endend s

20、ub5.系統(tǒng)主操作界面設(shè)計：（運行吋）菜單設(shè)計:共有三個主菜單，各個主菜單下又有幾個小菜單，分別対應(yīng)不同的操作。主菜單：二級菜單：功能：系統(tǒng)操作新建用戶新建用戶注銷用戶注銷用戶退出系統(tǒng)退出系統(tǒng)文件選項打印報表打印報表學(xué)生查詢學(xué)生查詢幫助說明版本信息版本信息使用說明使用說明工具欄設(shè)計：在界面上加入一個imagelist!的控件；放入自己喜歡的圖片作鏈接;在界面上加入一個maintab的控件，設(shè)置好所需要的頁面數(shù)，如：8個，分別為: 個人信息、學(xué)習(xí)積分、紀律積分、衛(wèi)生積分、宣傳積分等；個人信息界血如下:基本信息:學(xué)號：姓名：個人信息丫學(xué)習(xí)積分丫紀律積分丫衛(wèi)生積分丫宣伎積分丫勞動積分丫宣倍積分丫民意

21、測試積分情況:總分:個人信息記錄個人的基本信息，以及所得的積分學(xué)習(xí)積分記錄個人的學(xué)習(xí)積分；紀律積分記錄個人的紀律積分；衛(wèi)生積分記錄個人的衛(wèi)生積分；宣傳積分記錄個人的宣傳積分；勞動積分記錄個人的勞動積分；民意測試記錄個人的民意積分；汐從 r學(xué)習(xí)積分界面如下:紀律積分界面如下:軸學(xué)生在枝積分笞謹系歩制作：yehudi and weihuan版本v2.0卩生積分界面如下:系統(tǒng)操作（文件選項（幫助說明（也宣傳積分界面如下:勞動積分界面如下:6 版本信息界面設(shè)計:名稱：用途：picture 1顯示圖片label歡迎使用label制作小組label警告說明9工程1 -版本信息(fora)工程1 -版本信息

22、(fora)7. 學(xué)生信息查詢總表設(shè)計：在界面上加入一個data控件，用來連接數(shù)據(jù)庫，顯示學(xué)生的基本信息:8.查詢界面設(shè)計:名稱：用途：label查詢條件label學(xué)號label姓名label性別label年齡label積分datal連接數(shù)據(jù)庫combo條件選擇combo大于或等于或小于選擇texttexttexttexttexttexttextcommand查詢command繼續(xù)查詢command退出%l<f 卜“ 卜 «l 卜 «l 卜 «l 卜 «l« 卜 «l 卜 «£« 卜 «&

23、#163;« 卜."卜 <1* 卜 «£««9><9<9<9<1«9>«9><9t* *t» 丫 ? 丫 ? 丫 <t» 丫 <t» 丫 <t* 丫 <7» 丫 <7* *t» 丫 ? . ； rtw ： rt» ； <t» ； rt» rt» 卞 *tw *t« rt» ； rt» ； rtw ： rt&#

24、187; ； <tw <t® rtwrtwrtw rtw ? rtw rt» rtw »t» rtwrtw <t® rtwrtwrtw 丫 <t» »tw <t» 丫 <t» 丫 <t» 丫 <t» 丫 <t» 丫private sub command2_click()on error resume nextif combo 1.text 二”學(xué)號“ or combo 1.text ="性別” or combo

25、1.text = ”姓名” thensqls = combo 1.text & “ ” & combo2.text & ”' & trim(textl.text) & “”'elsesqls = combo 1.text & " " & combo2.text & trim(textl.text)end ifdatal.recordset.findfirst sqlsif datal .recordset.nomatch thenmsgbox “沒有找到符合條件的數(shù)據(jù)”,，“查找”command

26、3.enabled = falseexit subelsecommand3 .enabled = trueend ifend sub<jw rtw etw rtw etw rtw etw rtw <tw rtw etw rtw rtw ryw rtw ryw rtw rtw rtw ry* ryw rtw rtw etw ryw rtw rtw rt* ryw rtw ryw rtw rtw <tw ryw »tw rtw rtw ryw ryw »tw rtw rt> ryw »tw rtw rt> rtw <tw ryw &

27、#187;tw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw rtw etw rtwprivate sub command3_click()datal.recordset.findnext sqlsif datal .recordset.nomatch thenmsgbox ”查找結(jié)束”,，“查找”command3.enabled = falseexit subend ifend sub”»<9* ”<9*»t* 丫 <

28、t» 丫 丫 丫 <t» 丫 <7» 叫： rt» »t* rtw rt» rt» *tw *t« <t« ： rt» »t* rtw rtw t* rtw rte rtw te rtw rtw <t® *.rtw rtw rtw t* rtw rte 哼 <tw <tw <tw <tw <tw <tw <tw <tw <tw <tw rtw <tw <tw <tw <

29、tw <tw <tw <tw <tw <tw <tw <t»private sub form_load()dim db as databasedim rst as recordsetdim i as integerdim pathstr as stringpathstr = app.pathif right(pathstr, 1) o “” then pathstr = pathstr + ”pathstr = pathstr & “stu.mdb”fset db = opendatabase(pathstr)set db = ope

30、ndatabase("d:program files'學(xué)生積分管理系統(tǒng)shujustu.itidb")set rst = db.openrecordset(nstudentm)for i = oto rst.fields.count 1combo 1.additem (rst.fields(i).name)next icombo2.additem m=ncombo2.additem h>ucombo2.additem ">="combo2.additem "<ncombo2.additem h<="co

31、mbo2.additem hohcombo2.additem "like"combo 1.text 二"學(xué)號"combo2.text = "=htextl.text = ht,command3 .enabled = falseend sub«£« 丄“«£« 丄 «£«丄“ «£«丄“«£« 丄«£« 丄“«£««£&

32、#171; 丄 «£« 丄“«£« 丄«£« 丄丄 卜丄丄丄卜丄丄 卜丄卜丄丄 卜丄丄7tw tw#t>叫.叫.t% tw tw #t> 叫.叫.#t%#t%#t%#t%#t%#t%#t%#t%#t%#t%#t> 7 彳.#79.積分增扣界面設(shè)計:名稱：用途：label增扣積分textboxcommand確定command返回command退出“ «l 卜 «l 卜 <l 卜 «l« 卜 «l 卜 «£«

33、; 卜 «l 卜 «£« 卜卜 «l<9<9 <9 <9<9 <9 t* 丫 <t» 丫 ? 丫 ? 丫 <t» 丫 <t» t» 丫 *7丫 *t* 丫 <t» 丫 ?丫； *tw ? rt» *t« <t« ： rt» ； rt» »t* rtw rt» ； rt» ； *tw ? rt» *t« <tw <t

34、74; *. rtw ? rtw rtw t* rtw rte rtw te rtw ? rtw <t® *.rtw ? rtw 丫 <t» 丫丫丫 <t» 丫 <t» 丫丫丫丫丫private sub command 1 _click()dim y as stringy = msgbox(n真的要扣除”& rs.fields(o) & ”同學(xué)的分嗎?”, vbyesno, ”提示信息“)if y = vbyes thenrs.editrs.fields(7) = val(rs.fields(7) + val(te

35、xtl.text)rs.updatemsgbox rs.fields(l) & "同學(xué)的分數(shù)已被扣除",vblnformation,"提示信息"elsemsgbox rs.fields(l) & “同學(xué)的分數(shù)沒有被扣除h, vblnformation, “提示信息“end ifend subkkkkkkkkkkk1*1*1*1*1*1*1*1*1*1*1* vl vl vl vl vlrj> r rj r rj> r rj> r rj r rj> r rj r rj r rj> r rj r rjw w rj

36、w w rjw w rjw w rjw w rjw w rjw w rjw w rjw w rjw w rjw rjw r rj* rj* rjw r rj* rjw rjw r rj* rjw r rj* rj* rjw rj rj rj rrj* 4*private sub form_load()'判斷用戶是要加的哪一項分select case msgcase 1label 1 .caption = rs.fields(l) & "同學(xué):" addfen.caption二”無故不參加院組織的活動" msg = 0case 2label 1.ca

37、ption = rs.fields(l) & ”同學(xué):” addfen.caption = ”無故不參加系組織的活動" msg = 0case 3label 1 .caption = rs.fields(l) & "同學(xué):” addfen.caption = ”無故不參加班組織的活動” msg = 0case 4label 1 .ctiption = rs.fields(l) & "同學(xué):” addfen.caption = ”受到院級的處分” msg = 0case 5label 1 .caption = rs.fields(l) &am

38、p; "同學(xué):” addfen.caption ="受到系級的處分'" msg = 0case 6label 1 .caption = rs.fields(l) & "同學(xué):" addfen.caption二”受到班級的處分“ msg = 0case 10label 1.caption = rs.fields(l) & ”同學(xué):” addfen.caption = ”不值日教室”case 11label 1 .caption = rs.fields(l) & ” 同學(xué)" addfen.caption =

39、 ”不值日寢室"case 12label 1 .caption = rs.fields(l) & ” 同學(xué)” addfen.caption = ”被評為先進教室"case 13label 1 .caption = rs.fields(l) & ”同學(xué)” addfen.caption = ”被評為先進寢室”case 14label 1 .caption = rs.fields(l) & "同學(xué)" addfen.caption = ”被評為最差教室"case 15label 1 .caption = rs.fields(l)

40、 & "同學(xué)" addfen.caption = ”被評為最差寢室”case 20label 1 .caption = rs.fields(l) & "同學(xué):” addfen.caption = ”宣傳積分“ “”國家級的“case 21label 1 .caption = rs.fields(l) & "同學(xué)" addfen.caption = ”宣傳積分“ “”省級的“case 22label 1 .caption = rs.fields(l) & ”同學(xué):” addren.caption = ”宣傳積分“”

41、 “”市級的“end selectend subkl#kl# kl# kl#<2* .卜 卜 卜 *w 卜 卜 *w .卜 卜 卜 *w .卜 rj* ryw 卜 rp ryw 卜 rp 卜 卜 卜吃、rj* rj% 卜吃、卜吃、卜吃、卜吃、卜吃、卜吃、卜吃、卜吃、卜吃、評 rjrjrj rj rj rj rj rj rj10新增學(xué)生基本信息界面設(shè)計:名稱：用途：frame請輸入command新增command保存command退出command返回label學(xué)號label姓名label性別label籍貫label電話textboxtextboxtextboxtextboxcombo姓名

42、選擇工程 1 一 addren (for>)新增按紐的代碼：private sub addnewcom_click()'創(chuàng)建一個新的記錄dim i as integerokcom.enabled = truers.addnewfor i = 0 to 3text! (i).enabled = truenext icombo 1 .enabled = trueaddnewcom.e nabled = falseend sub* * * *private sub form_load()on error goto handledim i as integerfor i = 0 to 3

43、textl(i).enabled = falsenext icombo 1.enabled = falseokcom.enabled = falseexit subhandle:msgbox”現(xiàn)在庫屮還沒有記錄，請輸入記錄”end subkkkkkkkkkkk1*1*1*1*1*1*1*1*1*1*1* vl vl vl vl vl vlrj> r rj r rj> r rj> r rj r rj> r rj r rj r rj> r rj r rjw w rjw w rjw w rjw w rjw w rjw w rjw w rjw w rjw w rjw w

44、rjw rjw r rj* rj* rjw r rj* rjw rjw r rj* rjw r rj* rj* rjw rj rjw rj rrj*rj rj保存按紐代碼：private sub okcom_click()on error goto displayiftextl(o).text <> ”“ and textl(l).text <> nu and textl(2).text <> ,n and textl(3).text <> ,n and combo 1.text <> thenrs.fields(o) = textl

45、(o).textrs.fields(l) = textl(l).textrs.fields(2) = combo 1 .textrs.fields(3) = textl(2).textrs.fields(4) = textl(3).textfor j = 5 to 10rs.fields (j)= “”next jelsemsgbox “請輸入完整的資料”end ifrs.updatedim i as integerfor i = 0 to 3textl(i).text = 'h,next icombo 1 .text =""okcom.enabled = fals

46、eexit subdisplay:msgbox”請重試一邊，如果仍有問題，請與李傳敏聯(lián)系”end sub*1*«£« 丄“ «£««£« 丄“ «£« 丄“ «£« 丄 «£« 丄“ «£««£« 丄 «£« 丄“ «£««£« 丄“ *s« 丄 卜丄丄丄 卜

47、丄 卜丄丄 卜丄丄 卜丄 卜丄 丄 土土 丄 土 丄 土土 丄 土 丄7tw tw #t> 叫.叫.tw tw #t> 叫.叫.#t% #t% #t% #t%#t% #t% #t% #t% #t% #t%彳 彳 彳 彳11.查找方式界而設(shè)計:名稱：用途：frame輸入label查詢方式textboxcommand確定command返回command退出command查詢 工程 1 一 findfr> ( 叵|x|*!*!*!*&» 土 *&» 土 *&» 土 *&» 土 *&» 土 *&» 土 *&» 土 *&» 土 *&» 土 *&» 土 *&» 土 *a*a* 丄* *a*a* 丄 *a* 丄* *a*a* 丄* *a*a*a* 丄* *a*“ 士 士 “ 士 士 士 “ 士 "“<7&l