【正文】 代碼。 Visual Basic 自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而 Visual Basic 則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法 (OOP)，把程序和數(shù)據(jù)封裝起來(lái)作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。 Visual Basic 語(yǔ)句簡(jiǎn)單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語(yǔ)法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。在設(shè)計(jì)Visual Basic 程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows環(huán)境下運(yùn)行。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過(guò)一段程序來(lái)響應(yīng)。 在用 Visual Basic 設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開(kāi)始和結(jié)束的程序，而是編寫(xiě)若干個(gè)微小的子程序，即過(guò)程。 訪(fǎng)問(wèn)數(shù)據(jù)庫(kù) Visual Basic 具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。 14 Visual Basic 提供開(kāi)放式數(shù)據(jù)連接，即 ODBC 功能，可通過(guò)直接訪(fǎng)問(wèn)或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如 SQL Server， Oracle等。 動(dòng)態(tài)數(shù)據(jù)交換 (DDE) 利用動(dòng)態(tài)數(shù)據(jù)交換 (Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。 Visual Basic 提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他 Windows 應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。 OLE 技術(shù)是Microsoft 公司對(duì)象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看做是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。 動(dòng)態(tài)鏈接庫(kù) (DLL) Visual Basic 是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪(fǎng)問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。此外，通過(guò)動(dòng)態(tài)鏈接庫(kù)，還可以調(diào)用 Windows 應(yīng)用程序接口 (API)函數(shù)，實(shí)現(xiàn) SDK 所具有的功能 [2]。 Access 是微軟公司推出的基于 Windows的桌面關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)（ RDBMS），是 Office系列應(yīng)用軟件之一。 Access 是一種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，其主要特點(diǎn)如下： （ 1） 存儲(chǔ)方式單一 Access管理的對(duì)象有表、查詢(xún)、窗體、報(bào)表、頁(yè)、宏和模塊，以上對(duì)象都存放在后綴為（ .mdb）的數(shù)據(jù)庫(kù)文件種，便于用戶(hù)的操作和管理。它將一個(gè)應(yīng)用系統(tǒng)當(dāng)作是由一系列對(duì)象組成的，對(duì)每個(gè)對(duì)象它都定義一組方法和屬性，以定義該對(duì)象的行為和外國(guó)，用戶(hù)還可以按需要給對(duì)象擴(kuò)展方法和屬性。同 時(shí)，這種基于面向?qū)ο蟮拈_(kāi)發(fā)方式，使得開(kāi)發(fā)應(yīng)用程序更為簡(jiǎn)便。系統(tǒng)還提供了表生成器、查詢(xún)生成器、報(bào)表設(shè)計(jì)器以及數(shù)據(jù)庫(kù)向?qū)?、表向?qū)?、查?xún)向?qū)?、窗體向?qū)?、?bào)表向?qū)У裙ぞ?，使得操作?jiǎn)便，容易使用和掌握。 系統(tǒng)數(shù)據(jù)庫(kù)名為“學(xué)生收費(fèi)數(shù)據(jù)庫(kù)：”，整個(gè)數(shù)據(jù)庫(kù)中包含五個(gè)數(shù)據(jù)表：班級(jí)檔案表、收費(fèi)標(biāo)準(zhǔn)表、學(xué)生檔案表、用戶(hù)檔案表、專(zhuān)業(yè)檔案表。 16 學(xué)生檔案 字段 數(shù)據(jù)類(lèi)型 長(zhǎng)度 學(xué)號(hào) char 10 姓名 char 8 性別 char 2 身份證號(hào) char 18 班級(jí) char 30 是否內(nèi)宿 char 2 學(xué)年度 1 char 4 學(xué)費(fèi) 1 Int 4 書(shū)費(fèi) 1 Int 4 住宿費(fèi) 1 Int 4 其它 1 Int 4 學(xué)年度 2 char 4 學(xué)費(fèi) 2 Int 4 書(shū)費(fèi) 2 Int 4 住宿費(fèi) 2 Int 4 其它 2 Int 4 學(xué)年度 3 char 4 學(xué)費(fèi) 3 Int 4 書(shū)費(fèi) 3 Int 4 住宿費(fèi) 3 Int 4 17 班級(jí)檔案 列名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 班級(jí) char 4 學(xué)制 char 4 學(xué)生類(lèi)型 char 4 學(xué)習(xí)層次 char 4 學(xué)習(xí)方式 char 4 入學(xué)年度 char 4 入學(xué)時(shí)間 char 4 編號(hào) int 4 其它 3 Int 4 畢業(yè)年度 char 4 畢業(yè)登記 char 4 編號(hào) int 4 18 收費(fèi)標(biāo)準(zhǔn) 列名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 班級(jí) char 30 收費(fèi)年度 char 4 學(xué)費(fèi) int 4 書(shū)費(fèi) int 4 住宿費(fèi) int 4 其它 int 4 編號(hào) int 4 用戶(hù)檔案 列名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 用戶(hù)名 char 10 密碼 char 10 權(quán)限 char 1 編號(hào) int 4 專(zhuān)業(yè)檔案 列名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 專(zhuān)業(yè)名稱(chēng) char 30 系統(tǒng)模塊 功能 設(shè)計(jì) 《學(xué)生收費(fèi)管理系統(tǒng)》由 6 大模塊組成：數(shù)據(jù)輸入模塊，數(shù)據(jù)修改模塊、數(shù)據(jù)刪除模塊、數(shù)據(jù)查詢(xún)模塊、數(shù)據(jù)統(tǒng)計(jì)模塊和系統(tǒng)維護(hù)模塊。系統(tǒng)功能模塊結(jié)構(gòu)見(jiàn)圖 。 圖 新生交費(fèi)模塊界面 圖 系統(tǒng)功能模塊結(jié)構(gòu)圖 20 1）這里要求掌握的新生數(shù)據(jù)有報(bào)讀班級(jí)、姓名、學(xué)號(hào)、性別、身 份證號(hào)、是否內(nèi)宿。學(xué)號(hào)只能是 輸入 數(shù)字類(lèi)型，輸入其他字符則不能輸入，如：沒(méi)有輸入身份證號(hào)，則提示“身份證號(hào)不能為空”，如果身份證位數(shù)不夠 15 位或者 18 位數(shù)時(shí)則提示“身份證位數(shù)非法” ，讓用戶(hù)重新輸入身份證號(hào)直到合法為止。 2）在正確輸入所需數(shù)據(jù)后，選擇“確定”按鈕； 系統(tǒng)首先檢查數(shù)據(jù)庫(kù)中是否存在該班級(jí)的收費(fèi)標(biāo)準(zhǔn)，如果沒(méi)有該年的收費(fèi)標(biāo)準(zhǔn)則提示先增加 收費(fèi)標(biāo)準(zhǔn)。 3）確認(rèn)學(xué)生交費(fèi)后可以繼續(xù)下一位新生交費(fèi)，新生交費(fèi)模塊的組合框、文本框和選擇框都會(huì) 自動(dòng) 恢復(fù)為默認(rèn)值為空 以便讓用戶(hù)重新輸入 。 程序流程見(jiàn)圖 。 圖 舊生交費(fèi)模塊界面 模塊功能： 1）在學(xué)號(hào)框或姓名框內(nèi)，選擇或填寫(xiě)學(xué)號(hào)或姓名?？梢宰詣?dòng)顯示應(yīng)交費(fèi)的年度以及應(yīng)交費(fèi)年度Y N N Y 提示輸入該班級(jí)的收費(fèi)標(biāo)準(zhǔn) 從收費(fèi)標(biāo)準(zhǔn)中查詢(xún)?cè)摪嗉?jí)第一學(xué)年的收費(fèi)標(biāo)準(zhǔn) 學(xué)生檔案中是否有該記錄？ 提示重新輸入 收費(fèi)標(biāo)準(zhǔn)中有該班級(jí)第一學(xué)年的收從收費(fèi)標(biāo)準(zhǔn)中查詢(xún)?cè)摪嗉?jí)第一學(xué)年的收費(fèi)標(biāo)準(zhǔn)費(fèi)標(biāo)準(zhǔn)？ 將收費(fèi)標(biāo)準(zhǔn)中該班級(jí)第一學(xué)年的各項(xiàng)收費(fèi)標(biāo)準(zhǔn)輸出到 Text4~Text7 圖 新生交費(fèi)模塊程序流程 23 的收費(fèi)標(biāo)準(zhǔn)。 3）在確認(rèn)所有數(shù)據(jù)正確后，此時(shí)選擇“確認(rèn)交費(fèi)”按鈕則可以完成該學(xué)生在該年的交費(fèi)?！?如果學(xué)生交費(fèi)后可以馬上 在應(yīng)交年度 顯示 交費(fèi)結(jié)果。 程序流程： （ 1）查詢(xún)學(xué)號(hào)或姓名命令按鈕 Click()事件程序流程（圖 ） N Y Y 初始化表格標(biāo)題 在表格中顯示 應(yīng)交費(fèi) 年 度的收費(fèi)標(biāo)準(zhǔn) 讀取各屬性值并賦值給相應(yīng)變量，將姓名和班級(jí)屬性值輸入到相應(yīng)文本框 學(xué)生檔案中有該記錄嗎？ 查詢(xún)指定姓名或?qū)W號(hào)的學(xué)生記錄 開(kāi)始 提示重新輸入 初始化學(xué)年度 并顯示所交費(fèi)學(xué)年度的學(xué)費(fèi) 圖 查詢(xún)學(xué)號(hào)或姓名程序流程 24 （ 2）確認(rèn)收費(fèi) 命令按鈕 Click()事件 程序流程（圖 ） 畢業(yè)登記模塊 畢業(yè)登記模塊界面見(jiàn)圖 。選擇“查詢(xún)”按鈕可以得到該學(xué)生的班級(jí)、學(xué)制等數(shù)據(jù)。 3）如果該學(xué)生沒(méi)有交完各學(xué)年的學(xué)費(fèi)，則會(huì)顯示欠交學(xué)費(fèi)信息，并且暫緩讀取學(xué)年度的內(nèi)容賦值給 jfnd（交費(fèi)年度） 開(kāi)始 是第二學(xué)年交費(fèi)？ 讀取各項(xiàng)費(fèi)用的內(nèi)容分別賦值給變量 xf2(學(xué)費(fèi) 2)、sf2(書(shū)費(fèi) 2)、 zsf2(住宿費(fèi) 2)、 qt2(其它 2) 改變指定學(xué)生記錄相應(yīng)的屬性值 是第三學(xué)年交費(fèi)？ 讀取各項(xiàng)費(fèi)用的內(nèi)容分別賦值給變量 xf3(學(xué)費(fèi) 3)、sf3(書(shū)費(fèi) 3)、 zsf3(住宿費(fèi) 3)、 qt3(其它 3) 改變指定學(xué)生記錄相應(yīng)的屬性值 是第四學(xué)年交費(fèi)？ 讀取各項(xiàng)費(fèi)用的內(nèi)容分別賦值給變量 xf4(學(xué)費(fèi) 4)、sf4(書(shū)費(fèi) 3)、 zsf4(住宿費(fèi) 3)、 qt4(其它 3) 改變指定學(xué)生記錄相應(yīng)的屬性值 Y N Y N Y N 結(jié)束 圖 確認(rèn)交費(fèi)程序流程 25 辦理畢業(yè)登記手續(xù)直到該生各學(xué)年全部學(xué)費(fèi)交完止。 1）首先輸入學(xué)年度、專(zhuān)業(yè)、學(xué)生類(lèi)型、學(xué)制、入學(xué)時(shí)間、學(xué)習(xí)層次、學(xué)習(xí)方式中選擇或是填寫(xiě)一個(gè)新班級(jí)的正確數(shù)據(jù)，再選擇“確定”按鈕可以增加一個(gè)班級(jí)的基本資料。 3）選擇“返回”按鈕返回主界面。 增加收費(fèi)標(biāo)準(zhǔn)模塊 圖 增加班級(jí)模塊界面 提示重新選擇 N Y N N Y 將各項(xiàng)的內(nèi)容賦值給變量 rxnd（入學(xué)年度）、 zy（專(zhuān)業(yè)）、 xslx（學(xué)生類(lèi)型、 xz（學(xué)制） 將各項(xiàng)的內(nèi)容賦值給變量 rxsj（入學(xué)時(shí)間）、 xxcc（學(xué)習(xí)層次）、 xxfs（學(xué)習(xí)方式）各變量 提示重新輸入 入學(xué)、學(xué)習(xí)層次、方式？ 向班級(jí)檔新記錄 提示重新輸入 班級(jí)檔案有該班級(jí)？ 生成 bj（班級(jí) 變量） Y 入學(xué)年度、專(zhuān)業(yè)、學(xué)生？類(lèi)型？、 學(xué)制是否為空？ 開(kāi)始 聲明一個(gè)記錄集對(duì)象，與 ADO 連接對(duì)象關(guān)聯(lián) 圖 增加班級(jí)程序流程 28 增加收費(fèi)標(biāo)準(zhǔn)模塊界面見(jiàn)圖 。 2）選擇“繼續(xù)”按鈕，增加收費(fèi)標(biāo)準(zhǔn)模塊的組合框、文本框和選擇框都會(huì)恢復(fù)為默認(rèn) 值為空，繼續(xù)增加一個(gè)班級(jí)的收費(fèi)標(biāo)準(zhǔn)。 程序流程見(jiàn)圖 。 2)在組合框輸入或選擇要?jiǎng)h除的專(zhuān)業(yè)名稱(chēng)，單擊“刪除”按鈕就可以刪除所選的專(zhuān)業(yè)名稱(chēng)。 程序流程圖見(jiàn)圖 數(shù)據(jù)修改模塊 修改班級(jí)記錄模塊 修改 班級(jí)記錄模塊界面見(jiàn)圖 。 2）在得到班級(jí)信息后你可以對(duì)以下信息進(jìn)行修改 ,有班級(jí)名、學(xué)制、學(xué)生類(lèi)型、學(xué)習(xí)層次、入學(xué)年度、入學(xué)時(shí)間等數(shù)據(jù)。 3）選擇“返回”按鈕返回主界面。 修改學(xué)生記錄模塊 圖 修改班級(jí)模塊界面 Y N 查到？ 從班級(jí)檔案中查詢(xún)查詢(xún)指定班級(jí)的記錄 將編號(hào)屬性值賦值給變量 bh（編號(hào)），將其它屬性值分別在相應(yīng)的文本框中顯示出來(lái) 開(kāi)始 提示重新輸入 N Y 修改指定記錄 確認(rèn)要修改該記錄嗎？ 將各文本框的內(nèi)容分別賦值給變量 bj（班級(jí)）、 xz（學(xué)制） xslxf（學(xué)生類(lèi)型）、 xxcc（學(xué)習(xí)層次）、 rxnd（入學(xué)年度）、 rxsj（入學(xué)時(shí)間） Exit Sub 圖 修改班級(jí)程序流程 31 修改學(xué)生記錄模界面見(jiàn)圖 。 2)在得到學(xué)生信息后可以對(duì)學(xué)生的姓名、學(xué)號(hào)、性別、是否內(nèi)宿、班級(jí)、身份證號(hào)、畢業(yè)年度、畢業(yè)登記和每個(gè)學(xué)年的學(xué)費(fèi)、書(shū)費(fèi)、住宿費(fèi)和其他收費(fèi)進(jìn)行修改，再按“確認(rèn)”按鈕便提示你“確認(rèn)要修改同學(xué)的數(shù)據(jù)嗎？”再按“確 定”就可以成功修改該同學(xué)的學(xué)生信息，否則按“取消”。 程序流程見(jiàn)圖 N Y Y N 將編號(hào)屬性值賦值給 變量 bh（編號(hào)），將其它屬性值分別在對(duì)應(yīng)的文本框中顯示出來(lái) 查到？ 提示重新輸入 從學(xué)生檔案中查詢(xún)查詢(xún)指定學(xué)號(hào)或姓名的記錄 開(kāi)始 對(duì)表格進(jìn)行初始化 將指定學(xué)號(hào)記錄的屬性在表格中顯示出來(lái) 確認(rèn)要修改該記錄嗎？ 將各文本框的內(nèi)容分別賦值給變量 修改指定記錄 Exit Sub 圖 修改學(xué)生記錄模塊界面 32 修改收費(fèi)標(biāo)準(zhǔn)模塊 修改收費(fèi)標(biāo)準(zhǔn)模塊界面見(jiàn) 。 2）在得到的班級(jí)信息中可以對(duì)班級(jí)名、收費(fèi)年度、書(shū)費(fèi)、學(xué)費(fèi)