【文章內(nèi)容簡(jiǎn)介】 ? 其中 “ 類型說明 ” 表示文件列表內(nèi)各個(gè)文件類型的說明文字 ， 如 “ 所有文件 （ *.*） ” ； “ 擴(kuò)展名 ”用來指定文件類型 ， 如 “ *.bmp。*.ico”。 Filter屬性是字符型 ， 需要用雙引號(hào)將整個(gè)類型說明引起來， 如 “ 所 有 文 件 （ * .* ） |*.*| 位圖(*.bmp)|*.bmp|JPEG圖像 (*.jpg)|*.jpg|GIF圖像(*.gif)|*.gif”。 1032 “ 打開 ” 與 “ 另存為 ” 對(duì)話框 計(jì)算機(jī)基礎(chǔ)教研室 ? 通 過 使 用 CommonDialog 控 件 對(duì) 象 的ShowColor 方法或 Action屬性值的設(shè)置可顯示 “ 顏色 ” 對(duì)話框 。 “ 顏色 ” 對(duì)話框用以從調(diào)色板選擇顏色 ， 或是創(chuàng)建和選擇自定義顏色 。 1033 “ 顏色 ” 對(duì)話框 計(jì)算機(jī)基礎(chǔ)教研室 ? 使用 “ 顏色 ” 對(duì)話框 ， 需要首先設(shè)置CommonDialog控件對(duì)象中與顏色對(duì)話相關(guān)的屬性 。 然后使用 ShowColor方法或 Action屬性值的設(shè)置顯示對(duì)話框 ， 運(yùn)行時(shí) ， 選定顏色并關(guān)閉對(duì)話框后可用 CommonDialog對(duì)象的Color屬性獲取選定的顏色 。 ? 為了該屬性能返回 “ 顏色 ” 對(duì)話框中的一種顏色 ， 必須先設(shè)置 CommonDialog控件對(duì)象的cdlCCRGBInit標(biāo)志以規(guī)定顏色的初始值 。 ? 公共對(duì)話框?qū)ο?.Flags = cdlCCRGBInit 1033 “ 顏色 ” 對(duì)話框 計(jì)算機(jī)基礎(chǔ)教研室 ? 字體對(duì)話框用于選擇文本的字體 、 字形 、 字號(hào)等效果 。 Visual Basic使用 CommonDialog控件的ShowFont方法或 Action屬性值 （ 公共對(duì)話框?qū)ο?Action=4） 的設(shè)置來顯示標(biāo)準(zhǔn)的 “ 字體 ” 對(duì)話框。 1034 “ 字體 ” 對(duì)話框 計(jì)算機(jī)基礎(chǔ)教研室 ? 顯示 “ 字體 ” 對(duì)話框之前必須將 CommonDialog控件的 Flags屬性設(shè)置為下列數(shù)值之一 ， 否則將發(fā)生不存在字體錯(cuò)誤 。 ? cdlCFScreenFonts（ 只顯示屏幕字體 ） ? cdlCFPrinterFonts（ 只顯示打印機(jī)字體 ） ? cdlCFBoth（ 既顯示屏幕字體又顯示打印機(jī)字體 ） ? 如果需要字體對(duì)話框設(shè)置字體的刪除線 ， 下劃線， 以及顏色效果 ， 需要設(shè)置對(duì)話框的下面 Flags屬性 。 ? cdlCFEffects（ 它指定對(duì)話框允許刪除線 ， 下劃線 ， 以及顏色效果 。 ） 1034 “ 字體 ” 對(duì)話框 計(jì)算機(jī)基礎(chǔ)教研室 ? “字體 ” 對(duì)話框通過一組屬性來返回給程序用戶在對(duì)話框內(nèi)選擇的有關(guān)字體的信息 。 1034 “ 字體 ” 對(duì)話框 屬性 說明 Color 選定的顏色。如要使用這個(gè)屬性，必須先將 Flags屬性設(shè)置為cdlCFEffects。 FontBold 是否選定了粗體。 FontItalic 是否選定了斜體。 FontStrikethru 是否選定刪除線。如要使用這個(gè)屬性，必須先將 Flags屬性設(shè)置為 cdlCFEffects。 FontUnderline 是否選定下劃線。如要使用這個(gè)屬性，必須先將 Flags屬性設(shè)置為 cdlCFEffects。 FontName 選定字體的名稱。 FontSize 選定字體的大小。 計(jì)算機(jī)基礎(chǔ)教研室 ? “打印 ” 對(duì)話框用于確定打印輸出的有關(guān)設(shè)置 。 用戶在對(duì)話框內(nèi)可以指定打印頁數(shù)范圍 、 打印質(zhì)量 、 復(fù)制數(shù)目等等 。此對(duì)話框還顯示有當(dāng)前安裝的打印機(jī)信息 ， 并允許用戶進(jìn)行配置或重新安裝新的缺省打印機(jī) 。 1035 “ 打印 ” 對(duì)話框 計(jì)算機(jī)基礎(chǔ)教研室 ? 通過使用 CommonDialog控件對(duì)象的 ShowPrinter方法或 Action屬性值 （ 對(duì)話框?qū)ο?.Action=5） 的設(shè)置可顯示 “ 打印 ” 對(duì)話框 。 在 “ 打印 ” 對(duì)話框內(nèi)可以進(jìn)行如下有關(guān)打印的屬性設(shè)置 。 1035 “ 打印 ” 對(duì)話框 屬性 說明 Copies 要打印的份數(shù)。 FromPage 打印的起始頁。 ToPage 打印的結(jié)束頁。 hDC 選定打印機(jī)的設(shè)備上下文。 計(jì)算機(jī)基礎(chǔ)教研室 1． 對(duì)話框分為哪幾種 ？ 各有什么特點(diǎn) ， 如何在Visual Basic中實(shí)現(xiàn)這些對(duì)話框 ？ 2． 為了利用窗體制作自定義對(duì)話框 ， 需要設(shè)置窗體的那些屬性 ？ 3． 什么是模式與無模式對(duì)話框 ？ 4． 試編寫程序 ， 利用 “ 打開 ” 對(duì)話框給 image對(duì)象添加圖片 。 5． 試編寫程序 ， 利用 “ 字體 ” 與 “ 顏色 ” 對(duì)話框設(shè)置標(biāo)簽的文本屬性 。 104 思考題 計(jì)算機(jī)基礎(chǔ)教研室 第 11章 訪問數(shù)據(jù)庫(kù) 計(jì)算機(jī)基礎(chǔ)教研室 主要內(nèi)容 111 數(shù)據(jù)庫(kù)的基本概念 112 使用 Data控件訪問數(shù)據(jù)庫(kù) 113 使用 ADO訪問數(shù)據(jù)庫(kù) 114 使用 DAO訪問數(shù)據(jù)庫(kù) 計(jì)算機(jī)基礎(chǔ)教研室 111 數(shù)據(jù)庫(kù)基本概念 數(shù)據(jù)庫(kù) 是具有一定組織結(jié)構(gòu)的相關(guān)信息的集合 。 它是將一些相關(guān)的數(shù)據(jù)表組織在一起 ， 通過設(shè)置某些 功能 ， 使數(shù)據(jù)表之間建立關(guān)系 ， 這樣就構(gòu)成了一個(gè)完 整數(shù)據(jù)庫(kù) 。 1111 數(shù)據(jù)庫(kù)概念 數(shù)據(jù)庫(kù)（ DataBase，簡(jiǎn)稱 DB）是指具有統(tǒng)一的 結(jié)構(gòu)形式并存放在計(jì)算機(jī)中的存儲(chǔ)介質(zhì)上、有組織 的、可共享的數(shù)據(jù)集合。 計(jì)算機(jī)基礎(chǔ)教研室 1. 數(shù)據(jù)庫(kù)、數(shù)據(jù)表基本概念 數(shù)據(jù)庫(kù)的結(jié)構(gòu)形式（即數(shù)據(jù)之間的聯(lián)系）稱為數(shù)據(jù) 模型。目前最為流行的是關(guān)系模型。關(guān)系模型是建立在 嚴(yán)格的數(shù)學(xué)理論基礎(chǔ)上，采用我們所熟悉的二維表格形 式來存儲(chǔ)數(shù)據(jù)。 一個(gè)關(guān)系對(duì)應(yīng)一張數(shù)據(jù)表，由一組相關(guān)的數(shù)據(jù)組成 。表中的每一列稱為一個(gè)字段，表中的第一行是字段名 稱。從表的第二行開始，每一行稱為一條記錄，每條記 錄含有相同類型和數(shù)量的字段。 計(jì)算機(jī)基礎(chǔ)教研室 數(shù)據(jù)庫(kù)管理系統(tǒng)（ DataBase Management System ，簡(jiǎn)稱 DBMS）是位于用戶與操作系統(tǒng)之間的數(shù)據(jù)管理軟 件。 數(shù)據(jù)庫(kù)系統(tǒng)（ DataBase System，簡(jiǎn)稱 DBS）是指 在計(jì)算機(jī)系統(tǒng)中引入數(shù)據(jù)庫(kù)后的系統(tǒng)。一個(gè)完整的數(shù)據(jù) 庫(kù)系統(tǒng)是由數(shù)據(jù)庫(kù)、數(shù)據(jù)庫(kù)管理系統(tǒng)、應(yīng)用系統(tǒng)、數(shù)據(jù) 庫(kù)管理員和用戶及硬件系統(tǒng)構(gòu)成。 計(jì)算機(jī)基礎(chǔ)教研室 1112 數(shù)據(jù)庫(kù)和表的建立 【 例 】 使用數(shù)據(jù)管理器建立一個(gè)學(xué)生管理數(shù)據(jù)庫(kù) 。 計(jì)算機(jī)基礎(chǔ)教研室 建立步驟如下： （ 1） 啟動(dòng)數(shù)據(jù)管理器 。 選擇 【 外接程序 】 |【 可視化數(shù)據(jù)管理器 】 命令 ， 打開如圖所示的數(shù)據(jù)管理器窗口； 計(jì)算機(jī)基礎(chǔ)教研室 （ 2）建立數(shù)據(jù)庫(kù)。選擇數(shù)據(jù)管理器窗口中的 【 文件 】|【 新建 】 |【 Microsoft Access… 】 |【 Version MDB】 命令，在出現(xiàn)的保存數(shù)據(jù)庫(kù)對(duì)話框中，選擇好路徑、輸入數(shù)據(jù)庫(kù)文件名 ，打開如圖所示的窗口； 數(shù)據(jù)庫(kù)窗口 SQL語句 計(jì)算機(jī)基礎(chǔ)教研室 （ 3）建立數(shù)據(jù)表結(jié)構(gòu)。新建的數(shù)據(jù)庫(kù) 任何數(shù)據(jù)表的空庫(kù)，需在該庫(kù)中添加數(shù)據(jù)表。方法是在數(shù)據(jù)庫(kù)窗口中按鼠標(biāo)右鍵，在彈出的快捷菜單中選擇 “ 新建表 ” 后，打開圖所示的 “ 表結(jié)構(gòu) ” 對(duì)話框； 計(jì)算機(jī)基礎(chǔ)教研室 在 “ 表名稱 ” 框中輸入表名 “ 學(xué)生基本信息 ” 。單擊 “ 添加字段 ” 按鈕，打開如下圖所示的 “ 添加字段 ” 對(duì)話框，在此可以向 “ 學(xué)生基本信息 ” 表中添加字段。 計(jì)算機(jī)基礎(chǔ)教研室 “學(xué)生基本信息 ” 表結(jié)構(gòu) 字段名 字段類型 字段大小 字段名 字段類型 字段大小 學(xué)號(hào) Text 6 出生日期 Date/Time 8（默認(rèn)） 姓名 Text 8 入學(xué)成績(jī) Integer 2（默認(rèn)） 性別 Text 1 系別 Text 20 計(jì)算機(jī)基礎(chǔ)教研室 （ 4）編輯數(shù)據(jù)表中的數(shù)據(jù)。所建立的 “ 學(xué)生基本信息 ”表，是一個(gè)僅有表結(jié)構(gòu)的空表，還需向表中添加數(shù)據(jù)信息。方法是雙擊 “ 學(xué)生基本信息 ” 表，打開如下圖所示的編輯記錄窗口。 計(jì)算機(jī)基礎(chǔ)教研室 在 記錄操作對(duì)話框 中， 單擊“添加”按鈕出現(xiàn)如下圖所示的對(duì)話框，在其中依次輸入“學(xué)生基本信息”表中第 1條記錄的 6項(xiàng)字段值后，單擊“更新”按鈕，即完成一條記錄的添加操作，重復(fù)以上操作，將表中所包含的 8條記錄均添加到“學(xué)生基本信息”數(shù)據(jù)表中。 計(jì)算機(jī)基礎(chǔ)教研室 112 用 Data控件訪問數(shù)據(jù)庫(kù) 【 例 】 制作一個(gè)瀏覽信息的用戶界面。將 【 例】 所建立的數(shù)據(jù)庫(kù)中的記錄信息顯示在 6個(gè)文本框中，運(yùn)行結(jié)果如圖所示。 計(jì)算機(jī)基礎(chǔ)教研室 【 解析 】 Data數(shù)據(jù)控件是 VB的標(biāo)準(zhǔn)控件 ， 利用它能方便地創(chuàng)建應(yīng)用程序與數(shù)據(jù)庫(kù)之間的連接 ， 并實(shí)現(xiàn)對(duì)數(shù)據(jù)資源的訪問 。 為了在程序運(yùn)行時(shí) ， 使 Data數(shù)據(jù)控件能夠訪問 student表中的記錄信息 ， 應(yīng)設(shè)置該 控件的DatabaseName屬性和 RecordSource屬性 。 ?DatabaseName屬性指定具體要訪問的數(shù)據(jù)庫(kù)文件名， 包括所有的路徑名 ， 實(shí)現(xiàn) Data數(shù)據(jù)控件與數(shù)據(jù)庫(kù)的連接 。 ?RecordSource屬性指定要訪問的數(shù)據(jù)庫(kù)中具體的數(shù)據(jù)表 ， 實(shí)現(xiàn) Data數(shù)據(jù)控件與數(shù)據(jù)表的連接 。 計(jì)算機(jī)基礎(chǔ)教研室 要在各文本框中顯示 Data控件所連接的數(shù)據(jù)表中的數(shù)據(jù)，必須將文本框與 Data數(shù)據(jù)控件進(jìn)行綁定。其方法是： 單擊用于顯示 “ 學(xué)號(hào) ” 信息的文本框 ， 在屬性窗口設(shè)置 DataSource屬性為 Data1（ 實(shí)現(xiàn)與數(shù)據(jù)控件Data1的綁定 ） ， 再設(shè)置 DataField屬性為 “ 學(xué)號(hào) ” （即綁定到數(shù)據(jù)表中具體的字段上 ） 。 同理 ， 設(shè)置其他 5個(gè)文本框的 DataSource屬性均為 Data1， DataField屬性分別為姓名 、 性別 、 出生日期 、 入學(xué)成績(jī)和系別 。 注意： 需先設(shè)置 DataSource屬性 ， 后設(shè)置 DataField屬性 。 計(jì)算機(jī)基礎(chǔ)教研室 完成上述步驟后 ， 運(yùn)行程序時(shí) ， 在 6個(gè)文本框中將自動(dòng)顯示 student表中的第一條記錄信息 。 Data數(shù)據(jù)控件上有 4個(gè)按鈕 ， 其中圖標(biāo) 、 、 、 分別表示移動(dòng)到表中第一條記錄 、 最后一條記錄 、 前一條記錄 、 后一條記錄 。 通過這 4個(gè)按鈕 ， 可以瀏覽表中的不同記錄信息 。 計(jì)算機(jī)基礎(chǔ)教研室 編寫代碼 : Private Sub Form_Load() For i = 0 To 5 Text1(i).Locked = True ’設(shè)置文本框不可編輯 Next i End Sub Private Sub Data1_Reposition() = 第 amp。 _ + 1) amp。 條記錄 End Sub 計(jì)算機(jī)基礎(chǔ)教研室 說明： （ 1） 將文本框控件與 Data數(shù)據(jù)控件綁定后 ， 當(dāng)改變文本框中的數(shù)據(jù)時(shí) ， 數(shù)據(jù)庫(kù)中相應(yīng)的數(shù)據(jù)會(huì)隨之改變 ， 為了控制用戶在文本框中編輯數(shù)據(jù) ， 在 Form_Load事件中將文本框的 Locked屬性設(shè)為 True； （ 2） 當(dāng)用戶單擊 Data控件上的某個(gè)按鈕 ， 進(jìn)行記錄間的移動(dòng)或在程序代碼中使用改變當(dāng)前記錄的屬性或方法 ， 使某條記錄成為當(dāng)前記錄后 ， 會(huì)觸發(fā) Data1的 Reposition事件 。 在該事件中出現(xiàn)的 Recordset是 Data1控件所控制的記錄集對(duì)象 ， 通過此對(duì)象對(duì)數(shù)據(jù)表中的記錄進(jìn)行瀏覽和操作 。 訪問數(shù)據(jù)庫(kù)的記錄集可用 。 計(jì)算機(jī)基礎(chǔ)教研室 Recordset對(duì)象有多種屬性和方法，本例中用到的 AbsolutePosition屬性