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

1、<p><b>　　畢業(yè)設(shè)計(jì)</b></p><p>　　院 別 計(jì)算機(jī)學(xué)院 </p><p>　　專業(yè)班級(jí) 軟件技術(shù)09-1 </p><p>　　學(xué)生學(xué)號(hào) </p><p>　　學(xué)生姓名

2、 </p><p>　　指導(dǎo)教師 xxx** </p><p>　　日 期 2012年5月6日 </p><p><b>　　評(píng)閱成績</b></p><p><b>　　指導(dǎo)老師簽名：</b></p><p><

3、b>　　批改日期：</b></p><p><b>　　目 錄</b></p><p>　　一Visual Basic概述……………………………………………………3</p><p>　　1.1Visual Basic語言的特點(diǎn)………………………………………3</p><p>　　1.2Visua

4、l Basic 系統(tǒng)幾個(gè)程序應(yīng)用中的常用名詞………………3</p><p>　　二Windows下的Visual Basic編程環(huán)境簡介…………………………4</p><p>　　2.1 面對(duì)對(duì)象的編程…………………………………………………4</p><p>　　2.2 實(shí)現(xiàn)菜單選項(xiàng)……………………………………………………4</p><p>

5、　　2.3 實(shí)現(xiàn)工具欄………………………………………………………4</p><p>　　三 怎樣開發(fā)一個(gè)學(xué)生信息管理系統(tǒng)的查詢模塊………………………5</p><p>　　3.1 學(xué)生信息系統(tǒng)的設(shè)計(jì)分析………………………………………5</p><p>　　3.2 編程環(huán)境的選擇…………………………………………………5</p><p>　　3.

6、3 關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)……………………………………………5</p><p>　　3.4 二者的結(jié)合(DBA) ………………………………………………5</p><p>　　四 使用Access2000 創(chuàng)建數(shù)據(jù)庫………………………………………6</p><p>　　4.1 數(shù)據(jù)庫的概念……………………………………………………6</p><p>

7、　　4.2 新建一個(gè)數(shù)據(jù)庫…………………………………………………6</p><p>　　4.3 修改已建的數(shù)據(jù)庫………………………………………………6</p><p>　　五 可行性分析……………………………………………………………7</p><p>　　六 系統(tǒng)總體規(guī)劃…………………………………………………………9</p><p>　　6.

8、1 系統(tǒng)功能…………………………………………………………9</p><p>　　6.2 系統(tǒng)流程圖………………………………………………………9</p><p>　　七 系統(tǒng)具體實(shí)現(xiàn)…………………………………………………………10</p><p>　　7.1 各功能的實(shí)現(xiàn)……………………………………………………10</p><p>　　7.1.

9、1 課程管理…………………………………………………10</p><p>　　7.1.2 打印統(tǒng)計(jì)…………………………………………………18</p><p>　　參考文獻(xiàn)…………………………………………………………………26</p><p>　　第一章Visual Basic 概述</p><p>　　1.1 Visual Basic 語言的特

10、點(diǎn) </p><p>　　Visual Basic 語言用其設(shè)計(jì)應(yīng)用程序時(shí)具有兩個(gè)基本特點(diǎn)：可視化設(shè)計(jì)和事件驅(qū)動(dòng)編程。</p><p>　　可視化設(shè)計(jì)：表現(xiàn)在VB在設(shè)計(jì)應(yīng)用于程序界面時(shí)有“所見即所得”的處理功能。</p><p>　　事件驅(qū)動(dòng)編程：在設(shè)計(jì)應(yīng)用程序時(shí)，把對(duì)象添加到窗體中，在用戶與程序進(jìn)行交互時(shí)，用戶基本上是通過鼠標(biāo)、鍵盤與應(yīng)用程序進(jìn)行交互的，那些對(duì)象就

11、必須對(duì)鼠標(biāo)和鍵盤操作所引發(fā)的事件做出響應(yīng)，來執(zhí)行一段應(yīng)用程序。</p><p>　　1.2 Visual Basic 系統(tǒng)幾個(gè)在程序應(yīng)用中的常用名詞</p><p>　　Visual Basic 系統(tǒng)除了一般高級(jí)語言所具有的一些名詞術(shù)語外，還有幾個(gè)系統(tǒng)常用的名詞。其基本含義如下：</p><p><b>　　視窗（Form）</b></p

12、><p>　　視窗是進(jìn)行人機(jī)交互的界面或接口，也叫窗體。VB系統(tǒng)的人機(jī)交互界面或接口，無論是在設(shè)計(jì)時(shí)或是在運(yùn)行時(shí)，都是Windows 系統(tǒng)的標(biāo)準(zhǔn)視窗。</p><p>　　對(duì)象 (Object)</p><p>　　對(duì)象是VB系統(tǒng)內(nèi)部提供給設(shè)計(jì)者可以直接使用的處理輸出的控制工具。本程序所應(yīng)用到的對(duì)象類型有標(biāo)簽框 (Label Box)，文本框 (Text Box)，命令

13、按扭 (Command Button)，網(wǎng)格 (Data Grid)，ADO控件 (Adodc1)等。當(dāng)把這些工具放置到用戶界面對(duì)應(yīng)的窗體上時(shí)，被稱為對(duì)象或控件。用戶可以通過設(shè)置對(duì)象的“屬性”和“方法”，便于對(duì)象適應(yīng)自己所設(shè)計(jì)應(yīng)用程序的輸入輸出內(nèi)容，對(duì)象的生成過程及結(jié)構(gòu)都被封裝起來。正確使用對(duì)象可以減少程序和開發(fā)時(shí)間，提高程序設(shè)計(jì)者的工作效率。</p><p>　　屬性 (Properties)</p>

14、;<p>　　屬性是VB系統(tǒng)提供的有關(guān)對(duì)象的參數(shù)或數(shù)據(jù)接口。用戶通過適當(dāng)?shù)卦O(shè)置或改變對(duì)象的屬性來確定對(duì)象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對(duì)象。比如，對(duì)象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。</p><p>　　事件 (Events)</p><p>　　事件是指用戶或操作者對(duì)計(jì)算機(jī)進(jìn)行的某一操作（如擊鍵、單擊或移動(dòng)鼠標(biāo)等）

15、的行為或系統(tǒng)狀態(tài)發(fā)生的變化。VB系統(tǒng)常用事件來引導(dǎo)計(jì)算機(jī)執(zhí)行一段程序。程序所用的鍵盤事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標(biāo)事件有Click（單擊鼠標(biāo)）事件，DbDlicd（雙擊鼠標(biāo)）。</p><p>　　方法 (Method)</p><p>　　方法主要是指對(duì)一個(gè)對(duì)象使用某種作用的過程。它是在程序執(zhí)行的過程中要計(jì)算機(jī)執(zhí)行的某種操作。其程序的方法有S

16、how（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。</p><p>　　過程 (Procedure)</p><p>　　過程是指經(jīng)過定義或說明的，或基于某一對(duì)象對(duì)應(yīng)的事件所引發(fā)的程序段。</p><p>　　模塊 (Module)</p><p>　　模塊是指一些運(yùn)算量或過程進(jìn)行聲明或定義的一個(gè)集合。系統(tǒng)程序大體可分成四

17、個(gè)模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。 </p><p>　　第二章 Windows下的Visual Basic 編程環(huán)境簡介</p><p>　　2.1 面對(duì)對(duì)象的編程</p><p>　　面向?qū)ο蟮脑O(shè)計(jì)方法 (OOP, Objected Programming) 從應(yīng)用領(lǐng)域內(nèi)的問題著手，以直觀自然的方式描述客觀世界的實(shí)體。Visual Basic 作為一種

18、面向?qū)ο蟮木幊谭椒?，把程序和?shù)據(jù)封裝起來作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予相應(yīng)的屬性。在設(shè)計(jì)對(duì)象時(shí)，不必編寫建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫在界面上，由 Visual Basic 自動(dòng)生成對(duì)象的程序代碼并封裝起來。Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強(qiáng)有力的功能。</

19、p><p>　　Visual Basic 應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。</p><p>　　2.2 實(shí)現(xiàn)菜單選項(xiàng)</p><p>　　菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)，Visual

20、 Basic 也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。</p><p>　　本系統(tǒng)使用 Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單，您也可以使用Visual Basic 的Application Wizard 來操作。</p><p><b>　　2.3 實(shí)現(xiàn)工具欄</b></p><p>　　CoolBar控件與O

21、ffice2000 中看到的CoolBar是類似的。CoolBar就是一個(gè)可以在窗體上浮動(dòng)的工具，同時(shí)也是其他ActiveX的容器。通過在CoolBar中遷入其他空間你也可以向用戶提供更好的靈活性和義用性。</p><p>　　選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對(duì)話框。在“控件”選項(xiàng)卡列表中選擇“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。&l

22、t;/p><p>　　本系統(tǒng)就用了Cool工具中的Statubar控件，在系統(tǒng)這一界面中，添加了狀態(tài)欄，在第一個(gè)欄中，在樣式這一欄中選擇了文本，在第二個(gè)欄中，選擇了系統(tǒng)日期，第三個(gè)欄中選擇了系統(tǒng)時(shí)間，這樣，任何時(shí)候操作本系統(tǒng)，都可以看到當(dāng)前的時(shí)間和日期。</p><p>　　第三章 怎樣開發(fā)一個(gè)學(xué)生信息管理系統(tǒng)的查詢模塊？</p><p>　　3.1查詢模塊的設(shè)計(jì)分析&

23、lt;/p><p>　　根據(jù)實(shí)際情況，我們使用原型法(Rapid Prototyping) 即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件模型。使用戶可以較快地確定需求，然后采用循環(huán)進(jìn)化的開發(fā)方式，對(duì)系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。</p><p>　　3.2編程環(huán)境的選擇</p><p>　　微軟公司

24、的Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)</p><p>　　用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。</p><p>　　3.3關(guān)系型數(shù)據(jù)庫的

25、實(shí)現(xiàn)</p><p>　　Access2000就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。Access的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他用戶共享數(shù)據(jù)庫

26、。Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。</p><p>　　3.4二者的結(jié)合(DBA)</p><p>　　微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及Visual Basic來訪問數(shù)據(jù)庫并對(duì)其進(jìn)行各種操作。V

27、isual Basic、Access以及其他微軟的軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。</p><p>　　ADODC控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的Visual Basic 程序之間架起了一座橋梁。我們可以設(shè)置ADODC控件的各個(gè)屬性，告訴它要調(diào)用那個(gè)數(shù)據(jù)庫的哪個(gè)部分。缺省情況下，ADODC控件根據(jù)數(shù)據(jù)庫中的一個(gè)或多個(gè)數(shù)據(jù)庫表建立一個(gè)dynaset-type（動(dòng)態(tài)集合

28、）類型的記錄集合。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著，當(dāng)原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會(huì)隨之改變。將ADODC控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。</p><p>　　第四章 使用Access2000創(chuàng)建數(shù)據(jù)庫</p><p><b>　　4.1數(shù)據(jù)庫的概念</b></p><p>　　數(shù)據(jù)庫是

29、一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫(flat-file)和關(guān)系數(shù)據(jù)庫（relational）。關(guān)系數(shù)據(jù)庫中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個(gè)不同部分的術(shù)語，象記錄、域等。</p><p>　　4.2新建一個(gè)數(shù)據(jù)庫</p><p>　　創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)

30、計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。</p><p><b>　　標(biāo)識(shí)需要的數(shù)據(jù)；</b></p><p>　　收集被子標(biāo)識(shí)的字段到表中；</p><p><b>　　標(biāo)識(shí)主關(guān)鍵字字段；</b></p><p><b>　　規(guī)范數(shù)據(jù)；</b>

31、</p><p>　　標(biāo)識(shí)指定字段的信息；</p><p>　　4.3修改已建的數(shù)據(jù)庫</p><p>　　數(shù)據(jù)庫的修改分為；添加、編輯和刪除記錄。這三種操作均可由Visual Basic創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。</p><p><b>　　第五章 可行性分析</b></p>

32、<p>　　學(xué)生信息，作為一個(gè)學(xué)校，就有一定的工作量存在，而學(xué)生信息，它的工作量可能是其它信息工作量的幾倍，班級(jí)的增加、班級(jí)的查找、班級(jí)的修改；學(xué)生檔案；課程管理；成績管理；繳費(fèi)管理；統(tǒng)計(jì)等等，每個(gè)信息的數(shù)據(jù)都在不斷地變化著，如果采用人工的方式進(jìn)行操作，那么，一天的工作量，足以讓人覺得比較繁瑣，吃不消。針對(duì)這樣的情況，采用讓數(shù)據(jù)的查詢變得簡單化，數(shù)據(jù)變的更讓每個(gè)人都在任何時(shí)刻都可以了解到。</p><p&g

33、t;　　學(xué)生信息管理系統(tǒng)是為本校開發(fā)的，本系統(tǒng)所采用的語言是Visual Basic，用Microsoft Access 2000數(shù)據(jù)庫完成。該系統(tǒng)總體有四部分組成，包括學(xué)生信息查詢、教務(wù)信息維護(hù)、學(xué)生選課及用戶管理。通過本系統(tǒng)，把本校內(nèi)部查詢學(xué)生信息、教務(wù)信息、學(xué)生選課各個(gè)環(huán)節(jié)進(jìn)行有效地計(jì)劃、組織和控制。通過本校內(nèi)部的信息，依據(jù)統(tǒng)一數(shù)據(jù)信息進(jìn)行管理，把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動(dòng)及時(shí)地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。</p&g

34、t;<p>　　本系統(tǒng)主要信息流程為：教務(wù)信息維護(hù)接受學(xué)生的信息，學(xué)生信息查詢根據(jù)教務(wù)信息維護(hù)的學(xué)生信息做出對(duì)所接收的信息合理性進(jìn)行判斷，并交于信息維護(hù)進(jìn)行相應(yīng)的修改，再把信息存入數(shù)據(jù)庫中。學(xué)生選課是對(duì)學(xué)生進(jìn)行相應(yīng)選擇自己相關(guān)的課程。最后進(jìn)行打印。</p><p>　　采用本系統(tǒng)，能夠使整個(gè)系統(tǒng)內(nèi)部所有信息的工作簡化，提高工作效益。由于采用統(tǒng)一的數(shù)據(jù)信息，使相關(guān)資料能夠快速地查詢所需的數(shù)據(jù)、資料及其

35、它信息的，使信息快速高效運(yùn)行。</p><p>　　本系統(tǒng)中使用到的數(shù)據(jù)表主要有班級(jí)表、成績表、繳費(fèi)表、課程表、學(xué)生檔案、用戶資料，由這六個(gè)表，組成了名為信息的數(shù)據(jù)庫（如圖一）。其中學(xué)生檔案是本系統(tǒng)主要的</p><p><b>　　（圖一）</b></p><p>　　一張表，所有信息都是根據(jù)這張學(xué)生檔案進(jìn)行有關(guān)的操作，主要的字段有：學(xué)號(hào)、姓

36、名、年級(jí)、專業(yè)、性別、出生年月、民族、籍貫、政治面貌、家庭地址、郵政編碼、聯(lián)系電話、入學(xué)時(shí)間、備注。其中日期的數(shù)據(jù)類型為日期/時(shí)間天型，其它的數(shù)據(jù)類型為文本型；成績表中字段為：學(xué)號(hào)、姓名、年級(jí)、專業(yè)、學(xué)期、考試時(shí)間、考試科目、考試地點(diǎn)、課程性質(zhì)、科目分?jǐn)?shù)、違紀(jì)類型、備注；課程表中字段為：專業(yè)、年級(jí)、學(xué)期、課程名稱、教材、任課老師、課時(shí)、上課地點(diǎn)、課程性質(zhì)、考試性質(zhì)；用戶資料中的字段包括：用戶名、密碼、身份。</p><

37、;p>　　數(shù)據(jù)庫與VB的連接：本系統(tǒng)的數(shù)據(jù)鏈接采用的是ADO方法，打開控制面板，打開ODBC數(shù)據(jù)源圖標(biāo)，選擇“系統(tǒng)DSN”標(biāo)簽，點(diǎn)擊“添加”按鈕，在彈出的“創(chuàng)建新數(shù)據(jù)源”對(duì)話框中選擇名稱為“Microsoft Access Drive（*.mdb）”，點(diǎn)擊“完成”按鈕，在ODBC Microsoft Access 安裝對(duì)話框中在數(shù)據(jù)源名中輸入信息，在數(shù)據(jù)庫這個(gè)框中， 單擊“選擇”按鈕，在彈出的選擇數(shù)據(jù)庫這一對(duì)話框架中，在驅(qū)動(dòng)器下拉

38、列表框中選擇本系統(tǒng)數(shù)據(jù)庫所在驅(qū)動(dòng)器，在目錄中選擇庫所在的文件夾，在文件類型中選擇選“Access數(shù)據(jù)庫（*.mdb）”，在數(shù)據(jù)庫名中選擇本系統(tǒng)的數(shù)據(jù)庫，點(diǎn)擊“確定”按鈕即完成數(shù)據(jù)鏈接。</p><p>　　在VB中，用ADODC鏈接數(shù)據(jù)庫，用DataGrid或DATA將庫中的數(shù)據(jù)在界面中顯示出來，本系統(tǒng)采用DataGrid。在界面上右擊Adodc控制，在彈出的快捷菜單中選擇屬性，在屬性對(duì)話框中，在“屬性”這一標(biāo)簽

39、中， 選中單選框“Use ODBC Data Source Name”，并在下拉文本框中選擇已經(jīng)配置好的數(shù)據(jù)源名信息，再在“RecordSoure”標(biāo)簽中，在Commard Text（SQL）文本框中輸入查詢語句，如：select * from 學(xué)生檔案。同時(shí)，將桌面的DataGrid控件選中，在屬性框中，將它的Datasoure設(shè)為Adodc。</p><p>　　我們可以設(shè)置DataGrid控件的外觀：選中該

40、控件，右擊，在彈出的快捷菜單中選擇“檢索字段”，在彈出的對(duì)話框中單擊“確定”，這時(shí)，表格中出現(xiàn)了表的字段。然后再右擊，同樣，在彈出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進(jìn)行調(diào)整。</p><p>　　第六章 系統(tǒng)（查詢模塊）總體規(guī)劃</p><p>　　6.1系統(tǒng)功能（查詢模塊）</p><p><b>　　查詢信息的情況；</b>

41、;</p><p>　　判斷信息是否符合要求；</p><p>　　將符合條件的信息進(jìn)行打?。?lt;/p><p><b>　　6.2流程圖</b></p><p>　　第七章 系統(tǒng)具體實(shí)現(xiàn)</p><p><b>　　7.1各功能的實(shí)現(xiàn)</b></p><p

42、>　　7.1.1課程管理：課程設(shè)置（如：界面如圖二）</p><p><b>　　（圖二）</b></p><p>　　運(yùn)行程序后，進(jìn)入課程管理模塊，課程管理模塊的第一塊是課程設(shè)置，在這模塊中可以把專業(yè)、年級(jí)、學(xué)期、課程名稱、教材、任課老師、課時(shí)、上課地點(diǎn)、課程性質(zhì)和考試性質(zhì)等信息輸入，以便使用。</p><p><b>　　下

43、面為其代碼：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim myCon As New ADODB.Connection</p><p>　　Dim myRs As New ADODB.Recordset</p><p>　　Dim ZhuanYe, NianJi,

44、 XueQi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As String</p><p>　　ZhuanYe = Text1.Text</p><p>　　NianJi = Text2.Text</p><p>　　XueQi = DTPicker1.Value</p&g

45、t;<p>　　KeCheng = Text4.Text</p><p>　　JiaoCai = Text5.Text</p><p>　　RenKLS = Text6.Text</p><p>　　KeShi = Text7.Text</p><p>　　ShangKeDD = Text8.Text</p>&l

46、t;p>　　KeChengXZ = Combo1.Text</p><p>　　KaoShiXZ = Combo2.Text</p><p>　　If Trim(ZhuanYe) = "" Or Trim(NianJi) = "" Or Trim(XueQi) = "" Or Trim(KeCheng) = "&q

47、uot; Or Trim(JiaoCai) = "" Or Trim(RenKLS) = "" Or Trim(KeShi) = "" Or Trim(ShangKeDD) = "" Or Trim(KeChengXZ) = "" Or Trim(KaoShiXZ) = "" Then</p><p

48、>　　MsgBox "請(qǐng)?zhí)顚懸薷恼n程資料的內(nèi)容！"</p><p>　　Combo1.Text = ""</p><p>　　Combo2.Text = ""</p><p><b>　　Exit Sub</b></p><p><b>　　E

49、nd If</b></p><p>　　myCon.Open "dsn=信息"</p><p>　　myRs.Open "select * from 課程表 where 專業(yè)='" & Text1.Text & "'", myCon, 3, 2</p><p>　

50、　myRs!年級(jí) = Text2.Text</p><p>　　myRs!學(xué)期 = DTPicker1.Value</p><p>　　myRs!課程名稱 = Text4.Text</p><p>　　myRs!教材 = Text5.Text</p><p>　　myRs!任課老師 = Text6.Text</p><p&

51、gt;　　myRs!課時(shí) = Text7.Text</p><p>　　myRs!上課地點(diǎn) = Text8.Text</p><p>　　myRs!課程性質(zhì) = Combo1.Text</p><p>　　myRs!考試性質(zhì) = Combo2.Text</p><p>　　myRs.Update</p><p>　　m

52、yRs.Close</p><p>　　myCon.Close</p><p>　　MsgBox "您確定要修改嗎？", vbYesNo, "提示"</p><p>　　Frm_UpdateGrean.Adodc1.Refresh</p><p>　　Frm_UpdateGrean.DataGrid1.

53、Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　'Text3.Text = ""</p><p>　　Text4.Text = ""</p><

54、p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p>　　Text7.Text = ""</p><p>　　Text8.Text = ""</p><p>　　Combo1.Text = "&

55、quot;</p><p>　　Combo2.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　Unload Me</b></p><

56、;p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p><b>　　Unload Me</b></p><p>　　Frm_FindGrean.Show 1</p><p><b>　　End Sub&l

57、t;/b></p><p>　　Private Sub DataGrid1_Click()</p><p>　　'Frm_UpdateGrean.Adodc1.RecordSource = "select * from 課程表 where 專業(yè) = '" & Trim(DataGrid1.Row) & "'&quo

58、t;</p><p>　　'Text1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("專業(yè)")</p><p>　　'Text2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("年級(jí)")</p><p>　　

59、9;Text3.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("學(xué)期")</p><p>　　'Text4.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("課程名稱")</p><p>　　'Text5.Text = Frm_UpdateG

60、rean.Adodc1.Recordset.Fields("教材")</p><p>　　'Text6.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("任課老師")</p><p>　　'Text7.Text = Frm_UpdateGrean.Adodc1.Recordset.Fiel

61、ds("課時(shí)")</p><p>　　'Text8.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("上課地點(diǎn)")</p><p>　　'Combo1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("課程性質(zhì)")</

62、p><p>　　'Combo2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("考試性質(zhì)")</p><p><b>　　End Sub</b></p><p>　　Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As

63、 Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Activate()</p><p>　　Frm_FindGrea

64、n.Adodc1.RecordSource = strTiaoJian</p><p>　　Frm_FindGrean.Adodc1.Refresh</p><p>　　Set DataGrid1.DataSource = Frm_FindGrean.Adodc1</p><p><b>　　End Sub</b></p><

65、;p>　　Private Sub Form_Load()</p><p>　　Combo1.AddItem ("必修")</p><p>　　Combo1.AddItem ("選修")</p><p>　　Combo1.AddItem ("自開")</p><p>　　Comb

66、o2.AddItem ("考試")</p><p>　　Combo2.AddItem ("查考")</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　'Text3.Text = &q

67、uot;"</p><p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p>　　Text7.Text = ""</p><p&

68、gt;　　Text8.Text = ""</p><p>　　Combo1.Text = ""</p><p>　　Combo2.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Text1_Ch

69、ange()</p><p><b>　　End Sub</b></p><p>　　Private Sub Text2_Change()</p><p><b>　　End Sub</b></p><p>　　Private Sub Text8_Change()</p><p&

70、gt;<b>　　End Sub</b></p><p>　　課程管理：課程查詢（如：界面如圖三）</p><p><b>　?。▓D三）</b></p><p>　　當(dāng)輸入查詢類別、運(yùn)算符和條件后可以查找到所需要的課程設(shè)置，或按查詢時(shí)間來查詢，輸入所要查找的時(shí)間段，就可查到所要的課程設(shè)置。</p><p

71、><b>　　代碼如下：</b></p><p>　　Dim sqlstr As String</p><p>　　Private Sub Combo1_Change()</p><p><b>　　End Sub</b></p><p>　　Private Sub Combo2_Change

72、()</p><p><b>　　End Sub</b></p><p>　　Private Sub Combo4_Change()</p><p><b>　　End Sub</b></p><p>　　Private Sub Combo5_Change()</p><p>

73、;<b>　　End Sub</b></p><p>　　Private Sub Combo7_Change()</p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim a As String<

74、;/p><p>　　Dim KCCX1 As String</p><p>　　Dim KCCX2 As String</p><p>　　Dim str1 As String</p><p>　　Dim str2 As String</p><p>　　If Option3.Value = True Then</p

75、><p>　　a = Trim(Combo2)</p><p>　　Select Case a</p><p><b>　　Case "="</b></p><p>　　KCCX1 = "" & Combo1.Text & " " & Com

76、bo2.Text & " '" & Trim(Text1) & "'"</p><p>　　Case "like"</p><p>　　KCCX1 = "Instr(1," & Combo1.Text & ",'" &

77、Trim(Text1.Text) & "')<>0 "</p><p>　　End Select</p><p>　　a = Trim(Combo4)</p><p>　　Select Case a</p><p><b>　　Case "="</b>&

78、lt;/p><p>　　KCCX2 = "" & Combo3.Text & " " & Combo4.Text & " '" & Trim(Text2) & "'"</p><p>　　Case "like"</p>

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

80、 Then</p><p>　　If KCCX1 = "" Then</p><p>　　strTiaoJian = "select * from 課程表 where " & KCCX2</p><p>　　ElseIf KCCX2 = "" Then</p><p>　　s

81、trTiaoJian = "select * from 課程表 where " & KCCX1</p><p><b>　　Else</b></p><p>　　strTiaoJian = "select * from 課程表 where " & KCCX1 & "and " &

82、; KCCX2</p><p><b>　　End If</b></p><p>　　ElseIf Option2.Value = True Then</p><p>　　If KCCX1 = "" Then</p><p>　　strTiaoJian = "select * from 課程

83、表 where " & KCCX2</p><p>　　ElseIf KCCX2 = "" Then</p><p>　　strTiaoJian = "select * from 課程表 where " & KCCX1</p><p><b>　　Else</b></p&g

84、t;<p>　　strTiaoJian = "select * from 課程表 where " & KCCX1 & "or " & KCCX2</p><p><b>　　End If</b></p><p><b>　　Else</b></p><

85、;p>　　If KCCX1 = "" Then</p><p>　　strTiaoJian = "select * from 課程表 where " & KCCX2</p><p>　　ElseIf KCCX2 = "" Then</p><p>　　strTiaoJian = "s

86、elect * from 課程表 where " & KCCX1</p><p><b>　　Else</b></p><p>　　MsgBox "請(qǐng)選擇連接方式！", vbOKOnly, "警告"</p><p><b>　　Exit Sub</b></p&

87、gt;<p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If (KCCX1 & KCCX2) = "" Then</p><p>　　MsgBox "請(qǐng)輸入查詢類別！", vbOKOnly, &quo

88、t;警告"</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p><b>　　Unload Me</b></p><p>　　Frm_UpdateGrean.Show 1</p><p&

89、gt;<b>　　End If</b></p><p><b>　　End If</b></p><p>　　If Option4.Value = True Then</p><p>　　If Val(Combo6) > Val(Combo9) Then</p><p>　　MsgBox &q

90、uot;請(qǐng)正確選擇年份！", vbOKOnly + vbExclamation, "信息提示"</p><p>　　Combo6.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　I

91、f Val(Combo6) = Val(Combo9) Then</p><p>　　If Val(Combo7) > Val(Combo10) Then</p><p>　　MsgBox "請(qǐng)正確選擇月份！", vbOKOnly + vbExclamation, "信息提示"</p><p>　　Combo7.SetF

92、ocus</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　If Val(Combo7) = Val(Combo10) Then</p><p>　　If Val(Combo8) > Val(Combo11) Then<

93、;/p><p>　　MsgBox "請(qǐng)正確選擇日期！", vbOKOnly + vbExclamation, "信息提示"</p><p>　　Combo8.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If<

94、;/b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>

95、　　If Combo6.Text = "" Or Combo7.Text = "" Or Combo8.Text = "" Or Combo9.Text = "" Or Combo10.Text = "" Or Combo11.Text = "" Then</p><p>　　MsgBox &q

96、uot;請(qǐng)輸入完整的日期", vbOKOnly, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　str1 = Trim(Combo6) & "-" & Trim(Comb

97、o7) & "-" & Trim(Combo8)</p><p>　　str2 = Trim(Combo9) & "-" & Trim(Combo10) & "-" & Trim(Combo11)</p><p>　　str1 = Format(str1, "yyyy-mm

98、-dd")</p><p>　　str2 = Format(str2, "yyyy-mm-dd")</p><p>　　If sqlstr = "" Then</p><p>　　sqlstr = "" & Trim(Combo5.Text) & ">=#"

99、; & Format(str1, "yyyy-mm-dd") & "# and " & Trim(Combo5.Text) & "<= #" & Format(str2, "yyyy-mm-dd") & "#"</p><p><b>　　Else&l

100、t;/b></p><p>　　sqlstr = sqlstr & " and " & Trim(Combo5.Text) & ">=#" & Format(str1, "yyyy-mm-dd") & "# and " & Trim(Combo5.Text) & &

101、quot;<= #" & Format(str2, "yyyy-mm-dd") & "#"</p><p><b>　　End If</b></p><p>　　If sqlstr = "" Then</p><p>　　MsgBox "請(qǐng)先輸

102、入查找時(shí)間！"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　strTiaoJian = "select 專業(yè),年級(jí),學(xué)期,課程名稱,教材,任課老師,課時(shí),上課地點(diǎn),課程性質(zhì),考試性質(zhì) from 課程表 where "

103、; & sqlstr</p><p><b>　　Unload Me</b></p><p>　　Frm_UpdateGrean.Show 1</p><p><b>　　End If</b></p><p>　　If Option3.Value <> True And Opti

104、on4.Value <> True Then</p><p>　　MsgBox "請(qǐng)選擇查詢方式！", vbOKOnly, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p&

105、gt;<b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub For

106、m_Load()</p><p>　　Dim i, j As Integer</p><p>　　For i = 1999 To 2010</p><p>　　Combo6.AddItem i</p><p>　　Combo9.AddItem i</p><p><b>　　Next i</b>&

107、lt;/p><p>　　Combo6.ListIndex = 0</p><p>　　Combo9.ListIndex = 0</p><p>　　For i = 1 To 12</p><p>　　Combo7.AddItem i</p><p>　　Combo10.AddItem i</p><p&

108、gt;<b>　　Next i</b></p><p>　　Combo7.ListIndex = 0</p><p>　　Combo10.ListIndex = 0</p><p>　　For i = 1 To 31</p><p>　　Combo8.AddItem i</p><p>　　Com

109、bo11.AddItem i</p><p><b>　　Next i</b></p><p>　　Combo8.ListIndex = 0</p><p>　　Combo11.ListIndex = 0</p><p>　　Combo1.AddItem ("專業(yè)")</p><p

110、>　　Combo1.AddItem ("年級(jí)")</p><p>　　Combo1.AddItem ("課程名稱")</p><p>　　Combo1.AddItem ("教材")</p><p>　　Combo1.AddItem ("任課老師")</p><p

111、>　　'Combo1.AddItem ("課時(shí)")</p><p>　　Combo1.AddItem ("課程性質(zhì)")</p><p>　　Combo1.AddItem ("考試性質(zhì)")</p><p>　　Combo2.AddItem ("=")</p>&

112、lt;p>　　Combo3.AddItem ("專業(yè)")</p><p>　　Combo3.AddItem ("年級(jí)")</p><p>　　Combo3.AddItem ("課程名稱")</p><p>　　Combo3.AddItem ("教材")</p><

113、;p>　　Combo3.AddItem ("任課老師")</p><p>　　'Combo3.AddItem ("課時(shí)")</p><p>　　Combo3.AddItem ("課程性質(zhì)")</p><p>　　Combo3.AddItem ("考試性質(zhì)")</p&g

114、t;<p>　　Combo4.AddItem ("=")</p><p>　　Combo5.AddItem ("學(xué)期")</p><p>　　Combo1.Text = ""</p><p>　　Combo2.Text = ""</p><p>　　

115、Text1.Text = ""</p><p>　　Combo3.Text = ""</p><p>　　Combo4.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Combo5.Text = ""

116、</p><p>　　Combo6.Text = ""</p><p>　　Combo7.Text = ""</p><p>　　Combo8.Text = ""</p><p>　　Combo9.Text = ""</p><p>　　C

117、ombo10.Text = ""</p><p>　　Combo11.Text = ""</p><p><b>　　End Sub</b></p><p>　　7.1.2 打印統(tǒng)計(jì)</p><p>　　運(yùn)行打印統(tǒng)計(jì)后可以按條件把符合條件的各種信息以報(bào)表形式羅列出來，各種信息還可以

118、以打印出來或以報(bào)表形式保存。打印統(tǒng)計(jì)包括班級(jí)統(tǒng)計(jì)分析、檔案統(tǒng)計(jì)分析、課程統(tǒng)計(jì)分析、成績統(tǒng)計(jì)分析和交費(fèi)統(tǒng)計(jì)分析五類。</p><p>　　班級(jí)統(tǒng)計(jì)分析（如：界面如圖四）</p><p><b>　?。▓D四）</b></p><p><b>　　代碼如下：</b></p><p>　　Private S

119、ub Command1_Click()</p><p>　　Dim SQLoriginal As String</p><p>　　Dim SQLadd As String</p><p>　　Dim SQLorder As String</p><p>　　Dim strSql As String</p><p>　

120、　SQLoriginal = "SELECT 年級(jí),專業(yè),人數(shù),輔導(dǎo)員,備注 FROM 班級(jí)表 "</p><p>　　SQLadd = "WHERE 年級(jí)=年級(jí) AND 專業(yè)=專業(yè) "</p><p>　　SQLorder = ""</p><p>　　If Check1.Value = 1 And Is

121、Numeric(Text1) Then</p><p>　　SQLadd = SQLadd + "and 年級(jí)='" + Text1 + "'"</p><p><b>　　End If</b></p><p>　　If Check2.Value = 1 And Not IsNull(Te

122、xt2) Then</p><p>　　SQLadd = SQLadd + "and 專業(yè)='" + Text2 + "'"</p><p><b>　　End If</b></p><p>　　If Check3.Value = 1 And IsNumeric(Text3) Then&l

123、t;/p><p>　　SQLadd = SQLadd + "and 人數(shù)='" + Text3 + "'"</p><p><b>　　End If</b></p><p>　　If Check4.Value = 1 And Not IsNull(Text4) Then</p>

124、<p>　　SQLadd = SQLadd + "and 輔導(dǎo)員='" + Text4 + "'"</p><p><b>　　End If</b></p><p>　　strSql = SQLoriginal + SQLadd + SQLorde</p><p>　　If Da

125、t_Main.rsDat_Class.State = 1 Then</p><p>　　Dat_Main.rsDat_Class.Close</p><p><b>　　End If</b></p><p>　　Dat_Main.rsDat_Class.Open strSql</p><p>　　Dat_Class.Sh

126、ow vbModal</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p&

127、gt;<b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub For

128、m_Load()</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p>

129、;<b>　　End Sub</b></p><p>　　Private Sub Text1_Change()</p><p><b>　　End Sub</b></p><p>　　Private Sub Text3_Change()</p><p><b>　　End Sub</

130、b></p><p>　　檔案分析統(tǒng)計(jì)（如：界面如圖五）</p><p><b>　?。▓D五）</b></p><p><b>　　代碼如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim SQLori

131、ginal As String</p><p>　　Dim SQLadd As String</p><p>　　Dim SQLorder As String</p><p>　　Dim strSql As String</p><p>　　On Error Resume Next</p><p>　　SQLorigi

132、nal = "SELECT * FROM 學(xué)生檔案 "</p><p>　　SQLadd = "WHERE 學(xué)號(hào)=學(xué)號(hào) AND 姓名=姓名 "</p><p>　　SQLorder = ""</p><p>　　If Check1.Value = 1 And IsNumeric(Text1) Then<

133、;/p><p>　　SQLadd = SQLadd + "and 學(xué)號(hào)='" + Text1 + "'"</p><p><b>　　End If</b></p><p>　　If Check2.Value = 1 And Not IsNull(Text2) Then</p>&

134、lt;p>　　SQLadd = SQLadd + "and 姓名='" + Text2 + "'"</p><p><b>　　End If</b></p><p>　　If Check3.Value = 1 And Not IsNull(Text3) Then</p><p>