函授畢業(yè)論文設(shè)計(jì)

1、目 錄摘要21 系統(tǒng)的可行性研究32 系統(tǒng)設(shè)計(jì)42.1 系統(tǒng)的設(shè)計(jì)目標(biāo)42.2 系統(tǒng)的開發(fā)設(shè)計(jì)思想：42.3 編程環(huán)境的選擇42.4 系統(tǒng)功能分析42.5 系統(tǒng)功能模塊分析53 Windows下的Visual Basic64 使用access 2000實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫85 數(shù)據(jù)庫設(shè)計(jì)96 系統(tǒng)程序設(shè)計(jì)137 學(xué)習(xí)總結(jié)32致 謝33參考文獻(xiàn)34摘要學(xué)生成績(jī)管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。經(jīng)過分析,我們使用 MICRO

2、SOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。關(guān)鍵字：控件 窗體 域ABSTRACTThe system of score student file is a typical application of managing information system （know as MIS）,which mainly includes building up data-base of back-e

3、nd and developing the application interface of front-end. The former required consistency and integrality and security of data. The later should make the application powerful and easily used.By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools i

4、n Win32. VB offered a series of ActiveX operating a data-base. It can give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it.Keywords: ActiveX , Form , Field .1 系統(tǒng)的可行性研究隨著科學(xué)技術(shù)的不斷進(jìn)步，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已

5、進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì)學(xué)生成績(jī)進(jìn)行管理，具有手工管理所無法比擬的優(yōu)點(diǎn)。例如：檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高效益，也是成績(jī)管理科學(xué)化、正規(guī)化的重要條件。而計(jì)算機(jī)科學(xué)發(fā)展到今天，它的價(jià)格已經(jīng)十分低廉，而性能卻有了長(zhǎng)足的進(jìn)步?，F(xiàn)在，它已廣泛應(yīng)用于各個(gè)領(lǐng)域，計(jì)算機(jī)與手工相比具有以下明顯的優(yōu)勢(shì)：1.1 它可以代替人工進(jìn)行許多煩雜的勞動(dòng)。1.2 它可以節(jié)省許多資源。1.3 它可以大大提高人們的工作效率。1.4 它可以使敏感文檔更加安全。我們所做的成績(jī)管理系統(tǒng)改變了以往登記學(xué)生的成績(jī)停留在

6、紙介質(zhì)上的這種局面。使傳統(tǒng)的紙介質(zhì)管理轉(zhuǎn)變?yōu)橛?jì)算機(jī)管理。一直以來人們使用傳統(tǒng)人工的方式管理學(xué)生成績(jī)，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。2 系統(tǒng)設(shè)計(jì)2.1 系統(tǒng)的設(shè)計(jì)目標(biāo)通過開發(fā)一個(gè)學(xué)生成績(jī)管理系統(tǒng)，使各學(xué)校學(xué)生的成績(jī)管理規(guī)范化、科學(xué)化、自動(dòng)化，從而達(dá)到減少老師的工作量，提高效益的目的。2.2 系統(tǒng)的開發(fā)設(shè)計(jì)思想： 關(guān)于本系統(tǒng)的開發(fā)設(shè)計(jì)思想主要有以下幾點(diǎn)：2.2.1系統(tǒng)應(yīng)采用模塊化程序設(shè)計(jì)方法，既便于系統(tǒng)功能的添加和修改，又便于參加開發(fā)的技術(shù)人員補(bǔ)充和維護(hù)。2.2.2系統(tǒng)應(yīng)能滿足學(xué)生成績(jī)管理的需要，并

7、保證在操作過程中的方便、直觀、實(shí)用和數(shù)據(jù)的安全等要求。 2.2.3系統(tǒng)應(yīng)該具有數(shù)據(jù)庫維護(hù)功能，能對(duì)數(shù)據(jù)進(jìn)行備份和修改。2.3 編程環(huán)境的選擇微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。2.4 系統(tǒng)功能分析系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成的。此成績(jī)管理系統(tǒng)要完成的功能主要有：2.4.1 課程的維

8、護(hù)：主要包括課程類別、課程代號(hào)、課程名的修改和查詢等。 2.4.2 學(xué)生基本信息的輸入：主要包括姓名、學(xué)號(hào)、班級(jí)、性別等。其中信息輸入包括兩種分別為從文件導(dǎo)入和從窗體上直接輸入。2.4.3 學(xué)生成績(jī)的輸入：主要包括學(xué)年、學(xué)期、姓名、各項(xiàng)課程的成績(jī)及補(bǔ)考成績(jī)、備注等。2.4.4 用戶的權(quán)限：主要包括普通用戶和操作員等的設(shè)計(jì)。2.4.5 學(xué)生名單、成績(jī)的查詢及報(bào)表的打印：主要包括學(xué)生名單、學(xué)期成績(jī)表、畢業(yè)成績(jī)表、不及格名單等的查詢及打印。2.4.6 系統(tǒng)的維護(hù)：主要包括數(shù)據(jù)庫的備份與恢復(fù)。2.4.7 幫助系統(tǒng)：主要對(duì)系統(tǒng)的使用作一些說明。2.5 系統(tǒng)功能模塊分析通過對(duì)上述各項(xiàng)功能進(jìn)行集中、分塊分析

9、，按照結(jié)構(gòu)化程序設(shè)計(jì)的要求，得到如下圖所示的這個(gè)系統(tǒng)的功能模塊圖。它由四個(gè)模塊組成：系統(tǒng)維護(hù)模塊；輸入模塊；查詢打印模塊；幫助模塊。幫 助 系 統(tǒng)成 績(jī) 管 理 系 統(tǒng)查詢打印模塊輸 入 模 塊系 統(tǒng) 維 護(hù)其 他不及格成績(jī)畢業(yè)成績(jī)表學(xué)期成績(jī)表學(xué) 生 名 單數(shù) 據(jù) 恢 復(fù)數(shù) 據(jù) 備 份用戶權(quán)限管理學(xué)生基本信息課 程 維 護(hù)用 戶 信 息學(xué)生成績(jī)信息3 Windows下的Visual BasicVisual Basic應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和 方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強(qiáng)有力的

10、功能。Visual Basic應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。3.1實(shí)現(xiàn)菜單選項(xiàng)菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)，Visual Basic也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。您可以使用Visual Basic的Application Wizard也可以使用Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單。3.2實(shí)現(xiàn)工具欄CoolBar控件與Office97種看到的CoolBar是類似

11、的。CoolBar就是一個(gè)可以在窗體上浮動(dòng)的工具，同時(shí)也是其他ActiveX的容器。通過在CoolBar中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。Toolbar 是工具條控件，是實(shí)現(xiàn)工具條的主體。其中的按鈕可以顯示圖像和標(biāo)題，并按功能分組或加入分隔符，還可以圍棋設(shè)置鼠標(biāo)停留在其上顯示的提示字符。Toolbar也是一個(gè)控件容器且具有Style屬性，并可以為其增加下拉按鈕和平滑按鈕等。選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對(duì)話框。在“控件”選項(xiàng)卡列表中選擇“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。其屬性及對(duì)象如下：

12、3.2.1 Align屬性定義工具條在窗體中的位置3.2.2 ToolTipText屬性是字符串類型，定義控件的提示字符3.2.3 Style屬性定義按鈕外觀。3.2.4 ImageList屬性定義與數(shù)據(jù)條對(duì)應(yīng)的ImageList控件名，該控件定義工具條按鈕顯示的圖像。3.2.5 HotImangeList屬性設(shè)置一個(gè)ImageList控件名，該控件定義按鈕獲得熱點(diǎn)時(shí)顯示的圖像。3.2.6 DisabledImageList屬性定義工具條按鈕無效時(shí)顯示的圖像。創(chuàng)建工具條包括ImageList和Toolbar控件ImageList用于為其他控件提供圖像庫，將ImageList控件加入到工具箱的操

13、作于前述Toolbar控件相同。3.3幫助專業(yè)水平的軟件通常都帶有聯(lián)機(jī)幫助功能。無論寫出來的程序是要給大量的用戶使用，還是僅僅局限于公司內(nèi)部有。因此，我們?yōu)榇蠹抑谱髁艘环萃暾膸椭到y(tǒng)及說明。微軟的Help Workshop4.0 是一套獨(dú)立于Visual Basic 的用來協(xié)助我們創(chuàng)建、運(yùn)行于32位Windows 操作系統(tǒng)下的幫助文件的工具。使用它我們可以為我們編寫的應(yīng)用程序生成一組幫助文件。3.4關(guān)于版本為了是程序顯得更具有專業(yè)風(fēng)格，首先可以在其中加入通常的應(yīng)用程序信息。這些信息包括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息。Visual Basic允許你使用APP對(duì)象來保存這些信息，APP

14、對(duì)象是一個(gè)預(yù)定義對(duì)象，不需要在程序中創(chuàng)建它。APP對(duì)象的大多數(shù)屬性被應(yīng)用程序用來提供常規(guī)的信息，通過使用這些APP提供的屬性，可以在應(yīng)用程序和用戶之間交流重要信息，在項(xiàng)目屬性框中可以設(shè)置它的屬性。4 使用access 2000實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫4.1數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(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ù)語，象記錄、域等。 4.2新建一個(gè)數(shù)據(jù)庫創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔

15、細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。4.2.1 標(biāo)識(shí)需要的數(shù)據(jù)；4.2.2 收集被標(biāo)識(shí)的字段到表中；4.2.3 標(biāo)識(shí)主關(guān)鍵字字段；4.2.4 繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表；4.2.5 規(guī)范數(shù)據(jù)；4.2.6 標(biāo)識(shí)指定字段的信息；4.2.7 創(chuàng)建物理表。4.3 修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。4.4 實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關(guān)系指明兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各

16、個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。系統(tǒng)功能：4.4.1 輸入學(xué)生名單時(shí)可以文件形式輸入；4.4.2 添加一個(gè)數(shù)據(jù)庫項(xiàng)目；4.4.3 刪除一個(gè)數(shù)據(jù)庫項(xiàng)目；4.4.4 修改一個(gè)數(shù)據(jù)庫項(xiàng)目；4.4.5 可以按各種條件進(jìn)行查詢信息；4.4.6 用戶權(quán)限設(shè)置。4.4.7 數(shù)據(jù)庫的備份與恢復(fù)。4.4.8 完善的

17、幫助系統(tǒng)。5 數(shù)據(jù)庫設(shè)計(jì)5.1 數(shù)據(jù)庫的概念結(jié)構(gòu)設(shè)計(jì)這一設(shè)計(jì)階段是在需求分析的基礎(chǔ)上，設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及他們之間的關(guān)系，為以后數(shù)據(jù)庫的建立打下基礎(chǔ)。根據(jù)“學(xué)生成績(jī)管理系統(tǒng)”的概念模型，可以得到如下的E-R圖：學(xué)生基本信息姓 名班 級(jí)學(xué) 號(hào)性 別課 程課程名課程類別課程代號(hào)學(xué) 生 成 績(jī)姓名學(xué)號(hào)學(xué)年學(xué)期課程成績(jī)補(bǔ)考成績(jī)備注5.2數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì)學(xué)生信息數(shù)據(jù)庫學(xué)生信息數(shù)據(jù)庫里存儲(chǔ)了學(xué)生的檔案包括：學(xué)號(hào)、姓名、班級(jí)、性別等。列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點(diǎn)位數(shù)是否為空姓名NameDate學(xué)號(hào)CodeInteger性別SexDate班級(jí)ClassDate如下表所示：列

18、名數(shù)據(jù)類型可否為空說明NameDateText否姓名CodeIntegerText否學(xué)號(hào)SexDateText否性別ClassDateText否班級(jí)5.2.1學(xué)生信息模塊：該模塊主要完成學(xué)生基本信息的錄入、刪除 、更新等功能。在此模塊中定義了四個(gè)域名來進(jìn)行學(xué)生的信息存儲(chǔ)。如果用戶修改某一紀(jì)錄中的某一項(xiàng)，可單添加按鈕進(jìn)行學(xué)生記錄的編輯，此窗口使用數(shù)據(jù)窗口的FREEDOM風(fēng)格（典型的錄入界面）。該種風(fēng)格特點(diǎn)是列標(biāo)題緊挨著數(shù)據(jù)列在此窗口還可以增加新學(xué)生紀(jì)錄。成績(jī)數(shù)據(jù)庫成績(jī)數(shù)據(jù)庫里存儲(chǔ)了學(xué)生的成績(jī)包括：學(xué)號(hào)、姓名、學(xué)年、學(xué)期、成績(jī)、補(bǔ)考成績(jī)、備注等。列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點(diǎn)位數(shù)是否為

19、空姓名NameDate學(xué)號(hào)CodeInteger學(xué)年XnDate學(xué)期XqDate成績(jī)ScoreDate補(bǔ)考成績(jī)BkScoreDate備注RecordDate。列名數(shù)據(jù)類型可否為空說明NameDateText 否 姓名CodeIntegerText否學(xué)號(hào)XnDateText否學(xué)年XqDateText否學(xué)期ScoreDateText否成績(jī)BkScoreDateText否補(bǔ)考成績(jī)RecordDateMemo是備注5.2.2成績(jī)模塊：該模塊主要完成學(xué)生成績(jī)的基本信息的錄入、刪除 、更新等功能。在此模塊中定義了四個(gè)域名來進(jìn)行學(xué)生的信息存儲(chǔ)。 課程數(shù)據(jù)庫課程數(shù)據(jù)庫利存儲(chǔ)了課程的信息：課程名、課程類別、課程

20、代號(hào)等。列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點(diǎn)位數(shù)是否為空課程IDCourseDate課程名NameDate 課程類別KclbDate 課程代號(hào)KcdhDate。列名數(shù)據(jù)類型可否為空說明NameDateText否課程名KclbDateText否課程類別KcdhDateText否課程代號(hào)5.2.3課程模塊：該模塊主要完成存儲(chǔ)課程的所有信息及錄入、刪除 、更新等功能用戶權(quán)限數(shù)據(jù)庫用戶權(quán)限數(shù)據(jù)庫存儲(chǔ)了用戶的信息：用戶名、密碼等。列名（中文）列名（英文）數(shù)據(jù)類型寬度小數(shù)點(diǎn)位數(shù)是否為空 用戶名nameDate 密碼mmDate。列名數(shù)據(jù)類型可否為空說明nameDateText 否用戶名mmDateT

21、ext否 密碼6 系統(tǒng)程序設(shè)計(jì)6.1用戶交互界面的設(shè)計(jì)由于系統(tǒng)的最終用戶是對(duì)計(jì)算機(jī)技術(shù)不精通的業(yè)務(wù)人員，從他們的應(yīng)用需求出發(fā)，系統(tǒng)采用了基本的菜單選擇、填寫表格和簡(jiǎn)單的問答等友好的人機(jī)交互方式。由于每個(gè)用戶只在功能子系統(tǒng)內(nèi)進(jìn)行操作，所以用戶界面是以每個(gè)子系統(tǒng)內(nèi)進(jìn)行各種操作。系統(tǒng)的用戶界面設(shè)計(jì)是將屏幕劃分為三個(gè)區(qū)域。在屏幕的最上方為主菜單區(qū)，顯示為功能自系統(tǒng)的主菜單，用戶可以用方向鍵+Enter 鍵的方式選擇菜單操作命令，也可以通過鼠標(biāo)操作系統(tǒng)工具欄中列出了常用菜單命令的按鈕形式，用以操作效率。當(dāng)用戶通過菜單選擇了所要進(jìn)行的工作后，系統(tǒng)將進(jìn)入相應(yīng)的功能，這時(shí)整個(gè)管理活動(dòng)在屏幕的中間區(qū)域-工作區(qū)進(jìn)

22、行，在整個(gè)成績(jī)管理過程中主菜單從始至終存在，以使用戶明確當(dāng)前正在進(jìn)行的功能。當(dāng)用戶處理完畢后，系統(tǒng)將自動(dòng)返回原始菜單顯示狀態(tài)。其窗體如下：具體的成績(jī)管理系統(tǒng)除了主界面之外從界面的性質(zhì)上其它界面主要還可以分為以下幾種類型：6.1.1數(shù)據(jù)編輯：這時(shí)的界面樣式與原手工處理時(shí)紙質(zhì)表格樣式基本一致，以使用戶在操作習(xí)慣和方式上比較熟悉和適應(yīng)，并在規(guī)范化數(shù)據(jù)項(xiàng)輸出時(shí)，將有限的規(guī)范化數(shù)據(jù)項(xiàng)列出來，讓用戶通過選擇輸入，從而減少用戶輸入的工作量，同時(shí)減少輸出錯(cuò)誤的機(jī)會(huì)。其數(shù)據(jù)編輯界面包括：課程維護(hù)、學(xué)生基本信息模塊、學(xué)生成績(jī)信息模塊和密碼修改模塊，具體設(shè)計(jì)如下：課程維護(hù)模塊主要實(shí)現(xiàn)如下功能(1) 添加課程信息(2

23、) 修改課程信息(3) 刪除課程信息(4) 查詢課程信息窗體的創(chuàng)建如下：學(xué)生基本信息模塊和學(xué)生成績(jī)信息模塊實(shí)現(xiàn)的主要功能：(1) 學(xué)生基本信息的添加，包括從文件添加和直接添加(2) 學(xué)生基本信息的修改、刪除、查詢(3) 學(xué)生成績(jī)的添加、刪除、查詢、修改。由于基本信息模塊與學(xué)生成績(jī)信息模塊有其相似的界面，故設(shè)計(jì)時(shí)將其置于同一窗體內(nèi)。其窗體如下:密碼的修改：主要實(shí)現(xiàn)的功能(1) 權(quán)限用戶的密碼的修改(2) 新用戶的添加其窗體如下:6.1.2 數(shù)據(jù)查詢：系統(tǒng)中的查詢功能主要通過使用獨(dú)立的數(shù)據(jù)查詢窗口實(shí)現(xiàn)，具體操作為在工作區(qū)上側(cè)的選擇窗口中選擇相應(yīng)的查詢范圍，確定后點(diǎn)擊“確定”按鈕。該項(xiàng)目所對(duì)應(yīng)的數(shù)據(jù)

24、將出現(xiàn)在下側(cè)數(shù)據(jù)窗口中。能為用戶提供任意條件組合的查詢，是我們所期望達(dá)到的，即將查詢的數(shù)據(jù)庫文件的所有字段全部列出，由用戶選擇任意查詢條件。(1) 學(xué)生名單的查詢及打印(2) 學(xué)生學(xué)期成績(jī)表的查詢及打印(3) 學(xué)生畢業(yè)成績(jī)表的查詢及打印(4) 學(xué)生不及格成績(jī)的查詢及打印(5) 其它條件的查詢及打印為了更詳細(xì)查找部分信息，我們又新建了一個(gè)窗體來增加多個(gè)關(guān)鍵字對(duì)該信息的查詢以滿足客戶的需求。具體窗體實(shí)現(xiàn)如下圖所示：6.1.3 數(shù)據(jù)的輸出：數(shù)據(jù)輸出又分為屏幕輸出和打印輸出，輸出格式完全按用戶的要求報(bào)告和表格格式進(jìn)行設(shè)置，以符合用戶的應(yīng)用習(xí)慣。用戶權(quán)限管理主要實(shí)現(xiàn)的功能有(1) 用戶的添加，用戶密碼的

25、修改(2) 用戶權(quán)限限制6.2 主要窗體的代碼：課程錄入窗口：Private Sub Command1_Click()On Error Resume NextIf Command1.Caption = 添加 ThenCommand1.Caption = 添加確認(rèn)Data1.Recordset.AddNewCommand5.Enabled = FalseCommand2.Enabled = FalseCommand4.Enabled = TrueCommand3.Enabled = FalseElseCommand1.Caption = 添加Data1.Recordset.UpdateComma

26、nd5.Enabled = TrueCommand2.Enabled = TrueCommand4.Enabled = FalseCommand3.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()If Command2.Caption = 修改 ThenCommand2.Caption = 修改確認(rèn)Data1.Recordset.EditCommand4.Enabled = TrueElseCommand2.Caption = 修改Data1.Recordset.UpdateCommand4.Enabled = FalseEnd I

27、fEnd SubPrivate Sub Command3_Click()On Error Resume NextDim ss As String ss = InputBox(請(qǐng)輸入課程代號(hào), 提示)Data1.Recordset.FindFirst 課程代號(hào)= & ss & If Data1.Recordset.NoMatch ThenMsgBox 無此記錄, , 提示End IfEnd SubPrivate Sub Command4_Click()Command1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueComm

28、and4.Enabled = FalseCommand5.Enabled = TrueCommand1.Caption = 添加 Command2.Caption = 修改End SubPrivate Sub Command5_Click()Dim rr As Stringrr = MsgBox(確定刪除嗎?, vbYesNo, 警告)If rr = vbYes ThenData1.Recordset.DeleteData1.Recordset.MoveLastEnd IfEnd Sub學(xué)生基本信息窗口：Dim ss As StringPrivate Sub Command1_Click()O

29、n Error Resume NextIf Command1.Caption = 添加 ThenCommand4.Enabled = TrueCommand1.Caption = 添加確認(rèn)Data1.Recordset.AddNewText1.SetFocusElseCommand1.Caption = 添加Command4.Enabled = FalseData1.Recordset.UpdateData1.Recordset.MoveNextEnd IfEnd SubPrivate Sub Command10_Click() Dim rr As Stringrr = MsgBox(確定刪除

30、嗎?, vbYesNo, 警告)If rr = vbYes ThenData2.Recordset.DeleteData2.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command11_Click()Command8.Enabled = TrueCommand9.Enabled = TrueCommand10.Enabled = TrueCommand11.Enabled = FalseCommand12.Enabled = TrueCommand8.Caption = 添加 Command9.Caption = 修改End SubPrivate S

31、ub Command12_Click()On Error Resume NextDim ss As String ss = InputBox(請(qǐng)輸入學(xué)號(hào), 提示)Data2.Recordset.FindFirst 學(xué)號(hào)= & ss & If Data2.Recordset.NoMatch ThenMsgBox 無此記錄, , 提示End If End SubPrivate Sub Command13_Click()Unload MeEnd SubPrivate Sub Command14_Click() Dim ss As String ss = InputBox(請(qǐng)輸入學(xué)號(hào), 提示)Data

32、2.Recordset.FindNext 學(xué)號(hào)= & ss & If Data2.Recordset.NoMatch ThenMsgBox 無此記錄, , 提示End IfEnd SubPrivate Sub Command2_Click()On Error Resume NextIf Command2.Caption = 修改 ThenCommand2.Caption = 修改確認(rèn)Data1.Recordset.EditCommand1.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand5.Enabled

33、 = FalseElseCommand2.Caption = 修改Data1.Recordset.UpdateCommand1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseCommand5.Enabled = TrueEnd IfEnd SubPrivate Sub Command3_Click() On Error Resume Nexti = MsgBox(確認(rèn)刪除嗎?, vbOKCancel, 警告)If i = 1 ThenData1.Recordset.DeleteData1.Recordset.MoveN

34、extIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastEnd IfElseExit SubEnd IfEnd SubPrivate Sub Command4_Click()Command1.Caption = 添加Command2.Caption = 修改Command1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseCommand5.Enabled = TrueEnd SubPrivate Sub Command5_C

35、lick()Dim ss As Stringss = InputBox(請(qǐng)輸入學(xué)號(hào), 提示)Data1.Recordset.FindFirst 學(xué)號(hào)= & ss & If Data1.Recordset.NoMatch ThenMsgBox 無此記錄End IfEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Command7_Click()Data1.RecordSource = select 學(xué)生基本情況表.姓名,學(xué)生基本情況表.學(xué)號(hào),學(xué)生基本情況表.性別 from 學(xué)生基本情況表 where 學(xué)生基本情況表.班級(jí)

36、= & Text1.Text & Data1.RefreshEnd SubPrivate Sub Command8_Click()On Error Resume NextIf Command8.Caption = 添加 ThenCommand8.Caption = 添加確認(rèn)Data2.Recordset.AddNewCommand9.Enabled = FalseCommand10.Enabled = FalseCommand11.Enabled = TrueCommand12.Enabled = FalseElseCommand8.Caption = 添加Data2.Recordset.Up

37、dateCommand9.Enabled = TrueCommand10.Enabled = TrueCommand11.Enabled = FalseCommand12.Enabled = TrueEnd IfEnd SubPrivate Sub Command9_Click() If Command9.Caption = 修改 ThenCommand9.Caption = 修改確認(rèn)Data2.Recordset.EditCommand11.Enabled = TrueElseCommand9.Caption = 修改Data2.Recordset.UpdateCommand11.Enabl

38、ed = FalseEnd IfEnd SubPrivate Sub Data1_Reposition()Data1.Caption = Data1.Recordset.AbsolutePosition + 1End SubPrivate Sub Data2_Reposition()Data2.Caption = Data2.Recordset.AbsolutePosition + 1End SubPrivate Sub Form_Load()Dim i As IntegerOn Error Resume NextDim db As DatabaseDim rs As RecordsetSet

39、 db = OpenDatabase(App.Path & 1.mdb)Set rs = db.OpenRecordset(課程維護(hù)表)rs.MoveFirstDo While Not rs.EOFIf Combo6.ListCount - 1 = 0 ThenCombo6.AddItem rs!課程ElseFor i = 0 To Combo6.ListCount - 1If Combo6.List(i) = rs!課程 Thenrs.MoveNextElseCombo6.AddItem rs!課程rs.MoveNextEnd IfNext iEnd IfLoopCombo6.ListInd

40、ex = 0End Sub查詢打印窗口：Private Sub Command1_Click()If Text1.Text = Or Text2.Text = ThenMsgBox 必須輸入學(xué)年-班級(jí)-學(xué)期ElseFrame2.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()If Combo2.Text = 學(xué)生名單 ThenDataReport1.ShowEnd IfIf Combo2.Text = 學(xué)期成績(jī)表 ThenDataReport2.ShowEnd IfEnd SubPrivate Sub Command4_Click(

41、)Unload MeEnd SubPrivate Sub Command5_Click()On Error Resume NextIf Combo2.Text = 其它 ThenForm4.ShowEnd IfIf Combo2.Text = 學(xué)生名單 ThenData1.RecordSource = select 姓名,學(xué)號(hào),性別 from 學(xué)生基本情況表 where 班級(jí)= & Text2.Text & Data1.RefreshEnd IfIf Combo2.Text = 不及格名單 ThenData1.RecordSource = select 姓名,學(xué)號(hào),課程,成績(jī),補(bǔ)考成績(jī),備注

42、from 成績(jī)表 where 年級(jí)= & Text1.Text & & And 班級(jí)= & Text2.Text & & And 學(xué)期= & Combo1.Text & & and val(成績(jī))60Data1.RefreshEnd IfIf Combo2.Text = 學(xué)期成績(jī)表 ThenDim ss As String: Dim kk As DatabaseSet kk = OpenDatabase(App.Path & 1.mdb)ss = select 姓名,學(xué)號(hào),sum(成績(jī)) as 總成績(jī) into temp from 成績(jī)表 group by 學(xué)號(hào) kk.Execute drop

43、 table temp;kk.Execute ssData1.RecordSource = select 成績(jī)表.姓名,成績(jī)表.學(xué)號(hào) temp.總成績(jī) from 成績(jī)表 ,temp where 成績(jī)表.學(xué)號(hào)=成績(jī)表.學(xué)號(hào) and 成績(jī)表.年級(jí)= & Text1.Text & & And 成績(jī)表.班級(jí)= & Text2.Text & & And 成績(jī)表.學(xué)期= & Combo1.Text & Data1.Refreshkk.CloseEnd IfEnd Sub登陸窗口：Private Sub Command1_Click()If Option1.Value = True ThenMDIForm1

44、.yhgl = FalseMDIForm1.kcwh = FalseMDIForm1.lrxs = FalseMDIForm1.lrcj = FalseMDIForm1.ShowUnload MeMDIForm1.Arrange 1End IfIf Option2.Value = True ThenFrame2.Enabled = TrueDim dd As DatabaseDim rr As RecordsetSet dd = OpenDatabase(App.Path & 1.mdb)Set rr = dd.OpenRecordset(select 密碼 from 密碼表 where 姓名

45、= & Text2.Text & )If Text2.Text = ThenMsgBox 必須輸入用戶名End If If rr.RecordCount = 0 Then MsgBox 密碼錯(cuò)誤, , 警告 Exit Sub End If If rr!密碼 = Text1.Text Then MDIForm1.Show Unload Me ElseMsgBox 密碼錯(cuò)誤, , 警告End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()End SubPrivate Sub Option1_Click()Frame2.Enabled = FalseLabel1.Enabled = FalseLabel2.Enabled = FalseEnd SubPrivate Sub Option2_Click()Frame2.Enabled = TrueLabel1.Enabled = TrueLabel2.Enabled = TrueEnd Sub密碼修改窗口：Private Sub Command1_Click()On