學生信息管理系統(tǒng)畢業(yè)論文

1、<p><b>　　畢業(yè)設計（論文）</b></p><p><b>　　學生信息管理系統(tǒng)</b></p><p>　　學生姓名　　　　 　*** 　　　　</p><p>　　系（部）　　　 信息工程系　　　 </p><p>　　專業(yè)　　　　　 計算機網(wǎng)絡技術　　</p&g

2、t;<p>　　指導教師 　 　　　　***　　　　　</p><p>　　2008年5月16日</p><p><b>　　摘 要</b></p><p>　　隨著信息技術在管理上越來越深入而廣泛的應用，管理信息系統(tǒng)的實施在技術上已逐步成熟。管理信息系統(tǒng)是一個不斷發(fā)展的新型學科，隨著學校規(guī)模的不斷擴大，學生數(shù)量的不斷增加，學生的

3、信息量也成倍增長。學生管理工作是學校各項工作的一個重要部分，其管理水平的高低將直接影響到人才的培養(yǎng)質(zhì)量。面對龐大的信息量，如何有效地提高學生管理工作的效率是一個學校急需解決的問題。因此開發(fā)適合學校需要的學生管理信息系統(tǒng)，通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學統(tǒng)計和快速查詢，并減少管理方面的工作量。</p><p>　　本文介紹了在Visual Basic6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應用開

4、發(fā)”的策略開發(fā)一個管理信息系統(tǒng)的過程。通過分析訪客管理的不足，創(chuàng)建了一套行之有效的計算機管理學生的方案。文章介紹了訪客管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務流程分析等；系統(tǒng)設計部分主要介紹了系統(tǒng)功能設計和數(shù)據(jù)庫設計及代碼設計；系統(tǒng)實現(xiàn)部分說明了幾個主要模塊的算法， 本系統(tǒng)面友好，操作簡單，比較實用。</p><p><b>　　關鍵詞：</b></p><p&g

5、t;　　管理信息系統(tǒng)、學生管理、Visual Basic,ACCESS.</p><p><b>　　Abstract</b></p><p>　　As information technology in the management of more in-depth and wide range of applications, management informa

6、tion system has been gradually implemented in the technical maturity. Management Information System is a continuous development of new disciplines, with the growing size of schools, the increasing number of students, stu

7、dents also have increased the amount of information. Students of the school management is an important part of the work, the level of its management level will directly </p><p>　　This text introduced in the

8、Visual Basic6.0 under the environments the strategy of adoption"from top to bottom total programming, from bottom but last pplication development" develop a process which manage information system.Pass the shor

9、tage of analytical visitor management, established a valid a set of line a calculator a management the student's project.The article introduced visitor a management information system of system analysis part, System

10、realization part explained a few calculate way</p><p>　　[Keywords] ：</p><p>　　MIS、student management、visual basic application</p><p><b>　　目 錄</b></p><p>

11、　　前言····································

12、····································

13、3;····································&#

14、183;·······1</p><p>　　第一章　概 述························

15、;····································

16、83;····································&

17、#183;·2</p><p>　　第二章需求分析·····························

18、3;····································&#

19、183;·········3</p><p>　　第一節(jié) 系統(tǒng)需求分析·····················&#

20、183;····································

21、································3</p><p>　　第二節(jié)可

22、行性分析····································

23、····································

24、3;·····················4</p><p>　　第三章系統(tǒng)設計··········&

25、#183;····································

26、;····································

27、83;············4　</p><p>　　第一節(jié) 系統(tǒng)功能的分析··················&

28、#183;····································

29、;·······························4</p><p>　　第四章 數(shù)據(jù)庫設計

30、····································

31、3;····································&#

32、183;················5</p><p>　　第一節(jié) 數(shù)據(jù)庫需求分析··············&

33、#183;····································

34、;···································5</p&g

35、t;<p>　　第二節(jié) 數(shù)據(jù)庫設計································

36、3;····································&#

37、183;······················6</p><p>　　第五章 詳細設計········

38、3;····································&#

39、183;····································

40、············9</p><p>　　第一節(jié) 用戶登錄、歡迎光臨和主窗體··················

41、;····································

42、83;····················9</p><p>　　一、 用戶登陸窗體的創(chuàng)建··········&

43、#183;····································

44、;····································

45、83;·······9</p><p>　　二、 歡迎光臨窗體的創(chuàng)建·······················

46、····································

47、3;·····························10</p><p>　　三 、主窗體的創(chuàng)建·

48、3;····································&#

49、183;····································

50、·························11</p><p>　　第二節(jié) 系統(tǒng)設置模塊······

51、;····································

52、83;····································&

53、#183;················13</p><p>　　一、用戶管理添加修改刪除瀏覽·············&#

54、183;····································

55、································13</p><p>　　二、重

56、新登陸的創(chuàng)建···································

57、3;····································&#

58、183;··························14</p><p>　　三 、退出系統(tǒng)的創(chuàng)建····&

59、#183;····································

60、;····································

61、83;···················15 </p><p>　　第三節(jié) 班級管理模塊·········

62、;····································

63、83;····································&

64、#183;·············16</p><p>　　一、班級管理模塊的結(jié)構圖················

65、3;····································&#

66、183;···································16<

67、/p><p>　　二、班級添加界面創(chuàng)建································

68、;····································

69、83;···························17</p><p>　　三、班級查詢界面創(chuàng)建···&#

70、183;····································

71、····································

72、3;···················18 </p><p>　　第四節(jié) 檔案管理模塊···········&#

73、183;····································

74、····································

75、3;··········19</p><p>　　一、檔案管理模塊的結(jié)構····················&#

76、183;····································

77、···································19</p&g

78、t;<p>　　二、檔案添加界面創(chuàng)建································

79、83;····································&

80、#183;·······················19</p><p>　　三 、檔案查詢界面創(chuàng)建·······

81、;····································

82、83;····································&

83、#183;·············22</p><p>　　第五節(jié) 課程管理模塊·················

84、····································

85、3;····································&#

86、183;····27</p><p>　　一、課程管理模塊的結(jié)構··························

87、····································

88、3;···························27 </p><p>　　二、課程設置界面的創(chuàng)建···&

89、#183;····································

90、;····································

91、83;···············27</p><p>　　三 、課程查詢界面的創(chuàng)建···············

92、····································

93、3;····································&#

94、183;··29</p><p>　　第六節(jié)成績管理模塊····························&#

95、183;····································

96、·······························32</p><p>　　成績管理模塊的結(jié)構

97、····································

98、3;····································&#

99、183;·················32</p><p>　　成績添加界面的創(chuàng)建·············&#

100、183;····································

101、····································

102、3;····32</p><p>　　成績查詢界面的創(chuàng)建··························

103、3;····································&#

104、183;···························35</p><p>　　四．學生考試違規(guī)管理界面創(chuàng)建··

105、83;····································&

106、#183;····································

107、;······36</p><p>　　第七節(jié) 交費管理模塊························

108、3;····································&#

109、183;·································38</p><

110、p>　　一、交費管理模塊的結(jié)構·································

111、3;····································&#

112、183;·····················38</p><p>　　二、學生交費添加界面創(chuàng)建·········

113、;····································

114、83;····································&

115、#183;······38</p><p>　　三 、學生交費查詢界面創(chuàng)建·······················

116、83;····································&

117、#183;···························40</p><p>　　第八節(jié) 打印統(tǒng)計模塊···

118、····································

119、3;····································&#

120、183;···················42</p><p>　　打印統(tǒng)計模塊的結(jié)構···········&#

121、183;····································

122、····································

123、3;······42</p><p>　　班級統(tǒng)計打印界面創(chuàng)建························

124、83;····································&

125、#183;··························42</p><p>　　檔案統(tǒng)計打印界面創(chuàng)建····

126、····································

127、3;····································&#

128、183;··········44</p><p>　　課程統(tǒng)計打印界面創(chuàng)建····················&

129、#183;····································

130、;·······························45</p><p>　　成績統(tǒng)計打印界面

131、創(chuàng)建····································&#

132、183;····································

133、···············46</p><p>　　六．交費統(tǒng)計打印界面創(chuàng)建···············

134、83;····································&

135、#183;····································

136、;47</p><p>　　第九節(jié) 幫助模塊·······························

137、····································

138、3;··································49</p>

139、<p>　　一、 幫助模塊的結(jié)構·································&

140、#183;····································

141、;··························49</p><p>　　二、關于界面創(chuàng)建·····

142、····································

143、3;····································&#

144、183;·······················49</p><p>　　第六章 總結(jié)········

145、;····································

146、83;····································&

147、#183;···················49·</p><p>　　參考文獻···········

148、····································

149、3;····································&#

150、183;·······················50</p><p>　　致謝········

151、83;····································&

152、#183;····································

153、;···································51</p&

154、gt;<p><b>　　前言</b></p><p>　　長時間以來，學校的學生信息管理基本上都是靠手工進行,隨著大學擴招,學生管理各個方面的工作給老師和學校工作人員形成了一定的壓力，有關有的學校不得不靠增加人力,物力來進行學生信息管理.但手工管理具有效率底,出錯率高.所以學生信息管理系統(tǒng)的開發(fā)還是有一定的意義的。</p><p>　　本章我們將以一個

155、學生信息管理系統(tǒng)為例子，來講述如何建立一個學生信息管理系統(tǒng)。因為Visual Basic6.0具有強大的數(shù)據(jù)庫管理功能，我們選定Visual Basic6.0實現(xiàn)學生管理信息系統(tǒng)中的各項功能。</p><p><b>　　第一章　概 述</b></p><p>　　學生管理信息系統(tǒng)作為學校管理中的一個子系統(tǒng)，與其他子系統(tǒng)，如教學管理系統(tǒng)、人事管理系統(tǒng)、后勤管理系統(tǒng)，圖

156、書館管理系統(tǒng)等一起構成校園管理信息系統(tǒng)，為校園管理信息化提供一個子功能。所以，幾乎所有的大、中、小學校都需要一套這樣的管理系統(tǒng)來提高日常的工作效率。下圖所示是典型的學生管理信息系統(tǒng)的界面。</p><p>　　圖 1 典型的學生管理信息系統(tǒng)的界面</p><p>　　從界面可以看到，學生管理信息系統(tǒng)應該包括學生信息管理、課程管理、成績管理、系統(tǒng)管理等基本內(nèi)容。</p><

157、;p>　?。?）學生信息管理的數(shù)據(jù)有：學生學號、姓名、性別、出生日期、所屬班級、所學專業(yè)、籍貫等，當有新生到校時，就啟動相應的信息管理功能，對所有的學生信息進行入庫，隨時掌握學生的基本信息。</p><p>　?。?）成績管理是數(shù)據(jù)量比較大的管理工作，每次考試結(jié)束后負責對學生各個科目的成績?nèi)霂旃ぷ骱蛯?shù)據(jù)庫成績出錯的校對工作。</p><p>　?。?）系統(tǒng)管理主要是修改用名密碼、增

158、加用戶等工作。</p><p>　　學生管理信息系統(tǒng)作為典型的數(shù)據(jù)庫項目應用的一種，其開發(fā)流程包括需求分析、系統(tǒng)建模、確定系統(tǒng)集成方案、數(shù)據(jù)庫分析和設計以及各功以模塊的開發(fā)等。下面介紹一個學生管理信息系統(tǒng)的詳細開發(fā)過程。</p><p><b>　　第二章　需求分析</b></p><p><b>　　一．系統(tǒng)需求分析</b&g

159、t;</p><p>　　伴隨社會的高速發(fā)展，全國各高校的學生數(shù)量一直在增加，在這樣的形式下，必須要求學校有一種高效有序的方法來管理學生的信息。</p><p>　　通過調(diào)查,要求系統(tǒng)需要有以下功能:</p><p>　?、?由于操作人員的計算機知識普遍較差,要求有良好的人機界面;</p><p>　?、?由于該系統(tǒng)的使用對象多,要求有較好的

160、權限管理; </p><p>　　⑶ 原始數(shù)據(jù)修改簡單方便,支持多條件修改</p><p>　?、?方便的數(shù)據(jù)查詢，支持多條件查詢;</p><p>　?、?在相應的權限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好；</p><p>　?、?數(shù)據(jù)計算自動完成，盡量減少人工干預</p><p><b>　　二．可行性分析

161、</b></p><p>　　由于本系統(tǒng)管理的對象單一,都是學生，且每個數(shù)據(jù)內(nèi)容具有較強的關聯(lián)性，涉及的計算過程不是很復雜。因此，比較適合于采用數(shù)據(jù)庫管理。在技術難度方面，由于有指導老師的指導和相關參考文獻，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實現(xiàn)。</p><p>　　本系統(tǒng)的設計是在Windows XP操作系統(tǒng)環(huán)境下，使用Visual Basic 6.0中

162、文版開發(fā)成功的。數(shù)據(jù)庫是MIS中的重要支持技術，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下：</p><p>　　Visual Basic具有以下特點：</p><p><b>　?。?）可視化編程：</b></p><p>　　用傳統(tǒng)程序設計語言設計程序時，都是通過編寫程序代碼來設計用戶界面，在設計

163、過程中看不到界面的實際顯示效果，必須編譯后運行程序才能觀察。如果對界面的效果不滿意，還要回到程序中修改有時候，這種編程-編譯-修改的操作可能要反復多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設計工具，把Windows界面設計的復雜性“封裝”起來，開發(fā)人員不必為界面設計而編寫大量程序代碼。只需要按設計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設置這些圖形對象的屬性。Visual Bas

164、ic自動產(chǎn)生界面設計代碼，程序設計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設計的效率。</p><p>　　（2）面向?qū)ο蟮某绦蛟O計4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O計，是應用面向?qū)ο蟮某绦蛟O計方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應有的屬性，使對象成為實在的東西。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Vi

165、sual Basic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。</p><p><b>　　第三章 系統(tǒng)設計</b></p><p><b>　　一．系統(tǒng)功能分析</b></p><p>　　系統(tǒng)開發(fā)的總體任務是實現(xiàn)學生信息關系的系統(tǒng)化，規(guī)范化和自動化。</p><p

166、>　　學生管理系統(tǒng)需要完成的功能主要有：</p><p>　　●學生信息的輸入，包括輸入學生基本信息、所在班級、所學課和成績等。</p><p>　　●學生信息的查詢，包括輸入學生基本信息、所在班級、已學課程和成績等。</p><p><b>　　●學生信息的修改。</b></p><p>　　●班級管理信息的輸入

167、、查詢、修改，包括輸入班級設置，年級信息等。</p><p>　　●基本課程信息的輸入、查詢、修改。</p><p>　　●學生成績信息的輸入、查詢、修改。</p><p><b>　　第四章、數(shù)據(jù)庫設計</b></p><p><b>　　一．數(shù)據(jù)庫需求分析</b></p><

168、p>　　● 用戶信息：包括的數(shù)據(jù)項有：用戶名、密碼、用戶描述。</p><p>　　● 學生基本信息：包括的數(shù)據(jù)項有：學生學號、學生姓名、性別、出生日期、班號、聯(lián)系電話、入校日期、家庭地址、備注等。</p><p>　　● 班級信息：包括的數(shù)據(jù)項有：班號、所在年級、班主任姓名、所在教室等。</p><p>　　● 課程基本信息：包括的數(shù)據(jù)項有：課程號、課程名稱

169、、課程類別、課程描述等。</p><p>　　● 課程設置信息：包括的數(shù)據(jù)項有：年級信息、所學課程等。</p><p>　　● 學生成績信息：包括的數(shù)據(jù)項有：考試編號、所在班號、學生學號、學生</p><p>　　姓名、所學課程、考試分數(shù)等。</p><p>　　二．數(shù) 據(jù) 庫 設 計</p><p>　　數(shù)據(jù)庫設計與

170、應用等程序設計是分離的，數(shù)據(jù)庫的設計非常重要。有了數(shù)據(jù)庫模型，數(shù)據(jù)庫的設計就簡單多了。在學生管理信息系統(tǒng)中，首先要創(chuàng)建學生管理信息系統(tǒng)數(shù)據(jù)庫，然后在數(shù)據(jù)庫中創(chuàng)建需要的表和字段。下面分別講述本系統(tǒng)中數(shù)據(jù)庫的設計。本例采用Access2000數(shù)據(jù)庫系統(tǒng)來進行數(shù)據(jù)庫的設計。</p><p><b>　　1 、 創(chuàng)建數(shù)據(jù)庫</b></p><p>　　下面給出在Access中

171、創(chuàng)建數(shù)據(jù)庫的過程。</p><p>　　（1）運行Access應用程序，在“新建數(shù)據(jù)庫”選項組中選取“空Access數(shù)據(jù)庫”單選，按鈕，然后單擊“確定”按鈕，如圖18所示。</p><p>　?。?）在“文件新建數(shù)據(jù)庫”窗口指定數(shù)據(jù)庫的存放位置與數(shù)據(jù)庫文件名稱（本例為Stu.mdb）然后單擊“創(chuàng)建”按鈕，如圖所示。</p><p>　　如圖2是新建數(shù)據(jù)庫 <

172、/p><p>　　圖3指定數(shù)據(jù)庫的存放位置與數(shù)據(jù)庫文件名稱</p><p><b>　　2、創(chuàng)建表</b></p><p>　　下面給出在Access 中創(chuàng)建表的過程。</p><p>　?。?）在創(chuàng)建數(shù)據(jù)庫后，進入主界面，單擊“Stu：數(shù)據(jù)庫”子窗口中的“設計”按鈕。此時將會出出“表1：表”窗口，如圖4所示。</p&

173、gt;<p><b>　　圖5開始設計表</b></p><p>　?。?）在表的設計窗口“表1：表”中，按表6建立數(shù)據(jù)字段，并指定字段的數(shù)據(jù)類型與相關屬性。</p><p>　　表6學生信息數(shù)據(jù)庫（Stuinfo）</p><p>　　建立數(shù)據(jù)庫字段并指定字段的數(shù)據(jù)類型與相關屬性后，字段設計界面如圖6所示。</p>

174、<p>　?。?）在StuId字段上單擊鼠標右鍵，選擇快捷菜單中的“主鍵”選項，讓StuId字段成為主要索引字段，則StuId 字段前方將出郵一個鑰匙圖標，如圖7所示。</p><p>　　圖8字段設計 </p><p>　?。?）字段設計完畢后，單擊工具欄中的“保存”按鈕，此時將會出現(xiàn)“另存為”對話框，在“表名稱”文本框輸入“StuInfo

175、”，如圖9所示，然后單擊“確定”按鈕將這個表保存。</p><p>　?。?）回到“Stu：數(shù)據(jù)庫”子窗口中，如果出現(xiàn)了StuInfo 這個表項目，就代表現(xiàn)在已經(jīng)完成學生數(shù)據(jù)文件的設計，如圖24所示。</p><p>　　圖7保存表 </p><p>　　（4）重復步驟（1）~（5），按表7、表8、表9、表10建立表，并指定表中各字估的數(shù)據(jù)類型與

176、相關屬性。</p><p><b>　　表7班級表</b></p><p><b>　　表8成績表</b></p><p><b>　　表9交費表</b></p><p><b>　　表10課程表</b></p><p><b

177、>　　表11用戶資料表</b></p><p><b>　　第五章　詳細設計</b></p><p>　　以上內(nèi)容完成了數(shù)據(jù)庫的后臺工作，建立起了能夠保障系統(tǒng)順利、正確運行的后臺。界面設計工作在進行系統(tǒng)開發(fā)的時候是必不可少，也是十分重要的。下面就對學生管理信息系統(tǒng)的界面設計。</p><p>　　第一節(jié) 用戶登錄、歡迎光臨和主

178、窗體的創(chuàng)建</p><p>　　1、 用戶登錄界面設計</p><p>　　利用用戶登錄成功能實現(xiàn)對用戶操作權限的限制。管理員和學生的權限不一樣，管理員擁有系統(tǒng)的所有權限，學生只有查詢修改個人信息和打印成績單的權限。用戶必須輸入正確的密碼才能進入下一界面，如果用戶的密碼輸入錯誤，應用程序會提示錯誤信息。用戶如果連續(xù)3次輸入錯誤，應用程序會強迫使用者退出并終止應用程序的運行，下圖所示是用戶

179、登錄界面窗體。</p><p>　　2、主窗體的創(chuàng)建界面設計</p><p>　　學生管理信息系統(tǒng)主界面主要實現(xiàn)班級管理、檔案管理、成績管理、學生信息管理、和查詢修改等功能。選擇該界面中不同的身份按鈕，就會進入實現(xiàn)不同勸限的窗體。下圖是學生管理信息系統(tǒng)主界面窗體。</p><p><b>　　3.代碼分析與實現(xiàn)</b></p>&

180、lt;p>　　上面對程序界面設計進行了詳細的設計，基本完成了程序界面的設計工作。程序代碼是程序的核心所在，是系統(tǒng)開發(fā)的靈魂。下面只列舉出部分代碼。</p><p>　?。?） 用戶登錄的代碼實現(xiàn)</p><p>　　學生信息管理系統(tǒng)啟動時，首先出現(xiàn)的是歡迎界面而后出現(xiàn)登錄界面。程序從配置文件中獲取管理員和學生的密碼，和用戶輸入的密碼比較，如果密碼正確，則根據(jù)身份配權限；如果不正確，

181、重輸3次，系統(tǒng)自動退出。代碼如下：</p><p>　　Private Sub Command1_Click()</p><p>　　Dim sqldl As String</p><p>　　Dim sf As String</p><p>　　If zong = 3 Then '若用戶輸入的次數(shù)超過三次，則自動退出</

182、p><p><b>　　Unload Me</b></p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Dat

183、a Source=信息.mdb;" '打開數(shù)據(jù)庫</p><p>　　If Trim(Text1.Text = "") Then</p><p>　　MsgBox "沒有輸入用戶名,請輸入!", vbOKOnly + vbExclamation, "警告"</p><p>　

184、　Text1.SetFocus</p><p>　　Text2.Text = ""</p><p>　　myCon.Close</p><p>　　zong = zong + 1 '累加輸入次數(shù)</p><p><b>　　Exit Sub</b></p>&l

185、t;p><b>　　End If</b></p><p>　　sqldl = "select * from 用戶資料 where 用戶名='" & Text1.Text & "' "</p><p>　　myRs.Open sqldl, myCon</p><p>　

186、　If myRs.EOF = True Then</p><p>　　MsgBox "沒有這個用戶,請重新輸入用戶名!", vbOKOnly + vbExclamation, "警告"</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = ""</p>

187、<p>　　Text2.Text = ""</p><p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　zong = zong + 1</p><p><b>　　Exit Sub</b></p><p><b&g

188、t;　　End If</b></p><p>　　If myRs.Fields("密碼") <> Trim(Text2.Text) Then</p><p>　　MsgBox "密碼不正確,請重新輸入!", vbOKOnly + vbExclamation, "警告"</p><p>

189、;　　Text2.SetFocus</p><p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　zong = zong + 1</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>

190、</p><p>　　If myRs.Fields("身份") <> Combo1.Text Then</p><p>　　MsgBox "身份不正確,請重新選擇!", vbOKOnly + vbExclamation, "警告"</p><p>　　Combo1.SetFocus</p&

191、gt;<p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　zong = zong + 1</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　s

192、f = myRs.Fields("身份")</p><p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　XingMing = Text1.Text</p><p><b>　　Unload Me</b></p><p>　　Frm_

193、Main.Show</p><p>　　If sf = "管理員" Then</p><p>　　Frm_Main.Mun_LiulanUser.Enabled = True</p><p><b>　　admin = 1</b></p><p><b>　　Else</b>&l

194、t;/p><p>　　Frm_Main.Mun_LiulanUser.Enabled = False</p><p>　　Frm_Main.Mun_DelUser.Enabled = False</p><p>　　Frm_Main.Mun_AddUser.Enabled = False</p><p>　　Frm_Main.Mun_AddCla

195、ss.Enabled = False</p><p>　　Frm_Main.Mun_AddDangA.Enabled = False</p><p>　　Frm_Main.Mun_ShezGrean.Enabled = False</p><p>　　Frm_Main.Mun_AddChengJ.Enabled = False</p><p>

196、;　　Frm_Main.Mun_ChengJWeiG.Enabled = False</p><p>　　Frm_Main.Mun_AddJiaoF.Enabled = False</p><p>　　Frm_Main.Mun_ClassCount.Enabled = False</p><p>　　Frm_Main.Mun_DandACount.Enabled =

197、 False</p><p>　　Frm_Main.Mun_GreanCount.Enabled = False</p><p>　　Frm_Main.Mun_ChengJCount.Enabled = False</p><p>　　Frm_Main.Mun_JiaoFCount.Enabled = False</p><p><b&

198、gt;　　admin = 0</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　為了防止用戶多次重輸密碼，限制了輸入了次數(shù)為3次，因此需要對次數(shù)進行初始化，活加代碼如下：</p><p>　　Procedur

199、e TLoginFrm.FormShow(Sender:TObject);</p><p><b>　　Begin</b></p><p><b>　　Times:=0;</b></p><p><b>　　End;</b></p><p>　　第二節(jié) 系統(tǒng)設置模塊</p

200、><p>　　一.系統(tǒng)設置模塊主要功能如下：</p><p>　　●用戶管理的添加，刪除，修改，瀏覽等</p><p><b>　　●重新登陸</b></p><p><b>　　●退出系統(tǒng)</b></p><p>　　1.用戶管理添加代碼如下：</p><p

201、>　　Private Sub Command1_Click()</p><p>　　Dim strName, strPass, strPassAgain, strShenFen As String</p><p>　　strName = Trim(Text1.Text)</p><p>　　strPass = Trim(Text2.Text)</p>

202、;<p>　　strPassAgain = Trim(Text3.Text)</p><p>　　strShenFen = Trim(Combo1.Text)</p><p>　　If strName = "" Or strPass = "" Or strPassAgain = "" Or strShenFen =

203、"" Then</p><p>　　MsgBox "請?zhí)顚懲暾匈Y料！", vbOKOnly, "警告"</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If

204、</b></p><p>　　myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;"</p><p>　　myRs.Open "select * from 用戶資料 where 用戶名='" & strName & "'&

205、quot;, myCon</p><p>　　If Not myRs.EOF Then</p><p>　　Text1.SetFocus</p><p>　　MsgBox "該用戶名已經(jīng)存在，請使用其他用戶名！", vbOKOnly, "警告"</p><p>　　myRs.Close</p>

206、;<p>　　myCon.Close</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If strPass <> strPassAgain Then</p><p>　　MsgBox "兩

207、次輸入的密碼不同！", vbOKOnly, "警告"</p><p>　　Text3.SetFocus</p><p>　　myRs.Close</p><p>　　myCon.Close</p><p><b>　　Exit Sub</b></p><p><

208、b>　　End If</b></p><p>　　myRs.Close</p><p>　　myRs.CursorType = adOpenKeyset</p><p>　　myRs.LockType = adLockOptimistic</p><p>　　myRs.Open "用戶資料", myCon

209、, 3, 2</p><p>　　myRs.AddNew</p><p>　　myRs!用戶名 = Text1.Text</p><p>　　myRs!密碼 = Text2.Text</p><p>　　myRs!身份 = Combo1.Text</p><p>　　myRs.Update</p><

210、;p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　MsgBox "注冊成功！", vbOKOnly, "提示"</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""

211、;</p><p>　　Text3.Text = ""</p><p>　　Combo1.Text = ""</p><p>　　Text1.SetFocus</p><p>　　Frm_LiulanUser.Adodc1.Refresh</p><p>　　Frm_Liulan

212、User.DataGrid1.Refresh</p><p><b>　　End Sub</b></p><p>　　2.用戶管理刪除代碼：</p><p>　　Private Sub Command1_Click()</p><p>　　If List1.Text = "" Then</p&g

213、t;<p>　　MsgBox "請輸入用戶名！", vbOKOnly, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　vbyorn = MsgBox("確定要刪除嗎？&qu

214、ot;, vbOKCancel, "警告")</p><p>　　If vbyorn = vbOK Then</p><p>　　Frm_LiulanUser.Adodc1.Recordset.Delete</p><p>　　Frm_LiulanUser.Adodc1.Recordset.MoveNext</p><p>

215、;　　List1.RemoveItem List1.ListIndex</p><p><b>　　End If</b></p><p>　　Frm_LiulanUser.Adodc1.Refresh</p><p><b>　　End Sub</b></p><p><b>　　3.瀏覽

216、用戶代碼：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Adodc1.RecordSource = "select * from 用戶資料 order by 用戶名"</p><p><b>　　Unload Me</b></p><

217、;p><b>　　End Sub</b></p><p>　　第三節(jié) 班級管理模塊</p><p>　　一．班級管理模塊的主要功能：</p><p><b>　　●班級的添加</b></p><p><b>　　●班級查詢</b></p><p>

218、　　1.班級添加代碼如下：</p><p>　　Private Sub Command1_Click()</p><p>　　Dim NianJi, ZhuanYe, RenShu, FuDaoYuan, BeiZu As String</p><p>　　NianJi = Text1.Text</p><p>　　ZhuanYe = Tex

219、t2.Text</p><p>　　RenShu = Text3.Text</p><p>　　FuDaoYuan = Text4.Text</p><p>　　BeiZu = Text5.Text</p><p>　　Command1.Enabled = True</p><p>　　If Trim(NianJi)

220、= "" Or Trim(ZhuanYe) = "" Or Trim(RenShu) = "" Or Trim(FuDaoYuan) = "" Then</p><p>　　MsgBox "班級資料不能為空,請?zhí)顚懲暾?quot;</p><p><b>　　Exit Sub</b&

221、gt;</p><p><b>　　End If</b></p><p>　　myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;"</p><p>　　myRs.Open "select * from 班級表 where 年級='

222、" & Trim(Text1.Text) & "' and 專業(yè)='" & Trim(Text2.Text) & "' ", myCon</p><p>　　If myRs.EOF = False Then</p><p>　　MsgBox "該班級已經(jīng)存在，請重新輸入！&

223、quot;</p><p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p>&

224、lt;p>　　myRs.Close</p><p>　　myRs.Open "班級表", myCon, 3, 2</p><p>　　myRs.AddNew</p><p>　　myRs.Fields("年級") = Text1.Text</p><p>　　myRs.Fields("專

225、業(yè)") = Text2.Text</p><p>　　myRs.Fields("人數(shù)") = Text3.Text</p><p>　　myRs.Fields("輔導員") = Text4.Text</p><p>　　If Text5.Text = "" Then</p><

226、p>　　myRs.Fields("備注") = " "</p><p><b>　　Else</b></p><p>　　myRs.Fields("備注") = Text5.Text</p><p><b>　　End If</b></p>&

227、lt;p>　　myRs.Update</p><p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　MsgBox "添加成功!"</p><p>　　Text1.SetFocus</p><p>　　Adodc1.RecordSource = &qu

228、ot;select * from 班級表 order by 年級"</p><p>　　Frm_AddClass.Adodc1.Refresh</p><p>　　Frm_AddClass.DataGrid1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Te

229、xt = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p><b>　　End Sub</b></p>

230、<p>　　2.班級查詢代碼如下：</p><p>　　Private Sub Command1_Click()</p><p>　　Dim a As String</p><p>　　Dim BJCX1 As String</p><p>　　Dim BJCX2 As String</p><p>　　

231、a = Trim(Combo2)</p><p>　　Select Case a</p><p><b>　　Case "="</b></p><p>　　BJCX1 = "" & Combo1.Text & " " & Combo2.Text & &q

232、uot; '" & Trim(Text1) & "'"</p><p>　　Case "like"</p><p>　　BJCX1 = "Instr(1," & Combo1.Text & ",'" & Trim(Text1.Text)

233、& "')<>0 "</p><p>　　End Select</p><p>　　a = Trim(Combo4)</p><p>　　Select Case a</p><p><b>　　Case "="</b></p><p&

234、gt;　　BJCX2 = "" & Combo3.Text & " " & Combo4.Text & " '" & Trim(Text2) & "'"</p><p>　　Case "like"</p><p>　　BJCX2

235、 = "Instr(1," & Combo3.Text & ",'" & Trim(Text2.Text) & "')<>0 "</p><p>　　End Select</p><p>　　If Option1.Value = True Then</p>