【正文】 Command2Caption瀏覽記錄Command2（名稱）cmdBrowseCommand3Caption退出Command3（名稱）cmdExitLabel3Caption選擇記錄：設(shè)置屬性后的界面如圖18－2所示。圖18－2 設(shè)置屬性后的界面3．編寫(xiě)程序代碼Private Sub Form_Load( ) Open D:\ For Random As 1 Len = Len(js)End SubPrivate Sub cmdAdd_Click( ) Dim position As Long position = LOF(1) / Len(js) = = Put 1, position + 1, js = = End SubPrivate Sub cmdBrowse_Click( ) LastRecord = LOF(1) / Len(js) = LastRecord = 1 = 1 Call HScroll1_ChangeEnd SubPrivate Sub HScroll1_Change( ) Dim n As Integer n = + 1 Get 1, n, js = = End SubPrivate Sub cmdExit_Click( ) Close 1 Unload MeEnd Sub4．運(yùn)行程序運(yùn)行程序，在兩個(gè)文本框中分別輸入姓名和電話號(hào)碼，然后單擊“添加記錄”命令按鈕，把該記錄添加到“D:\”文件中。單擊“瀏覽記錄”命令按鈕，單擊水平滾動(dòng)條向右箭頭或移動(dòng)滑塊，就可瀏覽記錄，所瀏覽記錄的姓名，電話分別顯示在兩個(gè)文本框中。程序運(yùn)行效果如圖18－3所示。圖18－3 隨機(jī)文件的使用實(shí)驗(yàn)十九 可視化數(shù)據(jù)管理器VisData的使用【實(shí)驗(yàn)?zāi)康摹?．掌握數(shù)據(jù)庫(kù)、表、記錄和字段的概念。2．掌握可視化數(shù)據(jù)庫(kù)管理器的使用。3．了解使用SQL語(yǔ)句對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行查詢和更新的功能?！緦?shí)驗(yàn)內(nèi)容】使用可視化數(shù)據(jù)庫(kù)管理器建立一個(gè)名為“”的Access數(shù)據(jù)庫(kù)，它包括一個(gè)學(xué)生學(xué)籍表，該表的表名為xjb，各列的名稱、數(shù)據(jù)類型、長(zhǎng)度及意義如下所示。列名 數(shù)據(jù)類型 長(zhǎng)度 意義st_No Integer 學(xué)號(hào)name Text 10 姓名sex Text 2 性別addr Text 50 地址height single 身高【實(shí)驗(yàn)步驟與指導(dǎo)】1．?dāng)?shù)據(jù)庫(kù)的創(chuàng)建(1)單擊“外接程序”菜單項(xiàng)的“可視化數(shù)據(jù)管理器”菜單項(xiàng)，啟動(dòng)“可視化數(shù)據(jù)管理器”，顯示如圖19－1所示的“VisData”窗口。圖19－1 可視化數(shù)據(jù)管理器(2)選擇“可視化數(shù)據(jù)管理器”中“文件”菜單中的“新建”菜單項(xiàng)用于創(chuàng)建數(shù)據(jù)庫(kù)。(3)選擇“Microsoft Access”菜單項(xiàng)，單擊該菜單項(xiàng)下的“Version MDB”菜單項(xiàng)，打開(kāi)“選擇要?jiǎng)?chuàng)建的Microsoft Access數(shù)據(jù)庫(kù)”對(duì)話框。(4)選擇新建數(shù)據(jù)庫(kù)保存的目錄后，在“文件名”文本框中輸入數(shù)據(jù)庫(kù)的名稱student。 單擊“確定”，“可視化數(shù)據(jù)管理器”開(kāi)始在指定的目錄下創(chuàng)建以指定名稱命名的Microsoft Access數(shù)據(jù)庫(kù)，如圖19－2所示。圖19－2 創(chuàng)建數(shù)據(jù)庫(kù)后的“可視化數(shù)據(jù)管理器”界面2．向數(shù)據(jù)庫(kù)中添加數(shù)據(jù)表（1）在“數(shù)據(jù)庫(kù)窗口”中右擊鼠標(biāo)，在彈出的快捷菜單中選“新建表”菜單項(xiàng)，系統(tǒng)將打開(kāi)“表結(jié)構(gòu)”對(duì)話框，如圖19－3所示。圖19－3 “表結(jié)構(gòu)”對(duì)話框（2）在“表名稱”文本框中鍵入表名，這里鍵入名稱xjb。（3）單擊“添加字段”按鈕，系統(tǒng)顯示“添加字段”對(duì)話框，如圖19－4所示。在這個(gè)對(duì)話框中定義表的字段。單擊“確定”按鈕，這樣我們就定義了xjb表的第一個(gè)字段。圖19－4 “添加字段”對(duì)話框（4）需要繼續(xù)添加字段時(shí)，單擊“添加字段”按鈕，按與第3步相似的方法添加新的字段，單擊“關(guān)閉”按鈕關(guān)閉“添加字段”對(duì)話框，此時(shí)，“表結(jié)構(gòu)”中顯示將該表所有字段的定義。（5）單擊“生成表”按鈕，“可視化數(shù)據(jù)管理器”創(chuàng)建指定的表并關(guān)閉“表結(jié)構(gòu)”對(duì)話框。如圖19－5所示。（6）若要修改現(xiàn)有表的表結(jié)構(gòu)，在“數(shù)據(jù)庫(kù)窗口”中右擊鼠標(biāo)，單擊彈出的快捷菜單中“設(shè)計(jì)”菜單項(xiàng)，系統(tǒng)將打開(kāi)“表結(jié)構(gòu)”對(duì)話框，對(duì)欲修改的字段進(jìn)行修改即可。3．編輯數(shù)據(jù)表中的數(shù)據(jù)（1）在“可視化數(shù)據(jù)管理器”，如圖2－20－6所示。（2）在“數(shù)據(jù)庫(kù)窗口”中右擊要添加、修改、或刪除記錄的表，從彈出菜單中選擇“打開(kāi)”菜單項(xiàng)，系統(tǒng)顯示“Dynaset:表名”對(duì)話框，其中顯示所選表中第一條記錄的內(nèi)容。如圖19－6所示。圖19－5 包含有3個(gè)表的數(shù)據(jù)庫(kù)student圖19－6 “Dynaset:xjb”對(duì)話框（3）添加記錄。單擊“添加”按鈕，對(duì)話框會(huì)顯示一條空的記錄，如圖19－7所示。輸入各字段的內(nèi)容，單擊“更新”按鈕保存新添加的記錄。圖19－7 添加新的記錄（4）其它按鈕的使用方法讀者可以自行摸索一下。（5）單擊“關(guān)閉”按鈕關(guān)閉“Dynaset:xjb”對(duì)話框。4．使用查詢生成器“查詢生成器”是Visual Basic “可視化數(shù)據(jù)管理器”的一個(gè)工具。利用這個(gè)工具，讀者即使在不太了解SQL語(yǔ)句的情況下，也能夠構(gòu)造出復(fù)雜的查詢來(lái)，而且可以測(cè)試其正確性。使用“查詢生成器”構(gòu)造和測(cè)試SELECT語(yǔ)句的步驟為：(1)啟動(dòng)“可視化數(shù)據(jù)管理器”，打開(kāi)數(shù)據(jù)庫(kù)。(2)單擊“實(shí)用程序”菜單下的“查詢生成器”菜單項(xiàng)，打開(kāi)如圖19－8所示的“查詢生成器”。圖19－8 查詢生成器(3)“表：”列表框中顯示了數(shù)據(jù)庫(kù)中定義的所有表。選中要檢索的表，該表中的所有字段都顯示在“要顯示的字段”列表框中；如果要檢索多個(gè)表中的數(shù)據(jù)，那么在“表：”列表框中選中這些表，這些表的所有字段都顯示在“要顯示的字段”列表框中。如圖2－20－8所示。(4)在“要顯示的字段”列表框中選中要檢索的字段，選中字段以高亮方式顯示。單擊“運(yùn)行”按鈕，系統(tǒng)詢問(wèn)“這是SQL傳遞查詢嗎？”，單擊“否”按鈕，系統(tǒng)使用我們剛剛構(gòu)造的SELECT語(yǔ)句檢索數(shù)據(jù)，并顯示在“SQL語(yǔ)句”對(duì)話框中，瀏覽完數(shù)據(jù)后，單擊“關(guān)閉”按鈕關(guān)閉“SQL語(yǔ)句”對(duì)話框。(5)構(gòu)造查詢條件。比如，我們要查找男學(xué)生的信息。那么，在“字段名稱”列表框中選擇字段名sex，在“運(yùn)算符”下拉列表框中選擇等號(hào)（=），在“值”下拉列表框中輸入“男”，這樣，就構(gòu)造了檢索條件：sex=39。男39。如果希望直接從數(shù)據(jù)庫(kù)中得到條件值，那么單擊“列出可能的值”按鈕，系統(tǒng)從數(shù)據(jù)庫(kù)中檢索該列的數(shù)據(jù)，并顯示在“值”列表框中，從該列表框中選擇條件中使用的值。單擊“運(yùn)行”按鈕，即可看到在指定條件下查詢的結(jié)果。(6)指定任意多個(gè)條件。如果需要指定更多的條件，那么首先需要分清要添加的條件與先前條件之間的關(guān)系。當(dāng)希望檢索同時(shí)滿足先前的條件與新加條件的記錄時(shí)，就要把這兩個(gè)條件做“與”運(yùn)算（And運(yùn)算），單擊“將And加入條件”按鈕；當(dāng)希望檢索或滿足先前的條件、或滿足新加條件的記錄時(shí)，就要把這兩個(gè)條件做“或”運(yùn)算（Or運(yùn)算），單擊“將Or加入條件”按鈕，相應(yīng)的條件顯示在對(duì)話框底部的“條件”文本框中。如圖19－9所示。(7)在“條件”編輯框中，我們可以編輯指定的條件。(8)需要定義排序方式時(shí)，單擊“排序按”下拉列表框，從中排序字段。(9)在定義查詢的過(guò)程中，隨時(shí)可以單擊“運(yùn)行”按鈕查看查詢的運(yùn)行結(jié)果。要查看定義的SELECT語(yǔ)句時(shí)，單擊“顯示”按鈕，系統(tǒng)顯示“SQL查詢”對(duì)話框，它列出了當(dāng)前定義的SELECT語(yǔ)句，如圖19－10所示。單擊“確定”按鈕關(guān)閉該對(duì)話框。圖19－9 添加多個(gè)條件圖19－10 顯示SELECT語(yǔ)句(10)要把定義的SELECT語(yǔ)句傳遞到“SQL 語(yǔ)句”窗口時(shí)，單擊“復(fù)制”按鈕。(11)要保存定義的SELECT語(yǔ)句時(shí)，單擊“保存”按鈕，輸入查詢的名稱后，該查詢作為一個(gè)數(shù)據(jù)庫(kù)對(duì)象保存到數(shù)據(jù)庫(kù)中。(12)單擊“關(guān)閉”按鈕關(guān)閉“查詢生成器”對(duì)話框。實(shí)驗(yàn)二十 繪圖程序設(shè)計(jì)【實(shí)驗(yàn)?zāi)康摹?．掌握Shape控件和Line控件的使用。2．掌握各種圖形方法的使用?！緦?shí)驗(yàn)內(nèi)容】1．顯示Shape控件的六種形狀，采用不同的線型和填充圖案。2．使用Line方法畫(huà)出一個(gè)五角星。3．在窗體上畫(huà)出圓弧，扇形，圓和橢圓?！緦?shí)驗(yàn)步驟與指導(dǎo)】1．第1題實(shí)驗(yàn)指導(dǎo)(1)設(shè)計(jì)界面初始界面如圖20－1所示。初始界面中的六個(gè)單選按鈕是控件數(shù)組中的控件。窗體中還有一個(gè)形狀控件Shape1。圖20－1 初始界面設(shè)置屬性后的界面如圖20－2所示。圖20－2 設(shè)置屬性后的界面(2)編寫(xiě)程序代碼Private Sub Option1_Click(Index As Integer) = Index = Index + 1 = Index + 2End Sub(3)運(yùn)行程序運(yùn)行程序后，每次單擊一個(gè)不同的單選按鈕就能看到一個(gè)不同的形狀。例如，單擊“Shape形狀3”，運(yùn)行效果如圖20－3所示。圖20－3 Shape控件的使用2．第2題實(shí)驗(yàn)指導(dǎo)(1)設(shè)計(jì)界面窗體Form1的Caption屬性設(shè)置為“Line控件使用舉例”。(2)編寫(xiě)程序代碼Private Sub Form_Click( ) Const pi = / 180, a = 1000 Line (800, 800)Step(a, 0) Line Step(a * Cos(36 * pi), a * Sin(36 * pi)) Line Step(a * Sin(18 * pi), a * Cos(18 * pi)) Line Step(a * Sin(18 * pi), a * Cos(18 * pi)) Line Step(a * Cos(36 * pi), a * Sin(36 * pi))End Sub(3)運(yùn)行程序運(yùn)行程序后，單擊窗體，程序運(yùn)行效果如圖20－4所示。圖20－4 Line控件的使用3．第3題實(shí)驗(yàn)指導(dǎo)(1）編寫(xiě)程序代碼Private Sub Form_Click( ) Const pi = Circle (2150, 1200), 800, vbBlue, pi / 6, pi / 3, 3 / 5 Circle (2000, 1300), 800, vbGreen, pi / 3, pi / 6, 3 / 5 FillStyle = 0FillColor = RGB(0, 0, 255)Circle (900, 700), 300Circle (3000, 2000), 400, , , , 2Circle (4000, 3000), 400, , , , 1 / 3End Sub(2)運(yùn)行程序運(yùn)行程序后，單擊窗體，程序運(yùn)行效果如圖20－5所示。圖20－5 畫(huà)圓弧，扇形，圓和橢圓