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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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é) 班級(jí)管理模塊·········

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

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

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

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

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

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

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

69、83;···························17</p><p>　　三、班級(jí)查詢界面創(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é)成績(jī)管理模塊····························&#

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

133、···············46</p><p>　　六．交費(fèi)統(tǒng)計(jì)打印界面創(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>　　參考文獻(xiàn)···········

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

176、相關(guān)屬性。</p><p><b>　　表7班級(jí)表</b></p><p><b>　　表8成績(jī)表</b></p><p><b>　　表9交費(fèi)表</b></p><p><b>　　表10課程表</b></p><p><b

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

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

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

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

181、重輸3次，系統(tǒng)自動(dò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ù)超過(guò)三次，則自動(dòng)退出</

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ù)庫(kù)</p><p>　　If Trim(Text1.Text = "") Then</p><p>　　MsgBox "沒(méi)有輸入用戶名,請(qǐng)輸入!", 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 "沒(méi)有這個(gè)用戶,請(qǐng)重新輸入用戶名!", 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 "密碼不正確,請(qǐng)重新輸入!", 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 "身份不正確,請(qǐng)重新選擇!", 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次，因此需要對(duì)次數(shù)進(jìn)行初始化，活加代碼如下：</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 "請(qǐng)?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)存在，請(qǐ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 "注冊(cè)成功！", 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 "請(qǐng)輸入用戶名！", vbOKOnly, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　vbyorn = MsgBox("確定要?jiǎng)h除嗎？&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é) 班級(jí)管理模塊</p><p>　　一．班級(jí)管理模塊的主要功能：</p><p><b>　　●班級(jí)的添加</b></p><p><b>　　●班級(jí)查詢</b></p><p>

218、　　1.班級(jí)添加代碼如下：</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 "班級(jí)資料不能為空,請(qǐng)?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 班級(jí)表 where 年級(jí)='

222、" & Trim(Text1.Text) & "' and 專業(yè)='" & Trim(Text2.Text) & "' ", myCon</p><p>　　If myRs.EOF = False Then</p><p>　　MsgBox "該班級(jí)已經(jīng)存在，請(qǐ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 "班級(jí)表", myCon, 3, 2</p><p>　　myRs.AddNew</p><p>　　myRs.Fields("年級(jí)") = 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 班級(jí)表 order by 年級(jí)"</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.班級(jí)查詢代碼如下：</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>