班級管理系統(tǒng)畢業(yè)論文

1、<p>　　摘 要…………………………………………………………………………1</p><p>　　Abstract………………………………………………………………………2</p><p>　　第一章 引言…………………………………………………………………4</p><p>　　1．1 課題背景……………………………………………………………………4&l

2、t;/p><p>　　1．2 系統(tǒng)簡介……………………………………………………………………5</p><p>　　第二章 系統(tǒng)的分析……………………………………………………………6</p><p>　　2．1 系統(tǒng)開發(fā)的目標和思想……………………………………………………6</p><p>　　2．2 系統(tǒng)的可行性分析………………………………

3、…………………………8</p><p>　　2. 3 系統(tǒng)開發(fā)工具簡介</p><p>　　第三章 系統(tǒng)的設(shè)計……………………………………………………………18</p><p>　　3．1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計………………………………………………………18</p><p>　　3．2 系統(tǒng)的數(shù)據(jù)庫設(shè)計</p><

4、p>　　3．3 界面設(shè)計與代碼設(shè)計……………………………………………………………………23</p><p>　　…………………………………………………………24</p><p>　　結(jié)束語………………………………………………………………………………46</p><p>　　致謝…………………………………………………………………………………47</p&g

5、t;<p>　　參考文獻…………………………………………………</p><p><b>　　摘 要</b></p><p>　　班級管理系統(tǒng)用計算機管理班級信息的一種計算機應(yīng)用技術(shù)的創(chuàng)新,在計算機還未普及之前班級管理都是由教師以及班干部來承擔(dān)的方式來操作的.現(xiàn)在一般的學(xué)校都采用了信息化管理的方式即采用計算機作為工具的實用的計算機班級信息管理程序來幫助班

6、主任進行更有效的班級管理。班級信息管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點。 經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間

7、內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng)。</p><p>　　關(guān)鍵字:班級管理,MIS,visual basic ,數(shù)據(jù)庫</p><p><b>　　Abstract</b></p><p>　　Class management information system using a c

8、omputer management classes computer applications technology innovation, Management has not yet popular in the computer before classes are borne by the teachers and class to the cadres to operate. The schools are now gene

9、rally used information management approach that the use of computers as a tool for computer class information management procedures to help teachers more effective management classes. Information management system is a t

10、ypical class in</p><p><b>　　引言</b></p><p><b>　　課題背景</b></p><p>　　班級管理系統(tǒng)用計算機管理班級信息的一種計算機應(yīng)用技術(shù)的創(chuàng)新,在計算機還未普及之前班級管理都是由教師以及班干部來承擔(dān)的方式來操作的.現(xiàn)在一般的學(xué)校都采用了信息化管理的方式即采用計算機作為

11、工具的實用的計算機班級信息管理程序來幫助班主任進行更有效的班級管理。班級信息管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點。1．2 系統(tǒng)簡介</p><p>　　本系統(tǒng)主要服務(wù)與班主任的日常班級學(xué)生信息管理.主要包括如下幾大主要功能:</p

12、><p>　　一:學(xué)生資料(基本資料,通信資料,資料管理)</p><p>　　二:成績管理(班級成績,個人成績,成績管理)</p><p>　　三:量化管理(得分情況,得分原因,考核管理,得分情況)</p><p>　　四:組織機構(gòu)(團委,班委會)</p><p>　　五:班級事件(班級榮譽,活動情況)</p>

13、;<p>　　六:班費管理(班費收入.班費支出,剩余班費)</p><p>　　七:管理員(添加管理員,修改密碼,刪除管理員)</p><p>　　八:幫助(關(guān)于我們,每日一看)</p><p><b>　　系統(tǒng)的分析</b></p><p>　　系統(tǒng)開發(fā)的目標和思想</p><p>

14、;　　本系統(tǒng)主要服務(wù)于班主任以及班級管理人員方便管理班級事物的軟件系統(tǒng),在完成上述任務(wù)前提下力求界面人性化,數(shù)據(jù)處理的可靠以及程序的健壯性的性能.</p><p><b>　　系統(tǒng)的可行性分析</b></p><p>　　技術(shù)上:本系統(tǒng)采用visual basic 6.0與微軟的access作為數(shù)據(jù)庫,技術(shù)上開發(fā)難度一般.</p><p>　　

15、經(jīng)濟上:本系統(tǒng)服務(wù)于班主任以及班級管理人員,提高了工作人員辦事效率,節(jié)省了開支.所以具有經(jīng)濟上的可行性.</p><p>　　社會上:本系統(tǒng)同時也方便了廣大學(xué)生以及學(xué)校管理者者,服務(wù).所以具有社會可行性.</p><p>　　2. 3 系統(tǒng)開發(fā)工具簡介</p><p>　　Visual Basic 6.0是Micrsoft公司出品的開發(fā)工具，Visual Ba

16、sic是一種可視化的，面向?qū)ο蟮腤indows開發(fā)語言，它具有易用，通用和開發(fā)效率高的特點。隨著微軟對它不斷地改進以及計算機本身性能的提高，使得Visual Basic越來越適合一般的應(yīng)用程序開發(fā)。正如Bill Gate所說，世界上絕大多數(shù)的Windows應(yīng)用程序是用Visual Basic編寫的。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇Visual Basic6.0呢？因為VB具有眾多其它開發(fā)工具所沒有的優(yōu)點！具體介紹如下：</p&

17、gt;<p><b>　　開發(fā)的高效</b></p><p><b>　　語言的高效</b></p><p><b>　　編譯的高效</b></p><p><b>　　執(zhí)行的高效</b></p><p><b>　　維護的高效&l

18、t;/b></p><p>　　基于以上理由，我們毫不憂郁的選擇了VB6.0做為我們的開發(fā)工具??！</p><p>　　主要的控件及其基本屬性，事件簡介</p><p><b>　　命令按鈕類的控件：</b></p><p>　　Caption屬性：用來顯示在控件上的標題。</p><p>

19、　　Enable屬性：控制控件的激活狀態(tài)灰色或可用。</p><p>　　Appearance屬性：值為1時,則以3D效果顯示該控件,0則不然。</p><p>　　Backcolor屬性：用來改變在按鈕上顯示圖像的背景色。</p><p>　　Cancel屬性：該屬性決定按鈕是否為一個”取消”按鈕。</p><p>　　Default屬性:

20、決定哪一個命令按鈕控件是窗體的缺省命令按鈕.</p><p>　　Font屬性:控制各種文字字體類型.</p><p>　　Left,top,height,width屬性:設(shè)定控件的位置與大小.</p><p>　　Style,picture屬性:決定按鈕的顯示方式是否為圖像形式出現(xiàn).</p><p>　　Visible屬性:確定控件運行時是

21、否為可見.</p><p>　　Index屬性:當控件為一控件數(shù)組時,此屬性值為該控件在數(shù)組的下標值.</p><p>　　DownPicture屬性：設(shè)置/返回一個對圖片的引用，該圖片在按鈕被單擊處于壓下狀態(tài)時顯示。</p><p>　　DisabledPicture屬性：設(shè)置/返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。</p><

22、p>　　MaskColor屬性：設(shè)置/返回一個在按鈕的圖片中作為“掩碼“的的顏色</p><p>　　Picture屬性：設(shè)置返回commandButton控件中要顯示的圖片。</p><p><b>　　命令按鈕類的事件：</b></p><p>　　單擊事件――Click事件</p><p><b>

23、　　觸發(fā)與適用</b></p><p>　　此事件是在一個命令按鈕對象上按下然后釋放一個鼠標按鈕時發(fā)生。命令按鈕的Click事件僅對當單擊鼠標時發(fā)生。</p><p><b>　　事件處理過程</b></p><p>　　按鈕單擊事件的處理過程為：</p><p>　　Private Sub object-C

24、lick（Index As Integer）</p><p>　　其中Object為引發(fā)該事件的對象名稱。如果是命令按鈕的控件是數(shù)組，則需要使用Index參數(shù)標識該控件。</p><p>　　獲得焦點――GotFocus事件</p><p><b>　　觸發(fā)與適用 </b></p><p>　　當命令按鈕獲得焦點產(chǎn)生該

25、事件，獲得焦點可以通過諸如Tab切換或單擊對象之類的用戶動作，或在代碼中用SetFocus方法改變焦點來實現(xiàn)。</p><p><b>　　事件處理過程</b></p><p>　　命令按鈕GotFoucs事件處理過程為：</p><p>　　Private Sub Object-GotFocus（Index As Integer）</p

26、><p>　　LostFocus事件：當一個對象失去焦點時發(fā)生</p><p>　　KeyDown事件：當命令按鈕具有焦點時按下一個鍵時發(fā)生</p><p>　　KeyUp事件：當命令按鈕具有焦點時釋放一個鍵時發(fā)生。</p><p>　　KeyPress事件：當用戶按下或松開一個ANSI鍵時發(fā)生。</p><p>　　Mo

27、useDown事件：當在命令按鈕上按下鼠標按鈕時發(fā)生。</p><p>　　MouseMove事件：當命令按鈕上移動鼠標時發(fā)生。</p><p>　　MouseUp事件：當在命令按鈕上釋放鼠標按鈕時發(fā)生。</p><p>　　標簽框類的控件類的控件：</p><p>　　Caption屬性：在應(yīng)用程序界面上加入說明。</p>&

28、lt;p>　　Autosize屬性：決定控件是否自動改變大小以顯示其全部內(nèi)容。</p><p>　　Backstyle屬性：用以指示標簽是否透明.</p><p>　　Bordstyle屬性:用以設(shè)定控件是否有邊框。</p><p><b>　　文本框類的控件：</b></p><p>　　Text屬性：通過像te

29、xt屬性賦值的方法來改變該屬性的值。</p><p>　　Maxlength屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。</p><p>　　Multline屬性：該屬性設(shè)定text字符串中是否接受換行符。</p><p>　　Scrollbars屬性：該屬性決定是否為文本框加滾動條。</p><p>　　Passwordchar屬性

30、：該屬性設(shè)定輸入文本的特殊顯示字符,在設(shè)計密碼程序時非常有用。</p><p>　　Change事件屬性：文本框的內(nèi)容發(fā)生改變時,相應(yīng)的控件之間發(fā)生相應(yīng)的改變,具有即時性。</p><p>　　Keypress：事件由用戶在文本框控件中按任意鍵觸發(fā)。</p><p>　　Alignment屬性：設(shè)定控件中的文本對其方式</p><p>　　A

31、ppearance屬性：設(shè)定一個對象在運行時是否可以3D效果顯示。</p><p>　　BackColor屬性：設(shè)置返回背景色</p><p>　　BorderStyle屬性：設(shè)置對象的邊框樣式</p><p>　　DataField屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名</p><p>　　DataFormat屬性：設(shè)定DataFormat

32、對象，用于數(shù)據(jù)綁定</p><p>　　DataMember屬性：從數(shù)據(jù)供應(yīng)程序提供的幾個數(shù)據(jù)成員中返回/設(shè)定一個特定的數(shù)據(jù)成員</p><p>　　DataSource屬性：設(shè)定控件綁定的一個數(shù)據(jù)源</p><p>　　DragIcon屬性：設(shè)定圖標，它將在拖放操作中作為指針顯示</p><p>　　DragMode模式：設(shè)定一個值，確定在

33、拖放操作中所用方式</p><p>　　Enabled屬性：設(shè)置/返回運行時TextBox是否相應(yīng)用戶事件</p><p>　　Font屬性：設(shè)置/返回字體屬性</p><p>　　ForeColor屬性：設(shè)置/返回文本的前景色</p><p>　　Height屬性：設(shè)置/返回TextBox的高度</p><p>　　

34、IMEMode屬性：設(shè)置/返回數(shù)值用來確定輸入方法編輯器的狀態(tài)</p><p>　　Index屬性：設(shè)置/返回唯一的標識控件數(shù)組中該控件的編號</p><p>　　Left屬性：設(shè)置/返回TextBox控件的水平位置</p><p>　　Locked屬性：設(shè)置/返回TextBox中文本是否可編輯</p><p>　　LinkItem屬性：設(shè)置

35、/返回DDE與另一個應(yīng)用程序會話時，傳給接受端的數(shù)據(jù)</p><p>　　MaxLength屬性：設(shè)置/返回一個值，指定在TextBox控件中能夠輸入的字符最大值</p><p>　　MouseIcon屬性：設(shè)置/返回自定義鼠標的圖標</p><p>　　Top屬性：設(shè)置/返回TextBox控件的垂直位置</p><p>　　Tag屬性：存儲

36、過程所需的附加數(shù)據(jù)</p><p><b>　　文本框類的事件：</b></p><p>　　Change事件：當改變文本框內(nèi)容時發(fā)生</p><p>　　Click事件：鼠標單擊控件時發(fā)生</p><p>　　DblClick事件：用鼠標左鍵雙擊控件時發(fā)生</p><p>　　DragDrop事

37、件：在一個完整的拖放動作完成或使用Drag方法，并將其Action參數(shù)設(shè)置為2時發(fā)生</p><p>　　DragOver事件：在拖放操作正在進行時發(fā)生</p><p>　　GotFocus事件：當一個命令按鈕獲得焦點時發(fā)生</p><p>　　LinkClose事件：當一個DDE對話結(jié)束時發(fā)生</p><p>　　LinkError事件：當

38、一個DDE對話框過程中出現(xiàn)錯誤時，該事件發(fā)生</p><p>　　KeyDown事件：當命令按鈕具有焦點時按下一個鍵時發(fā)生</p><p>　　Validate事件：在焦點轉(zhuǎn)換到另一個控件之前發(fā)生，此時該控件的Causes Validation 屬性值設(shè)置為True</p><p><b>　　單選按鈕類的控件：</b></p>

39、<p>　　Caption屬性：顯示在控件上的文本,是單選按鈕的標題。</p><p>　　Alignment屬性：決定單選按鈕的標題在控件上的位置。</p><p>　　Enable屬性：該控件為灰色時為false,表示運行時不可用。</p><p>　　Index屬性：屬性值表示為單選按鈕組成的控件中某個按鈕的索引值。</p><p

40、>　　Tabindex屬性：建立控件時,vb自動為其分配一個tabindex值,利用tab鍵可以在控件之間切換焦點。</p><p>　　Value屬性：反映控件狀態(tài)的屬性,返回true表示已選擇了該按鈕。</p><p>　　Appearance 屬性：設(shè)置/返回一個對象在運行時是否以3D效果顯示。</p><p>　　BackColor 屬性：設(shè)置/返回背

41、景色。</p><p>　　Container 屬性：設(shè)置/返回Form上的控件屬性。</p><p>　　DataField 屬性：設(shè)置/返回數(shù)據(jù)使用者將被綁定到的字段名。</p><p>　　DataFormat 屬性：設(shè)置/返回DataFormat對象，一個綁定對象將附加到它。</p><p>　　DisabledPicture 屬性：

42、設(shè)置/返回一個對圖像的引用，該圖片在控件無效時顯示在控件中。</p><p>　　DownPicture 屬性：設(shè)置/返回一個對圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時顯示。</p><p>　　DragMode 屬性：設(shè)置/返回一個值，確定在拖放操作中所用的方式。</p><p>　　Font 屬性：設(shè)置/返回字體屬性。</p><p>

43、;　　FontBold 屬性：設(shè)置/返回字體粗體樣式。</p><p>　　FontItalic 屬性：設(shè)置/返回字體斜體樣式。 </p><p>　　FontStrikethru 屬性：設(shè)置/返回字體刪除線樣式。</p><p>　　FontUnderLine 屬性：設(shè)置/返回字體下劃線樣式。</p><p>　　FontName 屬性：設(shè)

44、置/返回控件中顯示文本所用的字體大小。</p><p>　　FontSize 屬性：設(shè)置/返回控件中顯示文本所用的字體大小</p><p>　　Height 屬性：設(shè)置/返回控件的高度。</p><p>　　MaskColor 屬性：設(shè)置/返回一個在控件的圖片中作為掩碼的顏色。</p><p>　　MousePointer 屬性：設(shè)置/返回一

45、個值，該值指示在運行時當鼠標移動到對象上時顯示的指針類型。</p><p>　　單選按鈕類的常用事件：</p><p>　　Click 事件：鼠標單擊控件時發(fā)生。</p><p>　　DbClick事件： 當在一個對象上按下和釋放鼠標按鈕并再次按下和釋放按鈕時，該事件發(fā)生。</p><p>　　DragDrop事件：在一個完整的拖放動作或使用

46、Drag方法，并將其Action參數(shù)設(shè)置位2時，該事件發(fā)生。</p><p>　　DragOver事件： 在拖放操作正在進行時發(fā)生。</p><p>　　GotFocus事件： 當獲的對象焦點時發(fā)生。</p><p>　　LostFocus事件：當對象失去焦點時發(fā)生。</p><p>　　KeyDown事件：當控件具有焦點時按下一個鍵時發(fā)生。

47、</p><p>　　KeyUp事件： 當控件具有焦點時釋放一個鍵時發(fā)生。</p><p>　　KeyPress事件：當用戶按下或釋放ANSI一個鍵時發(fā)生。</p><p>　　MouseDown事件：當在控件上按下鼠標鍵時發(fā)生。</p><p>　　MouseMove事件：在控件上移動鼠標時發(fā)生。</p><p>　

48、　MouseUp事件：在控件上釋放鼠標時發(fā)生。</p><p><b>　　復(fù)選按鈕類的控件：</b></p><p>　　Caption屬性：缺省為check1…。</p><p>　　Index屬性:該屬性值為復(fù)選框控件數(shù)組的下標.</p><p>　　Value屬性:value為0表空白,為1表勾號,為2表示灰色勾

49、號.</p><p>　　Container屬性：Form控件上的容器。</p><p>　　DataChangeed屬性：設(shè)置/返回一個值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進程修改。</p><p>　　DataField屬性：設(shè)置或返回數(shù)據(jù)使用者將被綁定到的字段名。</p><p>　　DataFormat 屬性：設(shè)置或返回DataFor

50、mat對象，用于數(shù)據(jù)綁定。</p><p>　　Datasource屬性：設(shè)置或返回控件綁定的一個數(shù)據(jù)源。</p><p>　　DisabledPicture屬性：設(shè)置或返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。</p><p>　　DownPicture 屬性：設(shè)置或返回一個對圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時顯示。</p>&

51、lt;p>　　DragIcon屬性：設(shè)置或返回圖標，它將在拖放操作中做為指針顯示。</p><p>　　DragMode屬性：設(shè)置返回一個值，確定在拖放操作中所用方式。</p><p>　　Font屬性：設(shè)置或返回字體的屬性。</p><p>　　Name屬性：設(shè)置或返回控件的標識名。</p><p>　　Value屬性：設(shè)置或返回控件

52、的狀態(tài)。</p><p>　　復(fù)選按鈕類的控件的基本事件：</p><p>　　Click事件：鼠標單擊控件時發(fā)生。</p><p>　　DragDrop事件：在一個完整的拖放動作完成或使用Drag方法，并將其Action參數(shù)設(shè)置為2時發(fā)生。</p><p>　　DragOver事件：在拖放操作正在進行時發(fā)生。</p><

53、p>　　GotFocus事件：在對象獲的焦點時發(fā)生。，</p><p>　　OLECompleteDrag事件：當源部件被放到目標時發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。</p><p>　　OLEDragDrag事件：當源部件決定放操作能發(fā)生，卻源部件被放到目標部件時，此事件發(fā)生。</p><p><b>　　框架類的控件：</b>&

54、lt;/p><p>　　1) List屬性：列表框控件的表項是使用數(shù)組的方式保存,數(shù)組的每一個元素存儲列表控件的一個表項</p><p>　　Listcount屬性:控件列表部分項目的個數(shù)。</p><p>　　Mutselect屬性:可以設(shè)置列表框為單選或允許多選屬性.</p><p>　　Selectd屬性:標示一個數(shù)組,數(shù)組各元素為:<

55、;/p><p>　　Selected(0),selected(1)…</p><p><b>　　滾動條類的控件：</b></p><p>　　Value屬性：滾動條上滑塊所在位置由value值所決定。</p><p>　　Max和min屬性：對value值的最大,最小進行限制。</p><p>　　

56、Largechange屬性：用戶點擊滾動條與鍵頭之間的區(qū)域時,value的改變量。</p><p>　　4) OnClick事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。</p><p><b>　　定時器類類的控件：</b></p><p>　　Interval屬性：表示定時的時間間隔,以毫秒為單位。</p><p>

57、　　Enable屬性:為true時(缺省值),激活定時器開始計時;為false時處于休眠狀態(tài).</p><p><b>　　數(shù)據(jù)庫連接方式選擇</b></p><p>　　Visual basic6.0連接數(shù)據(jù)庫的主要方式以下幾種方式：一是：用data控件進行數(shù)據(jù)庫鏈接 ，二是利用adodc（ADO Data Control)進行數(shù)據(jù)庫鏈接 。三是: 利用DataEn

58、vironment進行數(shù)據(jù)庫鏈接.四是利用ADO(ActiveX Data Objects)進行編程</p><p>　　:現(xiàn)在我們來大致對這幾種技術(shù)應(yīng)用介紹：</p><p>　　用data控件進行數(shù)據(jù)庫鏈接.</p><p>　　第一步：給窗體添加一個Data控件。第二步：用Access建立一個名為Pad的數(shù)據(jù)庫，在庫中建立一個表Myset，給表添加四個字段：

59、backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請將庫文件存入程序所在目錄。 如果你的機器沒安裝有Access，可通過VB建庫。</p><p>　　利用adodc（ADO Data Control)進行數(shù)據(jù)庫鏈接：</p><p>　　使用adodata控件訪問數(shù)據(jù)庫可以完全不用編寫代碼,只需要通過簡單的設(shè)置和操作其屬

60、性就可以實現(xiàn)與數(shù)據(jù)庫的連接,通過綁定數(shù)據(jù)感知控件,就能提供一個訪問數(shù)據(jù)庫的界面,用來實現(xiàn)對數(shù)據(jù)庫的瀏覽,貼加,刪除,修改等操作.</p><p>　　利用DAO對數(shù)據(jù)庫進行操縱:</p><p>　　在visual basic 中提供了兩種與jet數(shù)據(jù)引擎接口的方法:data控件與數(shù)據(jù)訪問對象(DAO)DAO是database object的英文縮寫,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口

61、,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持.DAO模型是設(shè)計關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對象類的集合.他們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法,這其中包括建立數(shù)據(jù)庫,定義表,字段和建立表間關(guān)系,定位和查詢數(shù)據(jù)庫等.</p><p><b>　　關(guān)系數(shù)據(jù)庫介紹:</b></p><p>　　關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理

62、數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。20世紀70年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 關(guān)系數(shù)據(jù)庫系統(tǒng)與非關(guān)系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有“表“這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。</p><p>　　結(jié)構(gòu)化查詢語言SQL（Structured Query Language）是一種介于關(guān)系代數(shù)

63、與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關(guān)系數(shù)據(jù)庫語言。目前已成為關(guān)系數(shù)據(jù)庫的標準語言</p><p>　　Microsoft Access介紹:</p><p>　　使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨立的存儲空間中，

64、這些空間稱作表；可以使用聯(lián)機窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報表以特定的版面布置來分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個表。如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關(guān)系。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個表中的數(shù)據(jù)，就要創(chuàng)建查詢。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。 如果

65、要簡單地直接在某個表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個窗體。在打開一個窗體時，Microsoft Access 將從一個或多個表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標簽的報表。</p><

66、;p><b>　　系統(tǒng)的設(shè)計</b></p><p>　　3.1系統(tǒng)的功能結(jié)構(gòu)設(shè)計</p><p><b>　　系統(tǒng)的功能結(jié)構(gòu)設(shè)計</b></p><p>　　1.班費收入/支出表</p><p><b>　　系統(tǒng)的數(shù)據(jù)庫設(shè)計</b></p><p&g

67、t;<b>　　1.</b></p><p><b>　　2.學(xué)生信息表:</b></p><p><b>　　3.用戶密碼表:</b></p><p><b>　　4.課程信息表:</b></p><p><b>　　界面設(shè)計與代碼設(shè)計<

68、/b></p><p><b>　　1.收入界面</b></p><p><b>　　代碼分析:</b></p><p>　　Private Sub cmd_boot_Click()</p><p>　　On Error GoTo ero</p><p>　　Data1

69、.Recordset.MoveLast</p><p>　　cmd_n.Enabled = False</p><p>　　cmd_f.Enabled = True</p><p><b>　　ero:</b></p><p><b>　　End Sub</b></p><p&g

70、t;　　Private Sub Cmd_f_Click()</p><p>　　If Data1.Recordset.BOF <> True Then</p><p>　　cmd_n.Enabled = True</p><p>　　On Error GoTo ero</p><p>　　Data1.Recordset.MoveP

71、revious</p><p><b>　　ero:</b></p><p><b>　　Else</b></p><p>　　cmd_f.Enabled = False</p><p>　　cmd_n.Enabled = True</p><p>　　Data1.Recor

72、dset.MoveFirst</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Cmd_n_Click()</p><p>　　If Data1.Recordset.EOF <> True T

73、hen</p><p>　　cmd_f.Enabled = True</p><p>　　On Error GoTo ero</p><p>　　Data1.Recordset.MoveNext</p><p><b>　　Else</b></p><p>　　cmd_n.Enabled = Fa

74、lse</p><p>　　cmd_f.Enabled = True</p><p>　　On Error GoTo ero</p><p>　　Data1.Recordset.MoveLast</p><p><b>　　End If</b></p><p><b>　　ero:<

75、;/b></p><p><b>　　End Sub</b></p><p>　　Private Sub Cmd_top_Click()</p><p>　　On Error GoTo ero</p><p>　　Data1.Recordset.MoveFirst</p><p>　　cmd

76、_f.Enabled = False</p><p>　　cmd_n.Enabled = True</p><p><b>　　ero:</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p>&

77、lt;p>　　Command4.Enabled = True</p><p>　　On Error GoTo ero1</p><p>　　Data1.Recordset.AddNew</p><p><b>　　ero1:</b></p><p>　　'MsgBox "不能添加數(shù)據(jù)",

78、 , "提示"</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Command4.Enabled = True</p><p>　　On Error GoTo ero2</p><

79、p>　　Data1.Recordset.Delete</p><p><b>　　ero2:</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Command4.Enabled = Tr

80、ue</p><p>　　On Error GoTo ero3</p><p>　　Data1.Recordset.Edit</p><p><b>　　ero3:</b></p><p>　　'MsgBox "不能編輯數(shù)據(jù)", , "提示"</p><

81、p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　On Error GoTo ero</p><p>　　Data1.Refresh</p><p><b>　　ero:</b></p>&l

82、t;p><b>　　End Sub</b></p><p>　　Private Sub bfgly_Click()</p><p>　　If isadtr = True Then</p><p>　　If mu_gly = False Then</p><p>　　MSFlexGrid1.Visible = Fal

83、se</p><p>　　Command1.Visible = True</p><p>　　Command2.Visible = True</p><p>　　Command3.Visible = True</p><p>　　Command4.Visible = True</p><p>　　cmd_n.Visib

84、le = True</p><p>　　cmd_f.Visible = True</p><p>　　cmd_first.Visible = True</p><p>　　cmd_last.Visible = True</p><p>　　mu_gly = (Not mu_gly)</p><p>　　bfgly.Ca

85、ption = "收入"</p><p><b>　　Else</b></p><p>　　MSFlexGrid1.Visible = True</p><p>　　Command1.Visible = False</p><p>　　Command2.Visible = False</p>

86、;<p>　　Command3.Visible = False</p><p>　　Command4.Visible = False</p><p>　　cmd_n.Visible = False</p><p>　　cmd_f.Visible = False</p><p>　　cmd_first.Visible = Fals

87、e</p><p>　　cmd_last.Visible = False</p><p>　　mu_gly = (Not mu_gly)</p><p>　　bfgly.Caption = "班費管理員"</p><p><b>　　End If</b></p><p><

88、;b>　　Else</b></p><p>　　MsgBox "你不是管理員，你沒有這個權(quán)限", , "提示"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Priv

89、ate Sub Form_Load()</p><p>　　Data1.RecordSource = "select * from bfgl where money>0 "</p><p><b>　　End Sub</b></p><p><b>　　2.余額查詢界面</b></p>

90、<p><b>　　代碼分析:</b></p><p>　　Private Sub Form_Load()</p><p>　　Data1.RecordSource = "select sum(money) as 余額 from bfgl "</p><p><b>　　End Sub</b&g

91、t;</p><p><b>　　3.班級成績管理</b></p><p><b>　　班級成績管理代碼:</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　End Sub</b></p><p

92、>　　Private Sub Command1_Click()</p><p><b>　　End Sub</b></p><p>　　Private Sub Cmd_ls_Click()</p><p>　　MSFlexGrid1.DataSource = Data1</p><p>　　MSFlexGrid1.

93、Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub cyy_avg_Click()</p><p>　　On Error Resume Next</p><p>　　'Data1.Recordset.AddNew</p><p>

94、　　Data1.RecordSource = "select int(20*avg(ps))/20 as 平時 ,int(20*avg(qz))/20 as 期中 ,int(20*avg(qm))/20 as 期未 from cyy"</p><p>　　Data1.Recordset.Update</p><p>　　Data1.Refresh</p>

95、;<p>　　MSFlexGrid1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub cyy_Click()</p><p>　　On Error GoTo ero</p><p>　　Data1.RecordSource = cyy</

96、p><p>　　Data1.Refresh</p><p><b>　　ero:</b></p><p>　　jgl_cyy.Visible = False</p><p>　　jgl_english.Visible = False</p><p>　　jgl_jk.Visible = False&l

97、t;/p><p>　　jgl_mz.Visible = False</p><p>　　jgl_photoshop.Visible = False</p><p>　　cyy_avg.Visible = False</p><p>　　english_avg.Visible = False</p><p>　　jk_avg

98、.Visible = False</p><p>　　mz_avg.Visible = False</p><p>　　photoshop_avg.Visible = False</p><p>　　jgl_cyy.Visible = True</p><p>　　cyy_avg.Visible = True</p><p

99、>　　Label1.Caption = cyy.Caption</p><p><b>　　End Sub</b></p><p>　　Private Sub english_Click()</p><p>　　'Call Cmd_ls_Click</p><p>　　On Error GoTo ero&l

100、t;/p><p>　　Data1.RecordSource = english</p><p>　　Data1.Refresh</p><p><b>　　ero:</b></p><p>　　jgl_cyy.Visible = False</p><p>　　jgl_english.Visible

101、= False</p><p>　　jgl_jk.Visible = False</p><p>　　jgl_mz.Visible = False</p><p>　　jgl_photoshop.Visible = False</p><p>　　cyy_avg.Visible = False</p><p>　　en

102、glish_avg.Visible = False</p><p>　　jk_avg.Visible = False</p><p>　　mz_avg.Visible = False</p><p>　　photoshop_avg.Visible = False</p><p>　　english_avg.Visible = True<

103、/p><p>　　jgl_english.Visible = True</p><p>　　Label1.Caption = english.Caption</p><p><b>　　End Sub</b></p><p>　　Private Sub jgl_cyy_Click()</p><p>

104、　　'On Error GoTo ero</p><p>　　Data1.RecordSource = "select count(qm) as 期末人數(shù) from cyy where qm>=60 "</p><p>　　Data1.Refresh</p><p>　　MSFlexGrid1.Refresh</p>

105、<p><b>　　'ero:</b></p><p><b>　　End Sub</b></p><p>　　Private Sub jgl_english_Click()</p><p>　　'On Error GoTo ero</p><p>　　Data1.Reco

106、rdSource = "select count(qm) as 期末人數(shù) from english where qm>=60 "</p><p>　　Data1.Refresh</p><p>　　MSFlexGrid1.Refresh</p><p><b>　　'ero:</b></p>&l

107、t;p><b>　　End Sub</b></p><p>　　Private Sub jgl_jk_Click()</p><p>　　Data1.RecordSource = "select count(qm) as 期末人數(shù) from jk where qm>=60 "</p><p>　　Data1.Re

108、fresh</p><p>　　MSFlexGrid1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub jgl_mz_Click()</p><p>　　Data1.RecordSource = "select count(qm) as 期末人數(shù)

109、from mz where qm>=60 "</p><p>　　Data1.Refresh</p><p>　　MSFlexGrid1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub jgl_photoshop_Click()</p&

110、gt;<p>　　Data1.RecordSource = "select count(qm) as 期末人數(shù) from photoshop where qm>=60 "</p><p>　　Data1.Refresh</p><p>　　MSFlexGrid1.Refresh</p><p><b>　　End S

111、ub</b></p><p>　　Private Sub jk_avg_Click()</p><p>　　On Error Resume Next</p><p>　　'Data1.Recordset.AddNew</p><p>　　Data1.RecordSource = "select int(20*av

112、g(ps))/20 as 平時 ,int(20*avg(qz))/20 as 期中 ,int(20*avg(qm))/20 as 期未 from jk "</p><p>　　Data1.Recordset.Update</p><p>　　Data1.Refresh</p><p>　　MSFlexGrid1.Refresh</p>

113、<p><b>　　End Sub</b></p><p>　　Private Sub jk_Click()</p><p>　　On Error GoTo ero</p><p>　　Data1.RecordSource = jk</p><p>　　Data1.Refresh</p><

114、p><b>　　ero:</b></p><p>　　jgl_cyy.Visible = False</p><p>　　jgl_english.Visible = False</p><p>　　jgl_jk.Visible = False</p><p>　　jgl_mz.Visible = False<

115、/p><p>　　jgl_photoshop.Visible = False</p><p>　　cyy_avg.Visible = False</p><p>　　english_avg.Visible = False</p><p>　　jk_avg.Visible = False</p><p>　　mz_avg.V

116、isible = False</p><p>　　photoshop_avg.Visible = False</p><p>　　jgl_jk.Visible = True</p><p>　　jk_avg.Visible = True</p><p>　　Label1.Caption = jk.Caption</p><

117、p><b>　　End Sub</b></p><p>　　Private Sub mz_avg_Click()</p><p>　　On Error Resume Next</p><p>　　'Data1.Recordset.AddNew</p><p>　　Data1.RecordSource = &

118、quot;select int(20*avg(ps))/20 as 平時 ,int(20*avg(qz))/20 as 期中 ,int(20*avg(qm))/20 as 期未 from mz "</p><p>　　Data1.Recordset.Update</p><p>　　Data1.Refresh</p><p>　　MSFlexGrid

119、1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub mz_Click()</p><p>　　On Error GoTo ero</p><p>　　Data1.RecordSource = mz</p><p>　　Data1.Re

120、fresh</p><p><b>　　ero:</b></p><p>　　jgl_cyy.Visible = False</p><p>　　jgl_english.Visible = False</p><p>　　jgl_jk.Visible = False</p><p>　　jgl_m

121、z.Visible = False</p><p>　　jgl_photoshop.Visible = False</p><p>　　cyy_avg.Visible = False</p><p>　　english_avg.Visible = False</p><p>　　jk_avg.Visible = False</p>

122、<p>　　mz_avg.Visible = False</p><p>　　photoshop_avg.Visible = False</p><p>　　jgl_mz.Visible = True</p><p>　　mz_avg.Visible = True</p><p>　　Label1.Caption = mz.Ca

123、ption</p><p><b>　　End Sub</b></p><p>　　Private Sub english_avg_Click()</p><p>　　On Error Resume Next</p><p>　　'Data1.Recordset.AddNew</p><p&g

124、t;　　Data1.RecordSource = "select int(20*avg(ps))/20 as 平時 ,int(20*avg(qz))/20 as 期中 ,int(20*avg(qm))/20 as 期未 from english "</p><p>　　Data1.Recordset.Update</p><p>　　Data1.Refresh&l

125、t;/p><p>　　MSFlexGrid1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub photoshop_avg_Click()</p><p>　　On Error Resume Next</p><p>　　'Data

126、1.Recordset.AddNew</p><p>　　Data1.RecordSource = "select int(20*avg(ps))/20 as 平時 ,int(20*avg(qz))/20 as 期中 ,int(20*avg(qm))/20 as 期未 from photoshop "</p><p>　　Data1.Recordset.Updat