考務(wù)管理系統(tǒng)畢業(yè)論文

1、<p><b>　　摘 要</b></p><p>　　本論文從各個院校的實際出發(fā)，針對該院考務(wù)管理工作的現(xiàn)狀，經(jīng)過詳細的系統(tǒng)調(diào)查，為該學院開發(fā)出的一個實用的單機版考務(wù)管理信息系統(tǒng)。通過開發(fā)本系統(tǒng)，協(xié)助學院領(lǐng)導了解考務(wù)工作狀況及其信息，并提供信息的各種分析統(tǒng)計，為加強和規(guī)范學院考務(wù)管理工作，提高其效率，促進教學質(zhì)量的提高，提供了高質(zhì)量的決策支持信息。本論文從系統(tǒng)概述、系統(tǒng)分析、系

2、統(tǒng)設(shè)計、系統(tǒng)實施、系統(tǒng)測試、系統(tǒng)轉(zhuǎn)換、系統(tǒng)運行與維護、系統(tǒng)的局限性、總結(jié)等內(nèi)容進行了論述。并按照管理信息系統(tǒng)的原理與方法，詳細闡述了系統(tǒng)分析、系統(tǒng)設(shè)計與系統(tǒng)實現(xiàn)技術(shù)及其應(yīng)用。本文論述的系統(tǒng)采用結(jié)構(gòu)化生命周期法，遵循了軟件開發(fā)的一般原則。系統(tǒng)經(jīng)過在工作和學習中近一個月的試運行，數(shù)據(jù)輸入工作量減少了三分之一，數(shù)據(jù)統(tǒng)計工作簡化了二分之一，減輕了工作人員的負擔，節(jié)省了大量時間，大大提高了工作質(zhì)量和效率，效果明顯，得到了學院的一致認可。通過系統(tǒng)開

3、發(fā)得出的主要結(jié)論是：系統(tǒng)規(guī)劃分析工作在系統(tǒng)開發(fā)中極其重要；只有詳細了解業(yè)務(wù)環(huán)境，才能順利開展系統(tǒng)開發(fā)工作；次外，明確主題、抓住重點、確定開發(fā)方向，也是很重要的。</p><p><b>　　關(guān)鍵詞： </b></p><p>　　管理信息系統(tǒng) 系統(tǒng)開發(fā) 生命周期法</p><p><b>　　目錄</b>

4、</p><p>　　第1章 系統(tǒng)概述………………………………………………………………… 5</p><p>　　第2章 系統(tǒng)分析………………………………………………………………… 6</p><p>　　2.1 系統(tǒng)初步調(diào)查………………………………………………………… 6</p><p>　　2.2 系統(tǒng)可行行分析………………………………

5、……………………… 7</p><p>　　2.3 系統(tǒng)詳細調(diào)查………………………………………………………… 8</p><p>　　2.4 新系統(tǒng)模型的提出…………………………………………………… 10</p><p>　　第3章 系統(tǒng)設(shè)計………………………………………………………………… 15</p><p>　　3.1 系統(tǒng)總體結(jié)

6、構(gòu)設(shè)計…………………………………………………… 15</p><p>　　3.2 系統(tǒng)詳細設(shè)計………………………………………………………… 18</p><p>　　第4章 系統(tǒng)實施………………………………………………………………… 27</p><p>　　4.1 開發(fā)工具的選擇……………………………………………………… 27</p><

7、p>　　4.2 系統(tǒng)源代碼…………………………………………………………… 27</p><p>　　第5章 系統(tǒng)測試………………………………………………………………… 62</p><p>　　第6章 系統(tǒng)轉(zhuǎn)換………………………………………………………………… 63</p><p>　　第7章 系統(tǒng)運行與維護………………………………………………………… 64

8、</p><p>　　7.1 系統(tǒng)運行環(huán)境………………………………………………………… 64</p><p>　　7.2 系統(tǒng)操作步驟………………………………………………………… 64</p><p>　　7.3 統(tǒng)維維護……………………………………………………………… 64</p><p>　　第8章 系統(tǒng)局限性……………………………

9、………………………………… 65</p><p>　　第9章 系統(tǒng)開發(fā)總結(jié)…………………………………………………………… 66</p><p>　　參考文獻………………………………………………………………………… 67</p><p>　　致謝詞…………………………………………………………………………… 68</p><p><b&

10、gt;　　第1章 系統(tǒng)概述</b></p><p>　　教學管理的現(xiàn)代化是教育現(xiàn)代化的主要內(nèi)容之一。只有充分利用信息技術(shù)，將之引入教學管理，才能真正形成現(xiàn)代化教育的組織形式，管理和運用方式，才能真正體現(xiàn)學?？紕?wù)管理工作的規(guī)范化、科學化、現(xiàn)代化水平。</p><p>　　就目前的教育形式來看，加強和規(guī)范考務(wù)管理工作，仍然是檢驗教學效果，促進教學質(zhì)量提高的重要手段之一，也是教學管理

11、的重要環(huán)節(jié)。通過開發(fā)考務(wù)管理信息系統(tǒng)，可以提供學生在校期間的各種信息及其變化，以及通過對信息的各種分析統(tǒng)計，使領(lǐng)導能從不同角度對各種情況作出迅速準確的判斷，進而作出高質(zhì)量的決策。</p><p>　　大學以舉辦高等學歷教育為基礎(chǔ)，多層次、多規(guī)格、多功能、多種形式辦學，重點是面向基層、面向地方、面向邊遠和民族地區(qū)，培養(yǎng)各級各類應(yīng)用性專門人才，為廣大求學者提供終身接受教育的機會和條件。廣播電視大學的主要任務(wù)是：舉辦現(xiàn)

12、代遠程高等?？啤⒈究平逃椭械葘I(yè)教育；舉辦崗位培訓、繼續(xù)教育等各種非學歷教育，包括大規(guī)模社會化培訓和再就業(yè)培訓；舉辦師范教育和中小學教師繼續(xù)教育；面向農(nóng)民開展農(nóng)村實用技術(shù)培訓；為普通高校及其他教育機構(gòu)開展現(xiàn)代遠程教育提供教育資源、教學管理和學習支持服務(wù)。</p><p>　　目前，學院開展考務(wù)管理工作主要采用基于紙質(zhì)的手工處理，對于成績統(tǒng)計，各類計算分析等環(huán)節(jié)仍以人工計算為主，計算器為輔的形式進行。信息處理工作

13、量大，易出錯，管理工作缺乏系統(tǒng)，工作人員對電腦缺乏必要的了解。為了落實教育信息化，進一步規(guī)范考務(wù)工作，學院決定采用一套考務(wù)管理信息系統(tǒng)。</p><p>　　根據(jù)學院考務(wù)管理工作的實際要求，結(jié)合本系統(tǒng)開發(fā)的要求，本文所要介紹的“考務(wù)管理信息系統(tǒng)”應(yīng)具有如下功能：</p><p>　?。?）掌握全院每個學生的基本情況。其中包括學生、姓名、性別、出生年月、政治面貌、身份證號、專業(yè)等。</

14、p><p>　?。?）要求在系統(tǒng)中能夠?qū)W生信息進行靈活地瀏覽和變動管理，對學生基本信息進行添加、刪除和修改等操作。</p><p>　?。?）掌握學生的各科成績信息，能夠?qū)W生的成績信息進行添加、刪除和修改操作，且具有簡單的統(tǒng)計功能。</p><p>　?。?）掌握考場安排信息，并能夠由系統(tǒng)自動產(chǎn)生考場安排表。</p><p>　?。?）可以將

15、學生的基本信息和學生的成績信息生成報表，并打印。</p><p>　?。?）基于權(quán)限的管理。本系統(tǒng)可以同時提供給管理員或者學生本人使用。但是，對于學生類用戶而言，不具有系統(tǒng)管理功能。而對于管理員用戶而言，擁有系統(tǒng)中的所有功能。</p><p><b>　　第2章 系統(tǒng)分析</b></p><p>　　2.1 系統(tǒng)初步調(diào)查</p>

16、<p>　　系統(tǒng)初步調(diào)查采用的主要方式是與學院領(lǐng)導、教務(wù)處、各任課老師及其它相關(guān)人員進行交流、座談，并實地考察學院具體情況。經(jīng)初步調(diào)查了解到：</p><p>　　2.1.1 考務(wù)工作流程</p><p>　　學院考務(wù)工作由教務(wù)處負責，其具體工作流程如下：</p><p>　　a.考前工作：報名輸入人員將考生填寫正確的報名表及上級編制的準考證號表輸入考生信

17、息庫，按各種條件查詢打印，考場安排人員根據(jù)考生信息庫安排考場，并按各種條件查詢并打印考試通知單。</p><p>　　b.考后工作：成績錄入人員將考生成績正確輸入計算機，再由成績分析人員對輸入的成績進行分析，計算出每班單科及格人數(shù)、全部及格人數(shù)、各科最高分，最后按條件打印各類報表、成績單，并提交給相關(guān)人員。</p><p>　　2.1.2 學院教務(wù)處組織機構(gòu)框圖</p>&l

18、t;p>　　學院教務(wù)處組織機構(gòu)框圖如圖2-1所示：</p><p>　　圖2-1 組織結(jié)構(gòu)圖</p><p>　　2.1.3考務(wù)管理工作中存在的問題</p><p>　　a.日常業(yè)務(wù)管理工作缺乏規(guī)范性，對人的經(jīng)驗與水平依賴性很大。</p><p>　　b.工作人員之間缺乏必要的溝通，工作不易協(xié)調(diào)效率低。</p><p

19、>　　c.數(shù)據(jù)處理、統(tǒng)計與計算機等方面的工作，以人工處理為主，工作量大，易出錯，造成不必要的麻煩。</p><p>　　d.領(lǐng)導對考務(wù)工作情況缺乏及時、正確、全面的了解，影響決策質(zhì)量。</p><p>　　2.2系統(tǒng)可行性分析</p><p>　　在系統(tǒng)初步調(diào)查的基礎(chǔ)上，進一步對系統(tǒng)的方案選擇、目標、范圍等因素進行分析研究。</p><p&

20、gt;　　2.2.1可供選擇的方案</p><p>　　a.不改變現(xiàn)狀，仍以人工方式為主。</p><p>　　b.購買商品化軟件，提高質(zhì)量水平。</p><p>　　c.組織力量，自行開發(fā)，量體自作。</p><p>　　2.2.2方案選擇情況</p><p>　　a.不可取。 因為學院領(lǐng)導對考務(wù)工作的重要性有正確的

21、認識，并迫切希望通過考務(wù)管理系統(tǒng)來促進考務(wù)管理工作的規(guī)范化，提高效率。其原因在于：</p><p>　　（1）功能方面：因為學院考務(wù)工作的特殊性，商品化通用軟件很難適應(yīng)實際工作的需要。</p><p>　?。?）經(jīng)費方面：目前市場上商品化考務(wù)軟件售價頗高，并且學院經(jīng)費也不寬裕。</p><p>　　b.采用此方案。其原因在于：</p><p>

22、;<b>　?。?）院領(lǐng)導重視。</b></p><p>　?。?）可節(jié)約一定經(jīng)費。</p><p>　?。?）學院計算機專業(yè)的師生有一定的技術(shù)能力。</p><p>　　2.2.3考務(wù)管理信息系統(tǒng)的目標和范圍</p><p>　　按照管理信息系統(tǒng)的原理與方法，采用成熟的信息技術(shù)和手段，支持學院考務(wù)管理工作的全過程，充分

23、利用各種信息資源，提高學院的教學管理水平，進一步規(guī)范考務(wù)工作，在為有關(guān)方面提供充分的信息服務(wù)的基礎(chǔ)上，提供管理決策支持功能。</p><p>　　學院考務(wù)管理信息系統(tǒng)主要為學院提供考務(wù)信息服務(wù)，包括學院的各項考務(wù)管理工作，涉及考生信息管理、考場安排、成績管理等各個環(huán)節(jié)。系統(tǒng)數(shù)據(jù)主要來源于各工作人員通過鍵盤輸入?；诰唧w的考試政策，本系統(tǒng)只處理校考工作，并且不涉及考生準考證號的編制問題。</p>&l

24、t;p>　　2.3 系統(tǒng)詳細調(diào)查</p><p>　　通過實地詳細調(diào)查，并與有關(guān)人員，特別是教務(wù)處工作人員的交流了解，進一步明確了考務(wù)工作的具體流程，它也是詳細調(diào)查的重點。</p><p>　　2.3.1考務(wù)工作的職能分析</p><p>　　學院副院長、教務(wù)處主任：主要負責考務(wù)工作，組織考試，并對考試情況的分析結(jié)果進行研究決策。</p><

25、;p>　　報名信息錄入員：負責考生報名輸入工作，并對考生信息庫進行維護、查詢、打印。</p><p>　　信息系統(tǒng)處理：系統(tǒng)自動在考試前安排考生考場，并可打印出考試通知單。</p><p>　　成績錄入員：考試后，將考生成績正確輸入計算機，形成考生成績庫。</p><p>　　統(tǒng)計分析員：負責對考生成績庫進行分析，并得出各種報表、成績單。</p>

26、<p>　　2.3.2考務(wù)工作流程描述</p><p>　　（1）業(yè)務(wù)流程圖的符號說明如圖2-2所示：</p><p>　　處理 存儲 物或單據(jù) 外部環(huán)境 輸入輸出</p><p>　　圖2-2 業(yè)務(wù)流程圖符號</p><p>　?。?）業(yè)務(wù)流程圖如圖2-3所示：</p

27、><p>　　2.4 新系統(tǒng)邏輯模型的提出</p><p>　　系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。本系統(tǒng)邏輯模型主要是以系統(tǒng)的數(shù)據(jù)流圖和數(shù)據(jù)詞典為主要描述工具。在對學院考務(wù)管理工作與業(yè)務(wù)流程進行認真分析和研究的基礎(chǔ)上，經(jīng)過與有關(guān)領(lǐng)導的反復協(xié)商、論證，最后確定了學院考務(wù)管理信息系統(tǒng)的邏輯模型。</p><p>　　2.4.1 數(shù)據(jù)流圖（DFD）</p>&

28、lt;p>　　a. 考務(wù)管理系統(tǒng)關(guān)聯(lián)圖：</p><p>　　b. 考務(wù)管理系統(tǒng)頂層圖：</p><p>　　c.成績管理數(shù)據(jù)流圖：</p><p>　　2.4.2 數(shù)據(jù)字典</p><p>　　系統(tǒng)中主要數(shù)據(jù)字典如下：</p><p><b>　　表2-1數(shù)據(jù)流字典</b></p&g

29、t;<p>　　表2-2數(shù)據(jù)存儲字典</p><p>　　表2-3數(shù)據(jù)元素字典</p><p>　　表2-4數(shù)據(jù)加工字典</p><p><b>　　第3章 系統(tǒng)設(shè)計</b></p><p>　　3.1系統(tǒng)總體結(jié)構(gòu)設(shè)計</p><p>　　3.1.1系統(tǒng)總體功能結(jié)構(gòu)</p>

30、;<p>　　根據(jù)系統(tǒng)分析結(jié)果，按照結(jié)構(gòu)化的系統(tǒng)設(shè)計方案，學院考務(wù)管理信息系統(tǒng)從功能上劃分為四個模塊。如圖3-1所示：</p><p>　　在系統(tǒng)劃分的基礎(chǔ)上，對相應(yīng)的子系統(tǒng)的數(shù)據(jù)的數(shù)據(jù)流圖采用事務(wù)中心法進行分析，對子系統(tǒng)進一步功能分解，最終得到系統(tǒng)的功能模塊結(jié)構(gòu)圖，即HIPO圖。</p><p>　　a.系統(tǒng)管理模塊的HIPO圖：</p><p>　

31、　圖3-2 系統(tǒng)管理模塊HIPO圖</p><p>　　圖3-2具體說明如下：</p><p>　　系統(tǒng)管理模塊：僅對管理員開放。管理員對用戶的訪問權(quán)限進行設(shè)置和維護，可以添加用戶，修改用戶密碼。其內(nèi)容主要包括：</p><p>　?。?）管理員密碼：完成對管理員自己密碼的設(shè)置、修改和維護。</p><p>　?。?）學生密碼： 完成對學生

32、密碼的設(shè)置和修改。</p><p>　　b.報名錄入模塊的HIPO圖：</p><p>　　圖3-3 報名錄入模塊HIPO圖</p><p>　　圖3-3具體說明如下：</p><p>　　報名錄入模塊：完成學生報名輸入工作，并對信息庫進行維護，內(nèi)容包括學生信息輸入，信息查詢，打印報名表。其中：</p><p>　?。?/p>

33、1）學生信息庫維護：完成學生信息的輸入、修改和刪除。</p><p>　　a. 學生信息添加：將學生填寫正確的基本信息表輸入計算機。</p><p>　　b. 學生信息修改：根據(jù)實際情況修改相關(guān)信息。</p><p>　　c. 學生信息刪除：如果學生轉(zhuǎn)學，退學，可將其信息刪除。</p><p>　?。?）學生信息查詢：可按學號查詢，并顯示錄入

34、情況。</p><p>　?。?）報名表打?。焊鶕?jù)顯示結(jié)果，打印學生報名表。</p><p>　　c. 考場安排模塊的HIPO圖：</p><p>　　圖3-4 考場安排模塊HIPO圖</p><p>　　圖3-4中具體說明如下：</p><p>　　考場安排模塊：完成考場安排工作，并對相應(yīng)信息庫進行維護。內(nèi)包括考場&

35、lt;/p><p>　　安排信息維護、查詢、考試通知單打印。</p><p>　?。?）考場安排信息維護：完成考場安排信息的增加、刪除、修改。</p><p>　?。?）考場安排信息查詢：可按學號查詢，并顯示考場安排情況。</p><p>　?。?）考試通知單打?。焊鶕?jù)查詢結(jié)果打印相應(yīng)報表。</p><p>　　d. 成績

36、管理模塊的HIPO圖：</p><p>　　圖3-5 報名錄入模塊HIPO圖</p><p>　　圖3-5中具體說明如下：</p><p>　　成績管理模塊：完成學生成績信息的維護工作。內(nèi)容包括學生成績輸入、</p><p>　　成績信息維護、學生成績查詢、報表打印。</p><p>　　（1）成績信息維護：完成學生信

37、息的輸入、修改、刪除。</p><p>　　（2）成績查詢：可按學號查詢，并顯示成績詳表。</p><p>　?。?）統(tǒng)計分析：完成學生成績統(tǒng)計，按平均成績統(tǒng)計、按課程統(tǒng)計人數(shù)、按專業(yè)統(tǒng)計人數(shù)、統(tǒng)計每個學生的最低分、統(tǒng)計及格人數(shù)，并打印報表。</p><p><b>　　3.2系統(tǒng)詳細設(shè)計</b></p><p>　　3

38、.2.1數(shù)據(jù)庫設(shè)計</p><p><b>　　a.概念結(jié)構(gòu)設(shè)計</b></p><p>　　在系統(tǒng)的數(shù)據(jù)庫設(shè)計中，先要對系統(tǒng)分析得到的數(shù)據(jù)字典中的數(shù)據(jù)存儲進行</p><p>　　分析，分析各個數(shù)據(jù)存儲之間的關(guān)系，然后得出系統(tǒng)的關(guān)系模型。</p><p>　　本系統(tǒng)采用E-R圖來描述系統(tǒng)的概念模型。其符號如圖3-6所示

39、，E-R圖如圖3-7所示：</p><p>　　實體 屬性 聯(lián)系</p><p>　　圖3-6 E-R圖的符號</p><p>　　圖3-7（1）系統(tǒng)實體及其屬性圖</p><p><b>　　b.邏輯結(jié)構(gòu)設(shè)計</b></p><p>

40、　　其任務(wù)就是把概念結(jié)構(gòu)設(shè)計階段設(shè)計好的基本E-R圖，轉(zhuǎn)換為與選用的具體</p><p>　　機器上的DBMS產(chǎn)品所支持的數(shù)據(jù)模型相符合的邏輯結(jié)構(gòu)。</p><p>　　E-R圖向系統(tǒng)模型轉(zhuǎn)換的結(jié)果如下（其中帶下劃線的為關(guān)系碼）：</p><p>　　系統(tǒng)管理（編號、姓名、密碼）</p><p>　　考生信息庫（學號、姓名、性別、出生年月、政

41、治面貌、籍貫、身份證號碼、專業(yè)）</p><p>　　考場安排表（準考證號、學號、姓名、課程、考場號、座位號）</p><p>　　考生成績庫（學號、姓名、課程、成績）</p><p><b>　　c.物理結(jié)構(gòu)設(shè)計</b></p><p>　　本系統(tǒng)中有關(guān)主要數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計如下：</p><p>

42、;<b>　　表3-1考生信息庫</b></p><p><b>　　表3-2考試安排表</b></p><p><b>　　表3-3考生成績庫</b></p><p>　　3.2.2 代碼設(shè)計</p><p>　　為了編程方便記憶，系統(tǒng)中所有字段一律采用漢語拼音的首字母作為該

43、項的代碼。 如：學生個人資料表的代碼是XSGRZLB，學生成績表的代碼為XSCJB。</p><p>　　3.2.3 用戶界面設(shè)計</p><p>　　由于學院考務(wù)管理信息系統(tǒng)的最終用戶是對計算機并不精通的工作人員，從他們的應(yīng)用需要出發(fā)，系統(tǒng)采用了傳統(tǒng)的Windows通用界面，通過菜單選擇、填寫表格和簡單問答等友好的人機交互方式。</p><p>　　a.系統(tǒng)安全

44、性驗證用戶界面設(shè)計</p><p>　　為了保證系統(tǒng)的安全性，進入系統(tǒng)之前必須經(jīng)過必要的安全性驗證。操作界面簡潔友好，清晰醒目是設(shè)計時考慮的風格。如圖3-8所示：</p><p>　　圖3-8 系統(tǒng)登錄界面</p><p><b>　　b.主界面</b></p><p>　　本系統(tǒng)的主界面屏幕有四部分組成，主要包括：菜單

45、欄、工具條、工作區(qū)</p><p>　　和狀態(tài)欄。如圖3-9所示：</p><p>　　圖3-9 系統(tǒng)主界面</p><p>　　用戶通過菜單選項，選擇所需功能，系統(tǒng)進入相應(yīng)的功能模塊。這時整個業(yè)務(wù)處理活動就在工作區(qū)進行，具體的業(yè)務(wù)數(shù)據(jù)處理功能，從界面的性質(zhì)上主要分為三類。</p><p><b>　?。?）數(shù)據(jù)編輯：</b&

46、gt;</p><p>　　系統(tǒng)的界面模式與原手工處理時紙質(zhì)表格模式基本一致，以使用戶在操作習慣和方式上比較熟悉和適應(yīng)，并在輸入規(guī)范化數(shù)據(jù)時，將有限的規(guī)范化數(shù)據(jù)項列出來，讓用戶通過選擇輸入，從而減少用戶輸入的工作量，同時也減少輸入錯誤的機會。有關(guān)界面如圖3-10、3-11、3-12所示：</p><p>　　圖3-10 報名錄入界面</p><p>　　圖3-11

47、考場安排界面</p><p>　　圖3-12 成績輸入界面</p><p><b>　?。?）數(shù)據(jù)瀏覽：</b></p><p>　　系統(tǒng)中的數(shù)據(jù)瀏覽功能主要通過使用工具欄中的按鈕實現(xiàn)，或者選擇菜單欄</p><p>　　中的編輯菜單也可實現(xiàn)瀏覽數(shù)據(jù)的目的。而數(shù)據(jù)查詢是通過工作區(qū)的命令按鈕“查找”來執(zhí)行。另外，還可以使用

48、“顯示”按鈕查看數(shù)據(jù)庫中的所有數(shù)據(jù)記錄。</p><p>　?。?）數(shù)據(jù)統(tǒng)計：其界面如圖3-13所示：</p><p>　　圖3-13 數(shù)據(jù)統(tǒng)計分析界面</p><p><b>　?。?）數(shù)據(jù)輸出：</b></p><p>　　數(shù)據(jù)輸出可分為屏幕輸出和打印輸出。輸出方式完全按照用戶的報告或報表格式進行設(shè)置，以符合用戶的應(yīng)

49、用習慣。如圖3-14、3-15、3-16所示：</p><p>　　圖 3-14 學生個人資料表</p><p>　　圖3-15 學生成績表</p><p>　　圖3-16 考場安排表</p><p>　　第4章 系統(tǒng)環(huán)境的實施</p><p>　　系統(tǒng)的實施與轉(zhuǎn)換首先要得到硬、軟件環(huán)境的保證，這是系統(tǒng)得以實施的物質(zhì)基

50、礎(chǔ)。</p><p>　　4.1開發(fā)工具的選擇</p><p>　　4.1.1前端軟件開發(fā)工具的選擇</p><p>　　在系統(tǒng)的程序設(shè)計中，采用了Microsoft公司的可視化開發(fā)工具Visual Basic 6.0。它是新一代面向?qū)ο蟮?、可視化的、簡單的、快速?yīng)用程序開發(fā)環(huán)境，使用它可以開發(fā)一般或基于客戶機/服務(wù)器模式的32位Windows應(yīng)用程序。通過標準數(shù)據(jù)

51、控件與數(shù)據(jù)庫進行綁定，使其快速實現(xiàn)對數(shù)據(jù)庫的操作。</p><p>　　4.1.2后臺數(shù)據(jù)庫的選擇</p><p>　　系統(tǒng)采用的是Microsoft公司的多媒體數(shù)據(jù)庫Access 2000，或者采用VB自帶的可視化數(shù)據(jù)管理器建立數(shù)據(jù)庫。</p><p>　　4.1.3軟件開發(fā)平臺的選擇</p><p>　　基于開發(fā)工具Visual Basi

52、c 6.0 和Access 2000對運行環(huán)境的要求，并根據(jù)學院硬件設(shè)備的情況，選擇了現(xiàn)在非常流行的Windows2000 Professional中文版作為系統(tǒng)開發(fā)和測試的平臺。</p><p><b>　　4.2程序設(shè)計</b></p><p>　　程序設(shè)計是系統(tǒng)實施中工作量最大，耗時最多的工作，是開發(fā)應(yīng)用軟件的主要環(huán)節(jié)。這節(jié)主要是部分系統(tǒng)模塊程序設(shè)計方法。<

53、;/p><p>　　開發(fā)過程中，對于學生信息庫中的照片綁定顯示，始終不能按照一般字段的綁定方法進行。為此，本文作者經(jīng)過反復地嘗試，把照片統(tǒng)一存放在照片庫中，且照片名與學號統(tǒng)一。其代碼如下：</p><p>　　Private Sub txtKaohao_Change()</p><p>　　On Error GoTo ErrorHandlerA</p>&

54、lt;p>　　If txtKaohao.Text <> "" Then</p><p>　　Image1.Picture = LoadPicture(App.Path + "\照片庫\"_</p><p>　　+ txtKaohao.Text + ".bmp")</p><p><b

55、>　　End If</b></p><p><b>　　Exit Sub</b></p><p>　　ErrorHandlerA:</p><p>　　MsgBox "沒有發(fā)現(xiàn)該生的照片，請載入照片！", , "載入照片"</p><p>　　prompt$ =

56、"請輸入你的學號"</p><p>　　searchstr$ = InputBox(prompt$, "輸入學號")</p><p>　　txtKaohao.Text = searchstr</p><p><b>　　End Sub</b></p><p>　　部分界面的程序代碼

57、如下：</p><p>　　Private Sub Form_Click()</p><p>　　UnloadForm</p><p><b>　　End Sub</b></p><p>　　Sub UnloadForm()</p><p><b>　　Unload Me</b&g

58、t;</p><p>　　If Not mbAbout Then frmLogin.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_KeyPress(KeyAscii As Integer)</p><p>　　UnloadForm</p>

59、<p><b>　　End Sub</b></p><p>　　Private Sub Label1_Click()</p><p>　　UnloadForm</p><p><b>　　End Sub</b></p><p>　　Private Sub Label2_Click()&l

60、t;/p><p>　　UnloadForm</p><p><b>　　End Sub</b></p><p>　　Private Sub Label3_Click()</p><p>　　UnloadForm</p><p><b>　　End Sub</b></p>

61、;<p>　　Private Sub Label4_Click()</p><p>　　UnloadForm</p><p><b>　　End Sub</b></p><p>　　Private Sub Label5_Click()</p><p>　　UnloadForm</p><

62、p><b>　　End Sub</b></p><p>　　Private Sub Label6_Click()</p><p>　　UnloadForm</p><p><b>　　End Sub</b></p><p>　　Private Sub Label7_Click()</p&

63、gt;<p>　　UnloadForm</p><p><b>　　End Sub</b></p><p>　　Private Sub Label8_Click()</p><p>　　UnloadForm</p><p><b>　　End Sub</b></p>&l

64、t;p>　　Private Sub Picture1_Click()</p><p>　　UnloadForm</p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　UnloadForm</p><p&g

65、t;<b>　　End Sub</b></p><p>　　Dim userID As Integer</p><p>　　Private Sub cboUserType_Change()</p><p>　　userID = cboUserType.ListIndex</p><p><b>　　End Su

66、b</b></p><p>　　Private Sub cboUserType_Click()</p><p>　　userID = cboUserType.ListIndex</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdCancel_Click()&

67、lt;/p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdOk_Click()</p><p>　　'取得用戶輸入的用戶名和密碼</p><p>　　Dim user As Str

68、ing, pwd As String</p><p>　　user = txtUser</p><p>　　pwd = txtPwd</p><p>　　'根據(jù)不同的身份，選擇不同的表用以查詢</p><p>　　Dim r As New ADODB.Recordset</p><p>　　Set r = Da

69、taEnv.rssqlseek</p><p>　　Dim strSQL As String</p><p><b>　　'選擇進入身份</b></p><p>　　Select Case userID</p><p>　　Case 0: '選擇身份為學生</p><p>　　st

70、rSQL = "select * from 學生密碼表 where 學生姓名='" & user & "' and 密碼='" & pwd & "'"</p><p>　　Case 1: '選擇身份為管理員</p><p>　　strSQL = "s

71、elect * from 管理員密碼表 where 管理員姓名='" & user & "' and 密碼='" & pwd & "'"</p><p>　　End Select</p><p>　　On Error Resume Next</p><p&g

72、t;　　If r.State = adStateOpen Then r.Close</p><p>　　r.Open strSQL</p><p><b>　　'判斷密碼是否正確</b></p><p>　　Static Count As Integer</p><p>　　If r.EOF Then</p

73、><p>　　MsgBox "對不起，無此用戶或者密碼不正確！請重新輸入！！", vbCritical, "錯誤"</p><p>　　txtUser.SetFocus</p><p>　　txtUser.SelStart = 0</p><p>　　txtUser.SelLength = Len(txtU

74、ser)</p><p>　　Count = Count + 1</p><p>　　If Count >= 3 Then</p><p>　　MsgBox "你無權(quán)操作本系統(tǒng)！再見！", vbCritical, "無權(quán)限"</p><p><b>　　Unload Me</b&g

75、t;</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　Load MDIfrm</p><p>　　With MDIfrm</p><p>　　.userID = cboUserType.ListIndex&l

76、t;/p><p>　　.userName = pwd</p><p><b>　　.Show</b></p><p><b>　　End With</b></p><p><b>　　Unload Me</b></p><p><b>　　End

77、If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　cboUserType.ListIndex = 0</p><p><b>　　End Sub</b></p><

78、p>　　Private Sub cmdArrange_Click()</p><p><b>　　Unload Me</b></p><p>　　frmArrange.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdEnrol_C

79、lick()</p><p><b>　　Unload Me</b></p><p>　　frmEnrol.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdexit_Click()</p><p>　　MDIfr

80、m.Hide</p><p>　　frmLogin.Show</p><p>　　frmLogin.txtUser.SetFocus</p><p>　　frmLogin.txtUser.SelStart = 0</p><p>　　frmLogin.txtUser.SelLength = Len(txtUser)</p>&l

81、t;p><b>　　End Sub</b></p><p>　　Private Sub cmdGrade_Click()</p><p><b>　　Unload Me</b></p><p>　　frmGrade.Show</p><p><b>　　End Sub</b&g

82、t;</p><p>　　Private Sub cmdSystem_Click()</p><p><b>　　Unload Me</b></p><p>　　frmSystem.Show</p><p><b>　　End Sub</b></p><p>　　Privat

83、e Sub Form_Resize()</p><p>　　Label1.Top = 150</p><p>　　Label1.Left = 150</p><p>　　Label2.Top = Label1.Top</p><p>　　Label2.Left = ScaleWidth - Label2.Width - 300</p&g

84、t;<p>　　cmdSystem.Top = Label1.Top + Label1.Height + 100</p><p>　　cmdSystem.Left = Label1.Left + 2000</p><p>　　cmdEnrol.Top = cmdSystem.Top + (cmdGrade.Top - cmdSystem.Top) / 3</p>

85、<p>　　cmdEnrol.Left = cmdSystem.Left + 3000</p><p>　　cmdArrange.Top = cmdEnrol.Top + (cmdGrade.Top - cmdSystem.Top) / 3</p><p>　　cmdArrange.Left = cmdEnrol.Left + 3000</p><p>

86、　　cmdGrade.Top = cmdExit.Top - 400 - cmdGrade.Height</p><p>　　cmdGrade.Left = Label2.Left - 1500 - cmdGrade.Width</p><p>　　cmdExit.Top = Label2.Top + Label2.Height + 500</p><p>　　cm

87、dExit.Left = Label2.Left</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdAdm_Click()</p><p><b>　　Unload Me</b></p><p>　　Load frmAdm</p>&

88、lt;p><b>　　End Sub</b></p><p>　　Private Sub cmdStu_Click()</p><p><b>　　Unload Me</b></p><p>　　Load frmStu</p><p><b>　　End Sub</b>&

89、lt;/p><p>　　Private Sub Form_Load()</p><p><b>　　'工具條的可用性</b></p><p>　　MDIfrm.Toolbar1.Enabled = False</p><p><b>　　'編輯菜單的可用性</b></p>

90、<p>　　MDIfrm.Add.Enabled = False</p><p>　　MDIfrm.Delete.Enabled = False</p><p>　　MDIfrm.Modify.Enabled = False</p><p>　　MDIfrm.Chazhao.Enabled = False</p><p>　　MDI

91、frm.Xianshi.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Resize()</p><p>　　cmdStu.Left = (ScaleWidth - cmdStu.Width) / 2</p><p>　　cmdSt

92、u.Top = ScaleHeight / 2 - cmdStu.Height / 2 - 1000</p><p>　　cmdAdm.Left = cmdStu.Left</p><p>　　cmdAdm.Top = ScaleHeight / 2 - cmdStu.Height / 2 + 500</p><p><b>　　End Sub</b

93、></p><p>　　Private Sub Form_Unload(Cancel As Integer)</p><p>　　frmMain.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdDelect_Click()</p><

94、;p><b>　　'刪除窗口</b></p><p>　　str1$ = "你確定要刪除一條記錄嗎？"</p><p>　　str2$ = MsgBox(str1$, vbOKCancel, "刪除記錄")</p><p>　　If str2$ = vbOK Then</p>

95、<p>　　dataDang.Recordset.Delete</p><p>　　If dataDang.Recordset.EOF Then</p><p>　　dataDang.Recordset.MoveLast</p><p><b>　　Else</b></p><p>　　dataDang.Rec

96、ordset.MoveNext</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdJoin_Click()</p>

97、<p><b>　　'添加窗口</b></p><p>　　str1$ = "請輸入學號"</p><p>　　str2$ = MsgBox(str1$, vbOKCancel, "添加記錄")</p><p>　　If str2$ = vbOK Then</p>&l

98、t;p>　　If cmdJoin.Caption = "添加" Then</p><p>　　cmdJoin.Caption = "確認"</p><p>　　cmdDelect.Enabled = False</p><p>　　cmdModify.Enabled = False</p><p>

99、;　　cmdSearch.Enabled = False</p><p>　　cmdScreen.Enabled = False</p><p>　　cmdUpdate.Enabled = True</p><p>　　If dataDang.Recordset.EOF = False Then</p><p>　　dataDang.Reco

100、rdset.MoveLast</p><p><b>　　End If</b></p><p>　　dataDang.Recordset.AddNew</p><p>　　Image1.Picture = LoadPicture()</p><p>　　txtKaohao.SetFocus</p><

101、p><b>　　Else</b></p><p>　　cmdJoin.Caption = "添加"</p><p>　　cmdDelect.Enabled = True</p><p>　　cmdModify.Enabled = True</p><p>　　cmdSearch.Enabled

102、= True</p><p>　　cmdScreen.Enabled = True</p><p>　　cmdUpdate.Enabled = False</p><p>　　dataDang.Recordset.Update</p><p>　　dataDang.Recordset.MoveLast</p><p>

103、<b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdModify_Click()</p><p><b>　　'修改</

104、b></p><p>　　If cmdModify.Caption = "修改" Then</p><p>　　cmdModify.Caption = "確認"</p><p>　　cmdJoin.Enabled = False</p><p>　　cmdDelect.Enabled = Fals

105、e</p><p>　　cmdSearch.Enabled = False</p><p>　　cmdScreen.Enabled = False</p><p>　　cmdUpdate.Enabled = True</p><p>　　dataDang.Recordset.Edit</p><p>　　txtKaoh

106、ao.SetFocus</p><p>　　txtKaohao.SelStart = 0</p><p>　　txtKaohao.SelLength = Len(txtKaohao)</p><p><b>　　Else</b></p><p>　　cmdModify.Caption = "修改"&l

107、t;/p><p>　　cmdJoin.Enabled = True</p><p>　　cmdDelect.Enabled = True</p><p>　　cmdSearch.Enabled = True</p><p>　　cmdScreen.Enabled = True</p><p>　　cmdUpdate.Ena

108、bled = False</p><p>　　dataDang.Recordset.Update</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdScreen_Click()</p>

109、<p><b>　　Unload Me</b></p><p>　　Load frmDang</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdSearch_Click()</p><p><b>　　'查找窗口<

110、;/b></p><p>　　prompt$ = "請輸入你的學號"</p><p>　　searchstr$ = InputBox(prompt$, "查找學號")</p><p>　　dataDang.Refresh</p><p>　　dataDang.Recordset.Index = &

111、quot;學號"</p><p>　　dataDang.Recordset.Seek "=", searchstr$</p><p>　　If dataDang.Recordset.NoMatch Then</p><p>　　MsgBox ("對不起，不能發(fā)現(xiàn)要查找的學號")</p><p>

112、;　　dataDang.Recordset.MoveFirst</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdUpdate_Click()</p><p><b>　　'放棄&

113、lt;/b></p><p>　　cmdJoin.Caption = "添加"</p><p>　　cmdModify.Caption = "修改"</p><p>　　cmdJoin.Enabled = True</p><p>　　cmdDelect.Enabled = True</p&

114、gt;<p>　　cmdModify.Enabled = True</p><p>　　cmdSearch.Enabled = True</p><p>　　cmdScreen.Enabled = True</p><p>　　cmdUpdate.Enabled = False</p><p>　　dataDang.Update

115、Controls</p><p>　　dataDang.Recordset.MoveLast</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　'工具條的可用性</b></p>&

116、lt;p>　　MDIfrm.Toolbar1.Enabled = True</p><p><b>　　'編輯菜單的可用性</b></p><p>　　MDIfrm.Add.Enabled = True</p><p>　　MDIfrm.Delete.Enabled = True</p><p>　　MDI

117、frm.Modify.Enabled = True</p><p>　　MDIfrm.Chazhao.Enabled = True</p><p>　　MDIfrm.Xianshi.Enabled = True</p><p>　　'添加專業(yè)組合框列表</p><p>　　combZhuanye.AddItem "計算機信息

118、管理"</p><p>　　combZhuanye.AddItem "計算機網(wǎng)絡(luò)工程"</p><p>　　combZhuanye.AddItem "計算機應(yīng)用工程"</p><p>　　combZhuanye.AddItem "國際經(jīng)濟貿(mào)易"</p><p>　　comb

119、Zhuanye.AddItem "市場營銷"</p><p>　　combZhuanye.AddItem "工商企業(yè)管理"</p><p>　　combZhuanye.AddItem "機電一體化"</p><p><b>　　End Sub</b></p><p&

120、gt;　　Private Sub Form_Resize()</p><p>　　Label1.Top = frmEnrol.Top + 2500</p><p>　　Label1.Left = (ScaleWidth - Label1.Width) / 2</p><p>　　Label2.Top = Label1.Top + Label1.Height + 50

121、0</p><p>　　Label2.Left = Label1.Left - 1000</p><p>　　txtKaohao.Top = Label2.Top</p><p>　　txtKaohao.Left = Label2.Left + Label2.Width + 250</p><p>　　Label3.Top = Label2.

122、Top + Label2.Height + 200</p><p>　　Label3.Left = Label2.Left</p><p>　　Text3.Top = Label3.Top</p><p>　　Text3.Left = txtKaohao.Left</p><p>　　Label4.Top = Label3.Top + Lab

123、el3.Height + 200</p><p>　　Label4.Left = Label2.Left</p><p>　　Combo1.Top = Label4.Top</p><p>　　Combo1.Left = txtKaohao.Left</p><p>　　Label5.Top = Label4.Top + Label4.Hei

124、ght + 300</p><p>　　Label5.Left = Label2.Left</p><p>　　Text5.Top = Label5.Top</p><p>　　Text5.Left = txtKaohao.Left</p><p>　　Label6.Top = Label5.Top</p><p>　

125、　Label6.Left = Text5.Left + Text5.Width + 100</p><p>　　Text6.Top = Label6.Top</p><p>　　Text6.Left = Label6.Left + Label6.Width + 100</p><p>　　Image1.Top = Label2.Top</p><

126、p>　　Image1.Left = Label6.Left + (Text6.Width + 200 + Label6.Width - Image1.Width) / 2</p><p>　　Image1.Height = txtKaohao.Height + Text3.Height + Combo1.Height + 500</p><p>　　Label7.Top = Labe

127、l6.Top + Text6.Height + 250</p><p>　　Label7.Left = Label2.Left</p><p>　　Text7.Top = Label7.Top</p><p>　　Text7.Left = txtKaohao.Left</p><p>　　Text7.Width = Text5.Width +

128、 Label6.Width + Text6.Width + 200</p><p>　　Label8.Top = Label7.Top + Text7.Height + 250</p><p>　　Label8.Left = Label2.Left</p><p>　　Text8.Top = Label8.Top</p><p>　　Text

129、8.Left = Label8.Left + Label8.Width + 200</p><p>　　Text8.Width = Text7.Width</p><p>　　Label9.Top = Label8.Top + Text8.Height + 250</p><p>　　Label9.Left = Label2.Left</p><