Visual-BASIC-6入門與應(yīng)用-電腦入門基本概念課件

CHAPTER16功能表與多表單的應(yīng)用

CHAPTER161學(xué)習(xí)目標(biāo)讓讀者了解1.功能表的作用2.功能表的製作方法3.功能表的操作方法4.多表單的應(yīng)用並能實(shí)際運(yùn)用功能表與多表單規(guī)劃設(shè)計(jì)更實(shí)用的程式學(xué)習(xí)目標(biāo)讓讀者了解216-1功能表的作用其中的「功能表編輯器(M)…Ctrl+E」，就可以用來製作像上圖有分類的功能表。16-1功能表的作用其中的「功能表編輯器(M)…3要執(zhí)行功能表中的某項(xiàng)功能時(shí)，除了將滑鼠指標(biāo)移到該位置，再按一下滑鼠左鍵外，也可以用鍵盤按鍵；其中(M)代表直接按鍵盤上的M鍵，Ctrl+E代表直接按組合鍵，都可以執(zhí)行該項(xiàng)功能。

右邊有符號(hào)的，

表示還有下一層

子功能供你選用

，如將滑鼠指標(biāo)

移到「發(fā)行」項(xiàng)

，就會(huì)出現(xiàn)其子

功能表。要執(zhí)行功能表中的某項(xiàng)功能時(shí)，除了將滑鼠指標(biāo)移到該位置4

16-2製作功能表要製作功能表，必須使用功能表編輯器，執(zhí)行【工具/功能表編輯器】指令，便可出現(xiàn)其方塊。顯示設(shè)定結(jié)果的清單方塊

16-2製作功能表顯示設(shè)定結(jié)果5【說明】1.標(biāo)題(P)：輸入功能表列或功能表中選項(xiàng)的標(biāo)題文字。如要顯示「功能(F)」，則要在此輸入「功能(&F)」；要顯示「今天日期(D)」，則要輸入「今天日期(&D)」；要出現(xiàn)分隔線，則要輸入「-」（一個(gè)減號(hào)）。2.名稱(M)：輸入功能項(xiàng)目的控制項(xiàng)名稱（相當(dāng)於命令鈕名稱，即Name屬性）。如配合「今天日期(D)」功能，在此輸入mnuDate，則在程式碼中啟動(dòng)此功能的程序名稱為mnuDate_Click。3.快速鍵(S)：拉下清單方塊後，可選擇適用快速鍵（組合鍵）。如配合「今天日期(D)」功能，可在此選用「Ctrl+D」?！菊f明】6捲動(dòng)捲軸，還有三鍵的組合4.核取式(C)：設(shè)定此項(xiàng)功能前面是否要出現(xiàn)打勾符號(hào)ˇ，預(yù)設(shè)值為False（不打勾）。程式碼中可以使用Checked屬性值為True或False，來偵測(cè)該選項(xiàng)功能前面有否ˇ符號(hào)。捲動(dòng)捲軸，還有三鍵的組合4.核取式(C)：設(shè)定此項(xiàng)功能前面是75.啟用(E)：設(shè)定此項(xiàng)功能是否有效用，預(yù)設(shè)值為True有效），此項(xiàng)功能會(huì)以清晰字顯示。如果未勾選則為「無效」（False），會(huì)以模糊字顯示。程式碼中可以使用Enabled屬性來偵測(cè)它為True或False。6.顯示(V)：設(shè)定要顯示或隱藏此項(xiàng)功能，預(yù)設(shè)值為True（顯現(xiàn)），如果未勾選（False），則會(huì)「隱藏」。程式碼中可以使用Visible屬性來偵測(cè)它為True或False。7.

：完成一項(xiàng)控制功能的設(shè)定後，按此鈕，設(shè)定的結(jié)果就會(huì)出現(xiàn)在下半部的清單方塊中，讓你再設(shè)定下一項(xiàng)控制功能。8.

：按此鈕，會(huì)在清單方塊的反白列上插入一空白列（原有項(xiàng)目往下順移），供你設(shè)定一項(xiàng)控制功能。5.啟用(E)：設(shè)定此項(xiàng)功能是否有效用，預(yù)設(shè)值為True有效8

9.：按此鈕，會(huì)將反白列的項(xiàng)目刪除掉。10.

：反白列位置調(diào)整鍵：將反白列的項(xiàng)目上移一列（與上一列調(diào)換）：將反白列的項(xiàng)目下移一列（與下一列調(diào)換）：將反白列的項(xiàng)目向右降低一層（變?yōu)樯弦涣械?/p>

子功能項(xiàng)目）：將反白列的項(xiàng)目向左上升一層（變?yōu)榕c原來的

上一層功能同級(jí)）9.：按此鈕，會(huì)將反白列的項(xiàng)目刪除916-3功能表的應(yīng)用實(shí)例

【實(shí)例一】設(shè)計(jì)如下面有兩項(xiàng)主功能的功能表：

開啟功能表編輯器後，輸入如下：

16-3功能表的應(yīng)用實(shí)例102.按鈕後，反白列移到下一個(gè)空白列，再輸入及選用控制鍵如下：2.按鈕後，反白列移到下一個(gè)空白列，再輸入及113.按鈕後，再輸入及選用控制鍵如下：

4.按鈕後，再在「標(biāo)題(P)」的方塊輸入一個(gè)減號(hào)如下：

3.按鈕後，再輸入及選用控制鍵如下：

4.按125.按鈕後，再輸入及選用控制鍵如下：

5.按鈕後，再輸入及選用控制鍵如下：

136.再依序設(shè)定下面的功能項(xiàng)目：

關(guān)於(&A)mnuAbout

作者(&U)mnuAuthorCtrl+A

本程式(&P)mnuProgramCtrl+P

6.再依序設(shè)定下面的功能項(xiàng)目：

關(guān)於(&A)mn147.點(diǎn)選「今天日期(&D)」項(xiàng)目，呈現(xiàn)反白列，再按鈕，將它往右下降一層。再依序處理其他要往右下降一層的各項(xiàng)目，如下：

7.點(diǎn)選「今天日期(&D)」項(xiàng)目，呈現(xiàn)反白列，再按鈕，將158.

完成全部設(shè)定後，按鈕，就會(huì)關(guān)閉功能表編輯器，並在表單上出現(xiàn)主功能表項(xiàng)目「功能(F)」與「關(guān)於(A)」，如下：

8.

完成全部設(shè)定後，按鈕，就會(huì)關(guān)閉功能表16

【實(shí)例二】繼續(xù)上一實(shí)例，設(shè)計(jì)表單與程式碼。

1.在表單上再增加一個(gè)顯示資料的標(biāo)籤lblDisplay，如下：（BorderStyle的屬性值為「1-單線固定」，F(xiàn)ont為「標(biāo)楷體」「12點(diǎn)」，

WordWrap為「True」）

【實(shí)例二】繼續(xù)上一實(shí)例，設(shè)計(jì)表單與程式碼。

1.在表單172.在程式碼視窗拉下「物件」清單方塊，會(huì)出現(xiàn)已設(shè)定的各物件。

Visual-BASIC-6入門與應(yīng)用-電腦入門基本概念課件183.編輯各項(xiàng)功能對(duì)應(yīng)的程式碼，如下：

PrivateSubmnuDate_Click()lblDisplay="今天日期是"&DateEndSubPrivateSubmnuTime_Click()lblDisplay="現(xiàn)在時(shí)間是"&TimeEndSubPrivateSubmnuEnd_Click()EndEndSub

3.編輯各項(xiàng)功能對(duì)應(yīng)的程式碼，如下：19PrivateSubmnuAuthor_Click()lblDisplay="許慶芳先生原任榮民工程公司資訊處處長(zhǎng)，"lblDisplay=lblDisplay+_

“目前轉(zhuǎn)至北臺(tái)科學(xué)技術(shù)學(xué)院資訊管理系任教"EndSubPrivateSubmnuProgram_Click()lblDisplay="此程式是設(shè)定功能表與設(shè)計(jì)“+_

"各項(xiàng)對(duì)應(yīng)功能的程式碼之範(fàn)例"EndSub

PrivateSubmnuAuthor_Click()20【執(zhí)行情況】執(zhí)行【功能(F)/結(jié)束(X)】，會(huì)結(jié)束程式執(zhí)行。執(zhí)行其它不同功能項(xiàng)目，輸出的畫面分別如下：【執(zhí)行情況】執(zhí)行【功能(F)/結(jié)束(X)】，會(huì)結(jié)束程式執(zhí)行。2116-4多個(gè)表單的應(yīng)用

剛開啟VB時(shí)，系統(tǒng)會(huì)自動(dòng)出現(xiàn)一個(gè)表單，其預(yù)設(shè)的名稱為Form1，事後可以執(zhí)行【專案(P)/新增表單(F)】指令來增加可用的表單，預(yù)設(shè)的名稱依序?yàn)镕orm2、Form3…。使用者可以在屬性視窗的Name屬性欄修改表單名稱，通常以frm為字首。16-4多個(gè)表單的應(yīng)用2216-4.1新增表單1.執(zhí)行【專案(P)/新增表單(F)】指令，會(huì)出現(xiàn)下面的方塊：16-4.1新增表單232.按鈕，就會(huì)增加一個(gè)表單Form2，如下：【說明】再重覆步驟1與2，又會(huì)增加表單，依序?yàn)镕orm3、Form4…。

2.按鈕，就會(huì)增加一個(gè)表單Form2，如下：2416-4.2設(shè)定啟動(dòng)表單VB系統(tǒng)預(yù)設(shè)Form1為程式執(zhí)行時(shí)，要啟動(dòng)的表單。在使用多表單時(shí)，如果要將Form1以外的表單設(shè)定為啟動(dòng)表單，其步驟如下：1.執(zhí)行【專案(P)/Project1屬性(E)】指令。16-4.2設(shè)定啟動(dòng)表單252.在出現(xiàn)的「專案屬性」視窗中的「啟動(dòng)物件」方塊，點(diǎn)選要設(shè)定的表單（如Form2）後，再按「確定」鈕，如下：

2.在出現(xiàn)的「專案屬性」視窗中的「啟動(dòng)物件」方塊，點(diǎn)選要設(shè)定2616-4.3常用的方法與應(yīng)用實(shí)例設(shè)定多個(gè)表單及顯示與隱藏表單的方法，有下列幾個(gè)：方法常用格式說明

Load表單名稱.Load將表單載入主記憶體Unload表單名稱.Unload將表單自主記憶體中釋放掉Show表單名稱.Show顯示表單（會(huì)同時(shí)將表單載入主記憶體）Hide表單名稱.Hide隱藏表單（不會(huì)顯示出來），但仍佔(zhàn)主記憶體空間。事後再Show或Load該表單時(shí)，不會(huì)載入該表單（即不會(huì)驅(qū)動(dòng)Form_Load事件）16-4.3常用的方法與應(yīng)用實(shí)例方法常用格式說明27

通常在程式碼中的用法是：1.利用Show方法，就可以將表單載入及顯示。2.暫時(shí)不用表單時(shí)，利用Hide方法將表單隱藏，等到要用到時(shí)再Show出來。3.確定不會(huì)再使用表單時(shí)，可以用Unload方法將它釋放掉。

通常在程式碼中的用法是：28【例1】利用Form1輸入資料，F(xiàn)orm2顯示結(jié)果?！纠?】利用Form1輸入資料，F(xiàn)orm2顯示結(jié)果。29【程式碼】1.在專案總管的Project1下點(diǎn)選Form1，再在其

程式碼視窗編輯如下：

【說明】這是Form1的Command1被Click時(shí)，要執(zhí)行的程序，因此第3列的Form1.Text1也可以減省為Text1?！境淌酱a】【說明】這是Form1的Command1被Clic30

2.在專案總管的Project1下點(diǎn)選Form2，再在其程式碼視窗編輯如下：

31【執(zhí)行情況】【執(zhí)行情況】3217-5資料庫與資料庫管理員

資料庫（DataBase）是儲(chǔ)存資料的倉庫，由一群相關(guān)的檔案組合而成的，而且由一套專業(yè)的軟體來管理。管理資料庫的軟體稱為資料庫管理系統(tǒng)（DataBaseManagementSystem，簡(jiǎn)稱DBMS）。目前比較方便有效與流行的資料庫管理系統(tǒng)，屬於關(guān)連型資料庫（RelationalDataBase）如微軟公司的Access與SQLServer、IBM公司的DB2、Oracle公司的Oracle及Sybase公司的Sybase等。Visual-BASIC-6入門與應(yīng)用-電腦入門基本概念課件3317-5-1資料庫與資料表一個(gè)Access資料庫（DataBase）是由一個(gè)或多個(gè)資料表（Table）所組成。而每個(gè)資料表又由一些相關(guān)的資料欄（DataField）組成，每個(gè)資料欄都配合要存放的資料性質(zhì)與大小，而有其資料型態(tài)（DataType），如下：

17-5-1資料庫與資料表3417-5-2建立資料庫1.執(zhí)行【增益集/資料庫管理員】指令。

17-5-2建立資料庫352.出現(xiàn)「資料庫管理員」視窗，再執(zhí)行【檔案/新增/MicrosoftAccess/Version7.0MDB】指令。2.出現(xiàn)「資料庫管理員」視窗，再執(zhí)行【檔案/新增/Micr363.出現(xiàn)下圖的對(duì)話方塊，再在「儲(chǔ)存於」方塊選?。ɑ蛐略觯┮①Y料庫的資料夾，及在「檔案名稱」方塊輸入要建立的資料庫名稱，如下：3.出現(xiàn)下圖的對(duì)話方塊，再在「儲(chǔ)存於」方塊選?。ɑ蛐略觯┮?74.按鈕，就在指定的資料夾內(nèi)建立了student.mdb，出現(xiàn)如下的視窗：

5.如果不要馬上建立資料表，可執(zhí)行【檔案/離開】指令，關(guān)閉上面的視窗。如果要馬上建立資料表，可直接跳到下一節(jié)的步驟4。

4.按鈕，就在指定的資料夾內(nèi)建立了5.如果不3817-5-3建立資料表

假設(shè)要利用VB，在上一節(jié)建立的student.mdb資料庫中建立資料表basic，其步驟如下：執(zhí)行【增益集/資料庫管理員】指令，出現(xiàn)「資料庫管理員」視窗，再執(zhí)行【檔案/開啟資料庫/MicrosoftAccess】指令。17-5-3建立資料表392.開啟如下的對(duì)話方塊，選取資料庫所在的資料夾與資料庫名稱後，再按鈕。

2.開啟如下的對(duì)話方塊，選取資料庫所在的資料夾與資料庫名稱403.開啟如下的對(duì)話方塊，在「資料庫視窗」內(nèi)按滑鼠右鍵，再執(zhí)行快顯功能表中的「新增資料表」指令。3.開啟如下的對(duì)話方塊，在「資料庫視窗」內(nèi)按滑鼠右鍵，再執(zhí)414.出現(xiàn)如下的「資料表結(jié)構(gòu)」對(duì)話方塊，就可建立資料表。假如要建立資料表basic，可在「資料表名稱」方塊輸入basic後，再按鈕。

4.出現(xiàn)如下的「資料表結(jié)構(gòu)」對(duì)話方塊，就可建立資料表。假如425.出現(xiàn)如下的「新增資料欄」對(duì)話方塊，再輸入第一個(gè)資料欄的名稱、型態(tài)與大小，然後按

「確定」鈕。5.出現(xiàn)如下的「新增資料欄」對(duì)話方塊，再輸入第一個(gè)資料欄的43【說明】拉下「型態(tài)」的列示方塊，便可選用所要的資料型態(tài)，如下：【說明】拉下「型態(tài)」的列示方塊，便可選用所要的資料型態(tài)，如下446.再如上一步驟，依序輸入如下表的第2、3、4個(gè)資料欄的名稱、型態(tài)與大?。?/p>

項(xiàng)目資料欄名稱資料型態(tài)大小資料欄1：學(xué)號(hào)numberText5Bytes資料欄2：姓名nameText8Bytes資料欄3：地址addressText30Bytes資料欄4：電話號(hào)碼telText8Bytes6.再如上一步驟，依序輸入如下表的第2、3項(xiàng)目資料欄45最後按鈕，就關(guān)閉新增資料欄方塊，回到「資料表結(jié)構(gòu)」方塊，如下：

最後按鈕，就關(guān)閉新增資料欄方塊，回到「467.按鈕，就完成資料表basic的建立，再回到「資料庫管理員」視窗。7.按鈕，就完成資料表basic的建478.重覆步驟3~7，再新增資料表score及其內(nèi)的資料欄如下：

項(xiàng)目資料欄名稱資料型態(tài)大小資料欄1：學(xué)號(hào)numberText5Bytes資料欄2：國文成績(jī)chineseInteger2Bytes資料欄3：英文成績(jī)englishInteger2Bytes8.重覆步驟3~7，再新增資料表score及其內(nèi)的資料欄如下48完成後，「資料庫視窗」的內(nèi)容如下：

完成後，「資料庫視窗」的內(nèi)容如下：

4917-5-4在資料表輸入資料記錄建立資料表後，就可以輸入資料記錄（DataRecord）的內(nèi)容，其方法有二：一、直接利用資料管理員來輸入資料記錄。

（不必設(shè)計(jì)程式）二、另外設(shè)計(jì)程式，用來輸入資料記錄的內(nèi)容。本節(jié)先介紹第一種方法，利用資料管理員輸入basic資料表的資料記錄（如下表），其步驟如下：

17-5-4在資料表輸入資料記錄50Number(學(xué)號(hào))Name(姓名)Address(地址)Tel(電話號(hào)碼)92001許一臺(tái)北市北投區(qū)一德街100號(hào)9292000192002陳二永和市二水路78號(hào)2F9292000292003張三三重市三重路167號(hào)5F9292000392004李四中和市四平街67號(hào)3F9292000492005王五臺(tái)北市五常街60號(hào)2F92920005NumberNameAddressTel92001許一臺(tái)北市511.在「資料庫視窗」的資料表名稱basic上，連按兩下滑鼠左鍵，開啟其對(duì)話方塊，如下：1.在「資料庫視窗」的資料表名稱basic上，連按兩下滑鼠522.按鈕後，就出現(xiàn)如下的方塊，輸入第一筆記錄的各項(xiàng)資料後，再按鈕。3.仿照上一步驟，再依序輸入第2~5筆記錄的資料，完成後再按鈕，結(jié)束資料記錄的輸入工作。2.按鈕後，就出現(xiàn)如下的方塊，輸入第一筆記錄53Visual-BASIC-6入門與應(yīng)用-電腦入門基本概念課件5417-6ADO與資料庫ADO是ActiveDataObjects的縮寫，是Microsoft公司制定的資料庫連結(jié)架構(gòu)，作為應(yīng)用程式與資料來源之間的溝通橋樑，可提供應(yīng)用程式存取資料庫中的資料之介面，其情況如下圖：17-6ADO與資料庫5517-6-1資料控制項(xiàng)（DataControl）VB的工具箱中有個(gè)資料（Data）控制項(xiàng)，可用來連結(jié)資料庫中的資料表，以便於顯示或修改其中的資料。建立資料控制項(xiàng)的步驟如下：1.將滑鼠指標(biāo)移到工具箱的「資料控制項(xiàng)」工具上，再按一下左鍵。2.將指標(biāo)移到表單上

（變成十字型）。3.在要設(shè)定的資料控制

項(xiàng)之開始位置，按住滑

鼠左鍵拖曳，達(dá)到適當(dāng)?shù)拇笮♂?，再放開左鍵。17-6-1資料控制項(xiàng)（DataControl）56【說明】一個(gè)表單上可以安置多個(gè)資料控制項(xiàng)，其預(yù)設(shè)的物件名稱與標(biāo)題都依序?yàn)镈ata1、Data2、Data3、…。也可以在屬性視窗中的Name屬性更改物件名稱（標(biāo)準(zhǔn)字首為ado），及在Caption屬性更改標(biāo)題，如更改標(biāo)題為「基本資料檔」，如下：【說明】一個(gè)表單上可以安置多個(gè)資料控制項(xiàng)，其預(yù)設(shè)的物件名稱與57資料控制項(xiàng)常用的屬性屬性說明預(yù)設(shè)值Caption(標(biāo)題)資料控制項(xiàng)的標(biāo)題，是預(yù)設(shè)的屬性Data1DatabaseName(資料庫名稱)設(shè)定資料控制項(xiàng)所連結(jié)的資料庫之路徑與名稱

RecordSource(記錄來源)設(shè)定資料控制項(xiàng)所連結(jié)的資料表之名稱

ReadOnly(唯讀)設(shè)定資料表內(nèi)的資料是否不能修改：True-只能讀取，不能修改False-可以讀取，也可以修改FalseConnect(連接)設(shè)定要連結(jié)的資料庫種類(含版次)AccessExclusive(封閉)設(shè)定連結(jié)的資料庫是否不能被同時(shí)共用：True-不能被同時(shí)共用(只能有一個(gè)使用者)False-可有多個(gè)使用者同時(shí)共用False資料控制項(xiàng)常用的屬性屬性說明預(yù)設(shè)值Capti5817-6-2資料感知（DataAware）控制項(xiàng)與

資料表內(nèi)容的連結(jié)可以安排在表單中，具有資料連結(jié)功能的控制項(xiàng)，就稱為「資料感知（DataAware）控制項(xiàng)」，如文字方塊、標(biāo)籤、核取方塊、清單方塊、下拉式清單方塊、圖片方塊及影像…等都是。

17-6-2資料感知（DataAware）控制項(xiàng)與

59通常利用資料控制項(xiàng)連結(jié)資料庫時(shí)，要同時(shí)在表單中安排「資料感知控制項(xiàng)」，來顯示資料表中對(duì)應(yīng)記錄的資料欄之內(nèi)容。此時(shí)，要注意其DataSource與DataField兩個(gè)屬性的設(shè)定，如下：通常利用資料控制項(xiàng)連結(jié)資料庫時(shí)，要同時(shí)在表單中安排「資60

茲舉實(shí)例說明其步驟如下：在表單中安排控制項(xiàng)如下：（Text1~Text4就是資料感知控制項(xiàng)，Data1為資料控制項(xiàng)）

茲舉實(shí)例說明其步驟如下：61

2.選取資料控制項(xiàng)，然後在屬性視窗中點(diǎn)選DatabaseName視窗，再在屬性值欄按一下

鈕。

2.選取資料控制項(xiàng)，然後在屬性視窗中點(diǎn)選Database623.出現(xiàn)「資料庫名稱」對(duì)話方塊，再在「搜尋位置」方塊選取資料庫所在的資料夾db，及資料庫名稱清單中點(diǎn)選student，然後按「開啟」鈕，如下：3.出現(xiàn)「資料庫名稱」對(duì)話方塊，再在「搜尋位置」方塊選取資634.回到VB視窗後，在屬性視窗中點(diǎn)選RecordsetType屬性，再在屬性值欄按一下鈕，選取「0-資料表(Table)」，如下圖：4.回到VB視窗後，在屬性視窗中點(diǎn)選RecordsetTy645.在屬性視窗中點(diǎn)選RecordSource屬性，再在屬性值欄按一下鈕，選取「basic」。

5.在屬性視窗中點(diǎn)選RecordSource屬性，再在屬性656.在表單上選取Text1物件，然後在屬性視窗中點(diǎn)選DataSource屬性，再在屬性值欄按一下鈕，選取「Data1。

6.在表單上選取Text1物件，然後在屬性視窗中點(diǎn)選Dat667.在屬性視窗中點(diǎn)選DataField屬性，再在屬性值欄按一下鈕，選取「number」。7.在屬性視窗中點(diǎn)選DataField屬性，再在屬性值欄按678.仿照步驟6與7，依序選取Text2、Text3、Text4，並設(shè)定其DataSource屬性的屬性值均為「Data1」，及DataField屬性的屬性值依序?yàn)椤竛ame」、「address」、「tel」。8.仿照步驟6與7，依序選取Text2、Text3、Tex68【執(zhí)行實(shí)例】1.上述表單設(shè)計(jì)完成後（不必設(shè)計(jì)程式碼），開始執(zhí)行程式，就會(huì)在對(duì)應(yīng)的文字方塊顯示第一筆記錄的內(nèi)容，如下：【執(zhí)行實(shí)例】692.再按資料控制項(xiàng)的鈕，會(huì)顯示下一筆記錄的內(nèi)容；按鈕，會(huì)顯示上一筆記錄的內(nèi)容；按鈕，會(huì)顯示最後一筆記錄的內(nèi)容；按鈕，會(huì)顯示第一筆記錄的內(nèi)容。2.再按資料控制項(xiàng)的鈕，會(huì)顯示下一筆記錄的內(nèi)容；按7017-7資料控制項(xiàng)常用的方法使用一般資料檔或資料庫時(shí)，基本的功能要包括新增（Insert）、更新（Update）、修改（Replace）與刪除（Delete）。本節(jié)要介紹達(dá)成上述基本功能的「方法」，可直接存取資料庫，自資料表讀出資料，及將資料寫入資料表中。

17-7資料控制項(xiàng)常用的方法71一、新增資料記錄用法：資料控制項(xiàng)名稱.Recordset.AddNew功能：將記錄指標(biāo)移到資料庫的最後，並新增一筆空白記錄。說明：1.

使用此方法後，該記錄是空白的。要接著將資料放置到資料控制項(xiàng)中對(duì)應(yīng)的資料欄，然後利用Update方法，將資料寫入新增的記錄中。2.

要將資料放置到資料控制項(xiàng)中對(duì)應(yīng)的資料欄，就像針對(duì)一般的變數(shù)一樣，但是其格式為：

資料控制項(xiàng)名稱.Recordset("資料欄名稱")例如，要將文字方塊Text1的內(nèi)容放置到資料控制項(xiàng)Data1的資料欄number中，其用法如下：

Data1.Recordset("number")=Text1.Text

一、新增資料記錄72二、

編輯資料記錄用法：資料控制項(xiàng)名稱.Recordset.Edit功能：編輯（修改）目前記錄指標(biāo)所在的記錄之內(nèi)容。說明：使用此方法後，要接著將資料放置到資料控制項(xiàng)中對(duì)應(yīng)的資料欄，然後利用Update方法（如上一項(xiàng)的說明2），將資料寫入該筆記錄中。二、

編輯資料記錄73三、更新資料記錄用法：資料控制項(xiàng)名稱.Recordset.Update功能：將新增或修改的資料實(shí)際寫進(jìn)資料庫中的對(duì)應(yīng)記錄。說明：1.要執(zhí)行此方法，資料控制項(xiàng)的ReadOnly屬性必須設(shè)定為False。2.如果執(zhí)行此方法後，要取消更新功能（即回復(fù)更新前的狀況），可使用UpdateControls方法，其用法如下：

資料控制項(xiàng)名稱.Recordset.UpdateControls三、更新資料記錄74例1.新增記錄到學(xué)生基本資料【表單設(shè)計(jì)】例1.新增記錄到學(xué)生基本資料【表單設(shè)計(jì)】75Visual-BASIC-6入門與應(yīng)用-電腦入門基本概念課件76PrivateSubcmdAdd_Click()Data1.Recordset.AddNew'新增一筆空白記錄Data1.Recordset("number")=Left(Text1,5)'取左邊5個(gè)字元Data1.Recordset("name")=Text2Data1.Recordset("address")=Text3Data1.Recordset("tel")=Left(Text4,8)'取左邊8個(gè)字元Data1.Recordset.Update'將資料寫進(jìn)新增的記錄中MsgBox"已完成新增紀(jì)錄",vbOKOnly,"新增紀(jì)錄"Text1="":Text2="":Text3="":Text4=""_

'將文字方塊清成空白Text1.SetFocus'設(shè)定Text1為輸入焦點(diǎn),準(zhǔn)備再輸入下一筆資料EndSubPrivateSubcmdEnd_Click()EndEndSub【程式碼】PrivateSubcmdAdd_Click()【程式碼77【執(zhí)行情況】假如要在基本資料的最後新增如下的一筆記錄：在各文字方塊輸入要新增的資料後，按鈕，就會(huì)在資料表的最後新增一筆記錄，並出現(xiàn)成功的訊息?！緢?zhí)行情況】假如要在基本資料的最後新增如下的一筆記錄：782.按「確定」鈕後，會(huì)將各文字方塊清成空白，並將插入點(diǎn)設(shè)定在Text1（如表單設(shè)計(jì)的畫面）。可重覆上一步驟，再接著輸入下一筆資料，最後「結(jié)束」按鈕結(jié)束執(zhí)行此程式。2.按「確定」鈕後，會(huì)將各文字方塊清成空白，並將插入點(diǎn)設(shè)定79四、

刪除資料記錄用法：資料控制項(xiàng)名稱.Recordset.Delete功能：直接刪除資料表中目前記錄指標(biāo)所在的一筆記錄。說明：使用此方法，會(huì)直接刪除掉，不必再用Update方法來更新。（實(shí)例參看例8）四、

刪除資料記錄80五、查詢資料記錄用法：資料控制項(xiàng)名稱.Recordset.Find方法"條件式"功能：1.Find方法」包括下列四種：

FindFirst找出符合條件的第一筆記錄

FindPrevious找出符合條件的前一筆記錄

FindNext找出符合條件的下一筆記錄

FindLast找出符合條件的最後一筆記錄2.「條件式」一定要加前後的雙引號(hào)，其中用到字串常數(shù)的前後要加單引號(hào)。3.找到時(shí)，記錄指標(biāo)會(huì)停在該筆記錄上。如果找不到，Nomatch屬性會(huì)傳回True值。4.如果資料表中有多筆記錄符合條件，可利用迴圈來處理。五、查詢資料記錄81【例2】在資料控制項(xiàng)Data1所連結(jié)的資料表中，找尋學(xué)號(hào)為92003的第一筆記錄，其用法如下：

Data1.Recordset.FindFirst"number='92003'"如果找不到該記錄，Data1.Recordset.Nomatch會(huì)傳回True值，所以可接著做如下的判斷與動(dòng)作：IfData1.Recordset.NomatchthenMsgBox"找不到資料"ElseMsgBox"找到資料了"EndIf【例2】在資料控制項(xiàng)Data1所連結(jié)的資料表中，找尋學(xué)號(hào)為982【例3】如果條件式中的欄位值用變數(shù)來表示，可使用如下：

【例3】如果條件式中的欄位值用變數(shù)來表示，可使用如下：83六、移動(dòng)記錄指標(biāo)用法：資料控制項(xiàng)名稱.Recordset.Move方法功能：「Move方法」包括下列四種：

MoveFirst將指標(biāo)移到第一筆記錄

MovePrevious將指標(biāo)移到前一筆記錄

MoveNext將指標(biāo)移到下一筆記錄

MoveLast將指標(biāo)移到最後一筆記錄【說明】1.資料集（Recordset）由資料記錄（Record）組成，最前面有個(gè)「檔案開始」標(biāo)記（BOF，BeginOfFile），最後面有個(gè)「檔案結(jié)束」標(biāo)記（EOF，EndOfFile），如有n筆記錄的情況如下圖：

六、移動(dòng)記錄指標(biāo)842.要修改或刪除某一筆記錄的內(nèi)容時(shí)，可先利用Find或Move方法，將記錄指標(biāo)移到該筆記錄的位置。3.如果記錄指標(biāo)已經(jīng)在EOF，就不能再往後移動(dòng)（不能用MoveNext）。同樣，如果記錄指標(biāo)已經(jīng)在BOF，就不能再往前移動(dòng)（不能用MovePrevious）。4.BOF與EOF也是Recordset的屬性，其屬性值為True或False，組合情況如下：2.要修改或刪除某一筆記錄的內(nèi)容時(shí)，可先利用Find或M85【例4】假如記錄指標(biāo)不在BOF，就往前移動(dòng)一筆記錄。IfNotData1.Recordset.BOFThen_

Data1.Recordset.MovePrevious【例5】假如記錄指標(biāo)不在EOF，就往後移動(dòng)一筆記錄。

IfNotData1.Recordset.EOFThen_

Data1.Recordset.MoveNext【例6】資料集中沒有資料IfData1.Recordset.BOFAnd_

Data1.Recordset.EOFThenLabel5="空資料集"【例4】假如記錄指標(biāo)不在BOF，就往前移動(dòng)一筆記錄。86七、取得資料集的總筆數(shù)與總資料欄數(shù)用法與功能：