【文章內(nèi)容簡(jiǎn)介】 分析 ? 實(shí)現(xiàn)步驟 ?添加、保存窗體，設(shè)置窗體屬性； ?添加控件，設(shè)置控件屬性，構(gòu)造窗體界面； ?編寫代碼，實(shí)現(xiàn)相應(yīng)功能； ?和主窗體連接，測(cè)試模塊功能。 Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 4 院系設(shè)置模塊 二、 主窗體的設(shè)計(jì) 在 Visual Basic中單擊 【 工程 】 → 【 添加窗體 】 （或者工具欄的 “ 添加窗體 ” 按鈕），給工程添加一個(gè)新窗體，將窗體保存為 。窗體的主要屬性設(shè)置如下表所示： 屬性名 屬性值 說 明 名稱 frmDepartment 窗體名稱 Caption 院系設(shè)置 窗體標(biāo)題 BorderStyle 1 Fixed Single 窗體為固定邊界，禁止用戶改變大小 StartUpPosition 1 所有者中心 窗體啟動(dòng)后居于主窗體中央 Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 院系設(shè)置模塊 三、 模塊用戶界面的設(shè)計(jì) 在窗體上添加若干標(biāo)簽、文本框、按鈕，并添加一個(gè)數(shù)據(jù)表格控件、兩個(gè)數(shù)據(jù)控件。窗體布局如下圖所示： Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) t x t T e l e p h o n et x t D e p a r t H e a dt x t D e p a r t N a m et x t D e p a r t I Dd b g D e p a r tL a b e l 1L a b e l 2L a b e l 3L a b e l 4L a b e l 5t x t D e s cc m d A d dc m d M o d i f yc m d S a v ec m d C a n c e lc m d D e l e t ec m d Q u i td a t a D e p a r td a t a V a l i dVisual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 4 院系設(shè)置模塊 三、 模塊用戶界面的設(shè)計(jì) 其中 dbgDepart是數(shù)據(jù)表格控件，如果看不到該控件，請(qǐng)參考相關(guān)操作。將該控件綁定到數(shù)據(jù)控件上后（設(shè)置該控件的 DataSource屬性），在該控件上單擊右鍵，選擇 【 Retrieve Fields】 菜單項(xiàng)，將數(shù)據(jù)控件的所有字段綁定到表格上。再次單擊右鍵，選擇 【 Properties】 菜單項(xiàng)，打開屬性對(duì)話框，對(duì)數(shù)據(jù)表格的各項(xiàng)屬性進(jìn)行設(shè)置。其中在 General選項(xiàng)卡中可以設(shè)置表格標(biāo)題，去掉 AllowUpdate選項(xiàng)，如下圖所示，在 Columns選項(xiàng)卡中可以設(shè)置各列標(biāo)題，如下圖所示。 【 Edit】 菜單項(xiàng)，可以設(shè)置數(shù)據(jù)表格每列的寬度以及行的高度。此外還可以在字體選項(xiàng)卡中設(shè)置表頭和數(shù)據(jù)項(xiàng)的字體。去掉 AllowUpdate選項(xiàng)的目的是禁止用戶通過數(shù)據(jù)表格直接修改數(shù)據(jù)，從而通過程序代碼更好地控制數(shù)據(jù)的有效性和數(shù)據(jù)庫(kù)的完整性。其他各項(xiàng)的設(shè)置可以根據(jù)需要設(shè)置。 Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 4 院系設(shè)置模塊 三、 模塊用戶界面的設(shè)計(jì) 表格控件屬性設(shè)置： Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 4 院系設(shè)置模塊 四、 模塊功能的實(shí)現(xiàn) ? 通用變量、通用模塊定義 本模塊在同一個(gè)用戶界面上實(shí)現(xiàn)數(shù)據(jù)的瀏覽、添加、刪除、修改等功能，為了避免用戶操作不當(dāng)而錯(cuò)誤修改數(shù)據(jù)，在瀏覽數(shù)據(jù)時(shí)應(yīng)禁止數(shù)據(jù)的修改；在添加、修改數(shù)據(jù)時(shí)允許用戶輸入數(shù)據(jù)并禁止移動(dòng)記錄集指針，可以設(shè)置一個(gè)通用過程來(lái)實(shí)現(xiàn)界面的切換。單擊 【 工具 】 → 【 添加過程 】 ，添加一個(gè)名為 ToggleEditMode的私有子過程，代碼如下： （有關(guān)代碼參見教材） InEditMode是一個(gè)模塊級(jí)變量 ， 用于標(biāo)識(shí)用戶界面是否處在修改模式 。 另外還需要定義一個(gè)模塊級(jí)變量 BookMK用于表示數(shù)據(jù)控件的書簽 。這兩個(gè)變量的定義放在模塊的通用變量定義部分 。 Dim BookMK Dim InEditMode As Boolean Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 4 院系設(shè)置模塊 四、 模塊功能的實(shí)現(xiàn) ?窗體加載過程 在窗體加載時(shí)需要進(jìn)行初始化處理。首先，為了保證應(yīng)用程序在任何路徑下都可以訪問到數(shù)據(jù)庫(kù)，必須修改數(shù)據(jù)控件的 DatabaseName屬性，使其能自動(dòng)定位到應(yīng)用程序所在的路徑。其次，確保窗體加載時(shí)界面處在瀏覽模式下，不允許修改數(shù)據(jù)庫(kù)中的數(shù)據(jù)。代碼如下： Private Sub Form_Load( ) = amp。 \ = amp。 \ = False InEditMode = False ToggleEditMode End Sub 其中 ，本系統(tǒng)中將數(shù)據(jù)庫(kù)文件和應(yīng)用程序的可執(zhí)行文件放在同一個(gè)文件夾下。窗體加載以后就可以通過數(shù)據(jù)控件的按鈕和數(shù)據(jù)表格瀏覽數(shù)據(jù)庫(kù)中的數(shù)據(jù)了。 Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 4 院系設(shè)置模塊 四、 模塊功能的實(shí)現(xiàn) ?數(shù)據(jù)添加功能的實(shí)現(xiàn) 數(shù)據(jù)添加功能比較容易實(shí)現(xiàn)，通過數(shù)據(jù)控件的數(shù)據(jù)集的 AddNew方法可以添加一條空記錄，同時(shí)將界面切換到編輯模式下供用戶輸入數(shù)據(jù)。為了在操作完成以后數(shù)據(jù)控件能回到添加前的記錄位置，需要設(shè)置數(shù)據(jù)控件的書簽。添加功能的代碼如下： Private Sub cmdAdd_Click() If 0 Then BookMK = Else BookMK = Null End If 39。 添加記錄 InEditMode = True 39。 設(shè)置編輯模式 ToggleEditMode 39。 切換模式 End Sub Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 4 院系設(shè)置模塊 四、 模塊功能的實(shí)現(xiàn) ?數(shù)據(jù) 記錄刪除功能的實(shí)現(xiàn) 記錄刪除功能通過數(shù)據(jù)控件的數(shù)據(jù)集的 Delete方法實(shí)現(xiàn)。為了保證數(shù)據(jù)庫(kù)的完整性，在刪除院系設(shè)置記錄前應(yīng)確保數(shù)據(jù)庫(kù)中沒有屬于該院系的班級(jí)。保證數(shù)據(jù)庫(kù)的完整性，一般可以采取 “ 層級(jí)更新 /級(jí)聯(lián)刪除 ” 或者 “ 拒絕操作 ”的方法，本系統(tǒng)中采用 “ 拒絕刪除 ” 的辦法，同時(shí)向用戶顯示警告信息。 SQL語(yǔ)句 SELECT * FROM Class WHERE DepartID=’院系編號(hào) ’ 用于從班級(jí)數(shù)據(jù)表 Class中選擇屬于指定院系編號(hào)的班級(jí)的信息 。 過程中通過 SQL語(yǔ)句打開 dataValid數(shù)據(jù)集 ， 如果數(shù)據(jù)集不為空則 “ 拒絕刪除 ” ， 并將屬于該院系的班級(jí)名稱顯示出來(lái) 。 dataValid的 RecordSource屬性以后，必須調(diào)用 Refresh方法才能刷新數(shù)據(jù)集里的數(shù)據(jù)。記錄刪除后，需要修改數(shù)據(jù)集的指針位置，處理可能出現(xiàn)的異常情況。 Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 4 院系設(shè)置模塊 四、 模塊功能的實(shí)現(xiàn) ?數(shù)據(jù)修改功能的實(shí)現(xiàn) Edit方法可以使數(shù)據(jù)集處于編輯狀態(tài) ， 供用戶修改各個(gè)字段 ， 同時(shí)應(yīng)將界面切換到編輯模式下 ， 并設(shè)置好數(shù)據(jù)控件的書簽 。 Department數(shù)據(jù)表中的院系編號(hào) ， 而 Class數(shù)據(jù)表中相關(guān)班級(jí)的院系編號(hào)不作修改 ， 數(shù)據(jù)庫(kù)的完整性就會(huì)遭到破壞 ， 這里采用“ 拒絕修改 ” 的辦法 ， 通過設(shè)置 = True， 使用戶不能修改院系的編號(hào) 。 這種處理限制了用戶的操作 ， 給用戶使用造成一定的不便 ， 下一章中將采用 “ 級(jí)聯(lián)更新 ” 的辦法保證數(shù)據(jù)庫(kù)的完整性 。 Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 4 院系設(shè)置模塊 四、 模塊功能的實(shí)現(xiàn) ?數(shù)據(jù)保存功能的實(shí)現(xiàn) ， 保存通過調(diào)用數(shù)據(jù)控件的 UpdateRecords方法實(shí)現(xiàn) 。 保存數(shù)據(jù)前必須對(duì)數(shù)據(jù)進(jìn)行有效性驗(yàn)證 。 。 這個(gè)步驟很重要 ， 必須確保用戶輸入的數(shù)據(jù)是有效的 。 先利用 Trim函數(shù)去掉數(shù)據(jù)前后的多余空格 ， 然后利用Replace函數(shù)去掉數(shù)據(jù)中的非法字符 “ ’ ” ， 請(qǐng)思考為什么要去掉字符 “ ’ ”（ 提示： “ ’ ” 會(huì)破壞 SQL語(yǔ)句而造成語(yǔ)法錯(cuò)誤 ） 。 ， 如果用戶沒有給非空字段輸入數(shù)據(jù) ，則提示用戶必須輸入該字段 ， 并通過控件的 SetFocus方法直接將焦點(diǎn)定位到該相關(guān)控件 ， 便于用戶的操作 。 dataValid驗(yàn)證輸入的院系編號(hào)是否唯一 。 判斷當(dāng)前是添加狀態(tài)還是修改狀態(tài)可以通過 txtDepartID控件的 Locked屬性確定 （ 參考 “ 數(shù)據(jù)修改功能的實(shí)現(xiàn) ” ） 。 Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 5 班級(jí)管理模塊 班級(jí)管理模塊實(shí)現(xiàn)班級(jí)添加、刪除以及班級(jí)信息瀏覽、修改等功能。 本節(jié)內(nèi)容包括如下幾個(gè)方面： ? 模塊功能分析； ? 窗體的創(chuàng)建； ? 模塊用戶界面的設(shè)計(jì)； ? 模塊功能的實(shí)現(xiàn) 。 Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 5 班級(jí)管理模塊 一、模塊功能分析 ? 實(shí)現(xiàn)思路 班級(jí)管理模塊的實(shí)現(xiàn)和院系設(shè)置模塊的實(shí)現(xiàn)類似，本模塊中需要設(shè)置班級(jí)所屬院系的編號(hào)，為了防止用戶輸入不存在的院系編號(hào)，可以通過將 Department表中所有院系的編號(hào)取出填充到 ComboBox控件中供用戶選擇來(lái)實(shí)現(xiàn)。本模塊采用 DTPicker控件來(lái)輸入班級(jí)創(chuàng)建日期值，保證用戶輸入的日期是有效日期。 Visual Basic 數(shù)據(jù)庫(kù)編程教程 學(xué)生信息管理系統(tǒng) 167。 5 班級(jí)管理模塊 一、模塊功能分析 ? 實(shí)現(xiàn)步驟 ?添加、保存窗體，設(shè)置窗體屬性； ?添加控件，設(shè)置控件屬性，構(gòu)造窗體界面；