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

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

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

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

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

5、t;　　管理信息系統(tǒng)、學(xué)生管理、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)設(shè)計··········&

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

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

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

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

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

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

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

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

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

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

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

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

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

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)設(shè)置模塊······

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é)構(gòu)圖················

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é)構(gòu)····················&#

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é)構(gòu)··························

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

88、3;···························27 </p><p>　　二、課程設(shè)置界面的創(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é)構(gòu)

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>　　四．學(xué)生考試違規(guī)管理界面創(chuàng)建··

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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é)構(gòu)·································&

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

171、創(chuàng)建數(shù)據(jù)庫的過程。</p><p>　?。?）運行Access應(yīng)用程序，在“新建數(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ù)庫”子窗口中的“設(shè)計”按鈕。此時將會出出“表1：表”窗口，如圖4所示。</p&

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

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

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

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

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

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

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

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)設(shè)置模塊</p

200、><p>　　一.系統(tǒng)設(shè)置模塊主要功能如下：</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("輔導(dǎo)員") = 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>