VisualBASIC6入门与应用电脑入门基本概念课件

CHAPTER 16功能表與多表單的應用CHAPTER161學習目標學習目標讓讀者了解1.功能表的作用2.功能表的製作方法3.功能表的操作方法4.多表單的應用並能實際運用功能表與多表單規劃設計更實用的程式學習目標讓讀者了解216-1功能表的作用其中的功能表編輯器(M)Ctrl+E，就可以用來製作像上圖有分類的功能表。16-1功能表的作用其中的功能表編輯器(M)3要執行功能表中的某項功能時，除了將滑鼠指標移到該位置，再按一下滑鼠左鍵外，也可以用鍵盤按鍵；其中(M)代表直接按鍵盤上的M鍵，Ctrl+E代表直接按組合鍵，都可以執行該項功能。右邊有符號的，表示還有下一層子功能供你選用，如將滑鼠指標移到發行項，就會出現其子功能表。要執行功能表中的某項功能時，除了將滑鼠指標移到該位置416-2製作功能表要製作功能表，必須使用功能表編輯器，執行【工具/功能表編輯器】指令，便可出現其方塊。顯示設定結果的清單方塊16-2製作功能表顯示設定結果5【說明說明】1.1.標題標題(P P)：輸入功能表列或功能表中選項的輸入功能表列或功能表中選項的標題文字標題文字。如要顯示如要顯示功能功能(F F)，則要在此輸入則要在此輸入功能功能(&F)(&F)；要顯示要顯示今天日期今天日期(D D)，則要輸入則要輸入今天日期今天日期(&D)(&D)；要出現分隔線要出現分隔線，則要輸入則要輸入-（一個減號一個減號）。2.2.名稱名稱(MM)：輸入功能項目的輸入功能項目的控制項名稱控制項名稱（相當於相當於命令命令鈕鈕名稱名稱，即即NameName屬性屬性）。）。如配合如配合今天日期今天日期(D D)功能功能，在此輸入在此輸入mnuDatemnuDate，則在程式碼中啟動此功則在程式碼中啟動此功能的程序名稱為能的程序名稱為mnuDate_ClickmnuDate_Click。3.3.快速鍵快速鍵(S S)：拉下清單方塊後拉下清單方塊後，可選擇適用可選擇適用快速鍵快速鍵（組合鍵組合鍵）。）。如配合如配合今天日期今天日期(D D)功能功能，可在此可在此 選用選用Ctrl+DCtrl+D。【說明】6捲動捲軸，還有三鍵的組合4.核取式(C)：設定此項功能前面是否要出現打勾符號，預設值為False（不打勾）。程式碼中可以使用Checked屬性值為True或False，來偵測該選項功能前面有否符號。捲動捲軸，還有三鍵的組合4.核取式(C)：設定此項功能前面是75.5.啟用啟用(E E)：設定此項功能是否有效用設定此項功能是否有效用，預設值為預設值為TrueTrue有有效效），），此項功能會以清晰字顯示此項功能會以清晰字顯示。如果未勾選則為如果未勾選則為無效無效（FalseFalse），），會以模糊字顯示會以模糊字顯示。程式碼中可以程式碼中可以使用使用EnabledEnabled屬性來偵測它為屬性來偵測它為TrueTrue或或FalseFalse。6.6.顯示顯示(V V)：設定要顯示或隱藏此項功能設定要顯示或隱藏此項功能，預設值為預設值為TrueTrue（顯現顯現），），如果未勾選如果未勾選（FalseFalse），），則會則會隱藏隱藏。程式碼中可以使用程式碼中可以使用VisibleVisible屬性來偵測它為屬性來偵測它為TrueTrue或或FalseFalse。7.7.：完成一項控制功能的設定後完成一項控制功能的設定後，按此鈕按此鈕，設定的結設定的結果就會出現在下半部的清單方塊中果就會出現在下半部的清單方塊中，讓你再設定下一讓你再設定下一項控制功能項控制功能。8.8.：按此鈕按此鈕，會在清單方塊的反白列上插入一空白列會在清單方塊的反白列上插入一空白列（原有項目往下順移原有項目往下順移），），供你設定一項控制功能供你設定一項控制功能。5.啟用(E)：設定此項功能是否有效用，預設值為True有效89.9.：按此鈕按此鈕，會將反白列的項目刪除掉會將反白列的項目刪除掉。10.10.：反白列位置調整鍵反白列位置調整鍵：將反白列的項目上移一列將反白列的項目上移一列（與上一列調換與上一列調換）：將反白列的項目下移一列將反白列的項目下移一列（與下一列調換與下一列調換）：將反白列的項目向右降低一層將反白列的項目向右降低一層（變為上一列的變為上一列的子功能項目子功能項目）：將反白列的項目向左上升一層將反白列的項目向左上升一層（變為與原來的變為與原來的上一層功能同級上一層功能同級）9.：按此鈕，會將反白列的項目刪除916-3功能表的應用實例【實例一實例一】設計如下面有兩項主功能的功能表設計如下面有兩項主功能的功能表：1.1.開啟功能表編輯器後開啟功能表編輯器後，輸入如下輸入如下：16-3功能表的應用實例102.2.按按鈕後鈕後，反白列移到下一個空白列反白列移到下一個空白列，再輸入及再輸入及選用控制鍵如下選用控制鍵如下：2.按鈕後，反白列移到下一個空白列，再輸入及113.3.按按鈕後鈕後，再輸入及選用控制鍵如下再輸入及選用控制鍵如下：4.按鈕後，再在標題(P)的方塊輸入一個減號如下：3.按鈕後，再輸入及選用控制鍵如下：4.按125.5.按按鈕後鈕後，再輸入及選用控制鍵如下再輸入及選用控制鍵如下：5.按鈕後，再輸入及選用控制鍵如下：136.6.再依序設定下面的功能項目再依序設定下面的功能項目：關於關於(&A)mnuAbout(&A)mnuAbout 作者作者(&U)mnuAuthorCtrl+A(&U)mnuAuthorCtrl+A 本程式本程式(&P)mnuProgramCtrl+P(&P)mnuProgramCtrl+P6.再依序設定下面的功能項目：關於(&A)mn147.7.點選點選今天日期今天日期(&D)(&D)項目項目，呈現反白列呈現反白列，再按再按 鈕鈕，將它往右下降一層將它往右下降一層。再依序處理其他要往右下降一層再依序處理其他要往右下降一層的各項目的各項目，如下如下：7.點選今天日期(&D)項目，呈現反白列，再按鈕，將158.完成全部設定後完成全部設定後，按按鈕鈕，就會關閉功能表編輯器就會關閉功能表編輯器，並在表單上出現主功能表項目並在表單上出現主功能表項目功能功能(F F)與與關於關於(A A)，如下如下：8.完成全部設定後，按鈕，就會關閉功能表16【實例二】繼續上一實例，設計表單與程式碼。1.在表單上再增加一個顯示資料的標籤lblDisplay，如下：（BorderStyle的屬性值為1-單線固定，Font為標楷體12點，WordWrap為True）【實例二】繼續上一實例，設計表單與程式碼。1.在表單172.2.在程式碼視窗拉下在程式碼視窗拉下物件物件清單方塊清單方塊，會出會出 現已設定的各物件現已設定的各物件。VisualBASIC6入门与应用电脑入门基本概念课件183.編輯各項功能對應的程式碼，如下：PrivateSubmnuDate_Click()PrivateSubmnuDate_Click()lblDisplay=lblDisplay=今天日期是今天日期是&Date&DateEndSubEndSubPrivateSubmnuTime_Click()PrivateSubmnuTime_Click()lblDisplay=lblDisplay=現在時間是現在時間是&Time&TimeEndSubEndSubPrivateSubmnuEnd_Click()PrivateSubmnuEnd_Click()EndEndEndSubEndSub 3.編輯各項功能對應的程式碼，如下：19PrivateSubmnuAuthor_Click()PrivateSubmnuAuthor_Click()lblDisplay=lblDisplay=許慶芳先生原任榮民工程公司資訊處處長許慶芳先生原任榮民工程公司資訊處處長，lblDisplay=lblDisplay+_lblDisplay=lblDisplay+_“目前轉至北台科學技術學院資訊管理系任教目前轉至北台科學技術學院資訊管理系任教 EndSubEndSubPrivateSubmnuProgram_Click()PrivateSubmnuProgram_Click()lblDisplay=lblDisplay=此程式是設定功能表與設計此程式是設定功能表與設計“+_“+_各項對應功能的程式碼之範例各項對應功能的程式碼之範例 EndSubEndSub PrivateSubmnuAuthor_Click()20【執行情況執行情況】執行執行【功能功能(F F)/)/結束結束(X X)】，】，會結束程式執會結束程式執行行。執行其它不同功能項目執行其它不同功能項目，輸出的畫面分別如下輸出的畫面分別如下：【執行情況】執行【功能(F)/結束(X)】，會結束程式執行。2116-4多個表單的應用剛開啟VB時，系統會自動出現一個表單，其預設的名稱為Form1，事後可以執行【專案(P)/新增表單(F)】指令來增加可用的表單，預設的名稱依序為Form2、Form3。使用者可以在屬性視窗的Name屬性欄修改表單名稱，通常以frm為字首。16-4多個表單的應用2216-4.1新增表單1.1.執行執行【專案專案(P P)/)/新增表單新增表單(F F)】指令指令，會出現下面會出現下面的方塊的方塊：16-4.1新增表單232.2.按按鈕鈕，就會增加一個表單就會增加一個表單Form2Form2，如下如下：【說明】再重覆步驟1與2，又會增加表單，依序為Form3、Form4。2.按鈕，就會增加一個表單Form2，如下：2416-4.2設定啟動表單VB系統預設Form1為程式執行時，要啟動的表單。在使用多表單時，如果要將Form1以外的表單設定為啟動表單，其步驟如下：1.執行【專案(P)/Project1屬性(E)】指令。16-4.2設定啟動表單252.在出現的專案屬性視窗中的啟動物件方塊，點選要設定的表單（如Form2）後，再按確定鈕，如下：2.在出現的專案屬性視窗中的啟動物件方塊，點選要設定2616-4.316-4.3常用的方法與應用實例常用的方法與應用實例設定多個表單及顯示與隱藏表單的方法設定多個表單及顯示與隱藏表單的方法，有下列幾個有下列幾個：方法常用格式說明Load表單名稱.Load將表單載入主記憶體Unload表單名稱.Unload將表單自主記憶體中釋放掉Show表單名稱.Show顯示表單（會同時將表單載入主記憶體）Hide表單名稱.Hide隱藏表單（不會顯示出來），但仍佔主記憶體空間。事後再Show或Load該表單時，不會載入該表單（即不會驅動Form_Load事件）16-4.3常用的方法與應用實例方法常用格式說明27 通常在程式碼中的用法是：1.1.利用Show方法，就可以將表單載入及顯示。2.暫時不用表單時，利用Hide方法將表單隱藏，等到要用到時再Show出來。3.確定不會再使用表單時，可以用Unload方法將它釋放掉。通常在程式碼中的用法是：28【例例1 1】利用利用Form1Form1輸入資料輸入資料，Form2Form2顯示結果顯示結果。【例1】利用Form1輸入資料，Form2顯示結果。29【程式碼程式碼】1.1.在在專案總管專案總管的的Project1Project1下點選下點選Form1Form1，再在其再在其 程式碼視窗程式碼視窗編輯如下編輯如下：【說明】這是Form1的Command1被Click時，要執行的程序，因此第3列的Form1.Text1也可以減省為Text1。【程式碼】【說明】這是Form1的Command1被Clic30 2.2.在專案總管的在專案總管的Project1Project1下點選下點選Form2Form2，再在其程式碼再在其程式碼視窗編輯如下視窗編輯如下：31【執行情況】【執行情況】3217-517-5資料庫與資料庫管理員資料庫與資料庫管理員資料庫資料庫（DataBaseDataBase）是儲存資料的倉庫是儲存資料的倉庫，由一群由一群相關的檔案組合而成的相關的檔案組合而成的，而且由一套專業而且由一套專業 的軟體來管理的軟體來管理。管理資料庫的軟體稱為管理資料庫的軟體稱為資料庫管理系統資料庫管理系統（DataDataBaseManagementSystemBaseManagementSystem，簡稱簡稱DBMSDBMS）。）。目前目前比較方便有效與流行的資料庫管理系統比較方便有效與流行的資料庫管理系統，屬於關屬於關連型資料庫連型資料庫（RelationalDataBaseRelationalDataBase）如微軟公司如微軟公司的的AccessAccess與與SQLServerSQLServer、IBMIBM公司的公司的DB2DB2、OracleOracle公司的公司的OracleOracle及及SybaseSybase公司的公司的SybaseSybase等等。VisualBASIC6入门与应用电脑入门基本概念课件3317-5-117-5-1資料庫與資料表資料庫與資料表一個一個AccessAccess資料庫資料庫（DataBaseDataBase）是由一個或多個是由一個或多個資料表資料表（TableTable）所組成所組成。而每個資料表又由一而每個資料表又由一些相關的些相關的資料欄資料欄（DataFieldDataField）組成組成，每個資料每個資料欄都配合要存放的資料性質與大小欄都配合要存放的資料性質與大小，而有其而有其資料資料型態型態（DataTypeDataType），），如下如下：17-5-1資料庫與資料表3417-5-217-5-2建立資料庫建立資料庫1.1.執行執行【增益集增益集/資料庫管理員資料庫管理員】指令指令。17-5-2建立資料庫352.出現出現資料庫管理員資料庫管理員視窗視窗，再執行再執行【檔案檔案/新增新增/MicrosoftAccess/Version7.0MDB/MicrosoftAccess/Version7.0MDB】指令指令。2.出現資料庫管理員視窗，再執行【檔案/新增/Micr363.3.出現下圖的對話方塊出現下圖的對話方塊，再在再在儲存於儲存於方塊選取方塊選取（或新增或新增）要建立資料庫的資料夾要建立資料庫的資料夾，及在及在檔案檔案名稱名稱方塊輸入要建立的資料庫名稱方塊輸入要建立的資料庫名稱，如下如下：3.出現下圖的對話方塊，再在儲存於方塊選取（或新增）要建374.按鈕，就在指定的資料夾內建立了student.mdb，出現如下的視窗：5.如果不要馬上建立資料表，可執行【檔案/離開】指令，關閉上面的視窗。如果要馬上建立資料表，可直接跳到下一節的步驟4。4.按鈕，就在指定的資料夾內建立了5.如果不3817-5-3建立資料表假設要利用假設要利用VBVB，在上一節建立的在上一節建立的student.mdbstudent.mdb資料資料庫中建立資料表庫中建立資料表basicbasic，其步驟如下其步驟如下：1.1.執行執行【增益集增益集/資料庫管理員資料庫管理員】指令指令，出現出現資料庫資料庫管理員管理員視窗視窗，再執行再執行【檔案檔案/開啟資料庫開啟資料庫/MicrosoftAccess/MicrosoftAccess】指令指令。17-5-3建立資料表392.2.開啟如下的對話方塊開啟如下的對話方塊，選取資料庫所在的資料選取資料庫所在的資料夾與資料庫名稱後夾與資料庫名稱後，再按再按鈕鈕。2.開啟如下的對話方塊，選取資料庫所在的資料夾與資料庫名稱403.3.開啟如下的對話方塊開啟如下的對話方塊，在在資料庫視窗資料庫視窗內按滑鼠右內按滑鼠右鍵鍵，再執行快顯功能表中的再執行快顯功能表中的新增資料表新增資料表指令指令。3.開啟如下的對話方塊，在資料庫視窗內按滑鼠右鍵，再執414.出現如下的資料表結構對話方塊，就可建立資料表。假如要建立資料表basic，可在資料表名稱方塊輸入basic後，再按鈕。4.出現如下的資料表結構對話方塊，就可建立資料表。假如425.出現如下的新增資料欄對話方塊，再輸入第一個資料欄的名稱、型態與大小，然後按確定鈕。5.出現如下的新增資料欄對話方塊，再輸入第一個資料欄的43【說明】拉下型態的列示方塊，便可選用所要的資料型態，如下：【說明】拉下型態的列示方塊，便可選用所要的資料型態，如下446.再如上一步驟，依序輸入如下表的第2、3、4個資料欄的名稱、型態與大小：項目資料欄名稱資料型態大小資料欄1：學號numberText5Bytes資料欄2：姓名nameText8Bytes資料欄3：地址addressText30Bytes資料欄4：電話號碼telText8Bytes6.再如上一步驟，依序輸入如下表的第2、3項目資料欄45最後按鈕，就關閉新增資料欄方塊，回到資料表結構方塊，如下：最後按鈕，就關閉新增資料欄方塊，回到467.按鈕，就完成資料表basic的建立，再回到資料庫管理員視窗。7.按鈕，就完成資料表basic的建478.重覆步驟37，再新增資料表score及其內的資料欄如下：項目資料欄名稱資料型態大小資料欄1：學號numberText5Bytes資料欄2：國文成績chineseInteger2Bytes資料欄3：英文成績englishInteger2Bytes8.重覆步驟37，再新增資料表score及其內的資料欄如下48完成後，資料庫視窗的內容如下：完成後，資料庫視窗的內容如下：4917-5-4在資料表輸入資料記錄建立建立資料表資料表後後，就可以輸入資料記錄就可以輸入資料記錄（DataRecordDataRecord）的的內容內容，其方法有二其方法有二：一一、直接利用資料管理員來輸入資料記錄直接利用資料管理員來輸入資料記錄。（不必設計程式不必設計程式）二二、另外設計程式另外設計程式，用來輸入資料記錄的內容用來輸入資料記錄的內容。本節先介紹第一種方法本節先介紹第一種方法，利用資料管理員輸入利用資料管理員輸入basicbasic資料資料表的資料記錄表的資料記錄（如下表如下表），），其步驟如下其步驟如下：17-5-4在資料表輸入資料記錄50Number(學號)Name(姓名)Address(地址)Tel(電話號碼)92001許一台北市北投區一德街100號9292000192002陳二永和市二水路78號2F9292000292003張三三重市三重路167號5F9292000392004李四中和市四平街67號3F9292000492005王五台北市五常街60號2F92920005NumberNameAddressTel92001許一台北市511.在資料庫視窗的資料表名稱basic上，連按兩下滑鼠左鍵，開啟其對話方塊，如下：1.在資料庫視窗的資料表名稱basic上，連按兩下滑鼠522.2.按按鈕後鈕後，就出現如下的方塊就出現如下的方塊，輸入第一筆記錄的輸入第一筆記錄的各項資料後各項資料後，再按再按鈕鈕。3.仿照上一步驟，再依序輸入第25筆記錄的資料，完成後再按鈕，結束資料記錄的輸入工作。2.按鈕後，就出現如下的方塊，輸入第一筆記錄53VisualBASIC6入门与应用电脑入门基本概念课件5417-6ADO與資料庫ADO是ActiveDataObjects的縮寫，是Microsoft公司制定的資料庫連結架構，作為應用程式與資料來源之間的溝通橋樑，可提供應用程式存取資料庫中的資料之介面，其情況如下圖：17-6ADO與資料庫5517-6-1資料控制項（DataControl）VB的工具箱中有個資料（Data）控制項，可用來連結資料庫中的資料表，以便於顯示或修改其中的資料。建立資料控制項的步驟如下：1.將滑鼠指標移到工具箱的資料控制項工具上，再按一下左鍵。2.將指標移到表單上（變成十字型）。3.在要設定的資料控制項之開始位置，按住滑鼠左鍵拖曳，達到適當的大小後，再放開左鍵。17-6-1資料控制項（DataControl）56【說明】一個表單上可以安置多個資料控制項，其預設的物件名稱與標題都依序為Data1、Data2、Data3、。也可以在屬性視窗中的Name屬性更改物件名稱（標準字首為ado），及在Caption屬性更改標題，如更改標題為基本資料檔，如下：【說明】一個表單上可以安置多個資料控制項，其預設的物件名稱與57資料控制項常用的屬性屬性說明預設值Caption(標題)資料控制項的標題，是預設的屬性Data1DatabaseName(資料庫名稱)設定資料控制項所連結的資料庫之路徑與名稱RecordSource(記錄來源)設定資料控制項所連結的資料表之名稱ReadOnly(唯讀)設定資料表內的資料是否不能修改：True-只能讀取，不能修改False-可以讀取，也可以修改FalseConnect(連接)設定要連結的資料庫種類(含版次)AccessExclusive(封閉)設定連結的資料庫是否不能被同時共用：True-不能被同時共用(只能有一個使用者)False-可有多個使用者同時共用False資料控制項常用的屬性屬性說明預設值Capti5817-6-2資料感知（DataAware）控制項與資料表內容的連結可以安排在表單中，具有資料連結功能的控制項，就稱為資料感知（DataAware）控制項，如文字方塊、標籤、核取方塊、清單方塊、下拉式清單方塊、圖片方塊及影像等都是。17-6-2資料感知（DataAware）控制項與59通常利用資料控制項連結資料庫時，要同時在表單中安排資料感知控制項，來顯示資料表中對應記錄的資料欄之內容。此時，要注意其DataSource與DataField兩個屬性的設定，如下：通常利用資料控制項連結資料庫時，要同時在表單中安排資60茲舉實例說明其步驟如下：1.1.在表單中安排控制項如下：（Text1Text4就是資料感知控制項，Data1為資料控制項）2.2.茲舉實例說明其步驟如下：612.選取資料控制項，然後在屬性視窗中點選DatabaseName視窗，再在屬性值欄按一下鈕。2.選取資料控制項，然後在屬性視窗中點選Database623.出現資料庫名稱對話方塊，再在搜尋位置方塊選取資料庫所在的資料夾db，及資料庫名稱清單中點選student，然後按開啟鈕，如下：3.出現資料庫名稱對話方塊，再在搜尋位置方塊選取資634.4.回到回到VBVB視窗後視窗後，在屬性視窗中點選在屬性視窗中點選RecordsetTypeRecordsetType 屬性屬性，再在屬性值欄按一下再在屬性值欄按一下 鈕鈕，選取選取0-0-資料表資料表(Table)(Table)，如下圖如下圖：4.回到VB視窗後，在屬性視窗中點選RecordsetTy645.在屬性視窗中點選RecordSource屬性，再在屬性值欄按一下鈕，選取basic。5.在屬性視窗中點選RecordSource屬性，再在屬性656.在表單上選取Text1物件，然後在屬性視窗中點選DataSource屬性，再在屬性值欄按一下鈕，選取Data1。6.在表單上選取Text1物件，然後在屬性視窗中點選Dat667.在屬性視窗中點選DataField屬性，再在屬性值欄按一下鈕，選取number。7.在屬性視窗中點選DataField屬性，再在屬性值欄按678.仿照步驟6與7，依序選取Text2、Text3、Text4，並設定其DataSource屬性的屬性值均為Data1，及DataField屬性的屬性值依序為name、address、tel。8.仿照步驟6與7，依序選取Text2、Text3、Tex68【執行實例】1.上述表單設計完成後（不必設計程式碼），開始執行程式，就會在對應的文字方塊顯示第一筆記錄的內容，如下：【執行實例】692.再按資料控制項的鈕，會顯示下一筆記錄的內容；按鈕，會顯示上一筆記錄的內容；按鈕，會顯示最後一筆記錄的內容；按鈕，會顯示第一筆記錄的內容。2.再按資料控制項的鈕，會顯示下一筆記錄的內容；按7017-7資料控制項常用的方法使用一般資料檔或資料庫時，基本的功能要包括新增（Insert）、更新（Update）、修改（Replace）與刪除（Delete）。本節要介紹達成上述基本功能的方法，可直接存取資料庫，自資料表讀出資料，及將資料寫入資料表中。17-7資料控制項常用的方法71一、新增資料記錄用法用法：資料控制項名稱資料控制項名稱.Recordset.AddNew.Recordset.AddNew功能功能：將記錄指標移到資料庫的最後將記錄指標移到資料庫的最後，並新增一筆空並新增一筆空白記錄白記錄。說明說明：1.1.使用此方法後使用此方法後，該記錄是空白的該記錄是空白的。要接著將資料放要接著將資料放置到資料控制項中對應的資料欄置到資料控制項中對應的資料欄，然後利用然後利用UpdateUpdate方法方法，將資料寫入新增的記錄中將資料寫入新增的記錄中。2.2.要將資料放置到資料控制項中對應的資料欄要將資料放置到資料控制項中對應的資料欄，就像就像針對一般的變數一樣針對一般的變數一樣，但是其格式為但是其格式為：資料控制項名稱資料控制項名稱.Recordset(.Recordset(資料欄名稱資料欄名稱)例如例如，要將文字方塊要將文字方塊Text1Text1的內容放置到資料控制項的內容放置到資料控制項Data1Data1的資料欄的資料欄numbernumber中中，其用法如下其用法如下：Data1.Recordset(number)=Text1.TextData1.Recordset(number)=Text1.Text 一、新增資料記錄72二、編輯資料記錄用法：資料控制項名稱.Recordset.Edit功能：編輯（修改）目前記錄指標所在的記錄之內容。說明：使用此方法後，要接著將資料放置到資料控制項中對應的資料欄，然後利用Update方法（如上一項的說明2），將資料寫入該筆記錄中。二、編輯資料記錄73三、更新資料記錄用法用法：資料控制項名稱資料控制項名稱.Recordset.Update.Recordset.Update功能功能：將新增或修改的資料實際寫進資料庫中的將新增或修改的資料實際寫進資料庫中的對應記錄對應記錄。說明說明：1.1.要執行此方法要執行此方法，資料控制項的資料控制項的ReadOnlyReadOnly屬性必須屬性必須設定為設定為FalseFalse。2.2.如果執行此方法後如果執行此方法後，要取消更新功能要取消更新功能（即回復更新即回復更新前的狀況前的狀況），），可使用可使用UpdateControlsUpdateControls方法方法，其用法其用法如下如下：資料控制項名稱資料控制項名稱.Recordset.UpdateControls.Recordset.UpdateControls三、更新資料記錄74例1.新增記錄到學生基本資料【表單設計】例1.新增記錄到學生基本資料【表單設計】75VisualBASIC6入门与应用电脑入门基本概念课件761.1.PrivateSubcmdAdd_Click()PrivateSubcmdAdd_Click()2.2.Data1.Recordset.AddNewData1.Recordset.AddNew新增一筆空白記錄新增一筆空白記錄3.3.Data1.Recordset(number)=Left(Text1,5)Data1.Recordset(number)=Left(Text1,5)取左邊取左邊5 5個字元個字元4.4.Data1.Recordset(name)=Text2Data1.Recordset(name)=Text25.5.Data1.Recordset(address)=Text3Data1.Recordset(address)=Text36.6.Data1.Recordset(tel)=Left(Text4,8)Data1.Recordset(tel)=Left(Text4,8)取左邊取左邊8 8個字元個字元7.7.Data1.Recordset.UpdateData1.Recordset.Update將資料寫進新增的記錄中將資料寫進新增的記錄中8.8.MsgBoxMsgBox已完成新增紀錄已完成新增紀錄,vbOKOnly,vbOKOnly,新增紀錄新增紀錄 9.9.Text1=:Text2=:Text3=:Text4=_Text1=:Text2=:Text3=:Text4=_將文字方塊清成空白將文字方塊清成空白10.10.Text1.SetFocusText1.SetFocus設定設定Text1Text1為輸入焦點為輸入焦點,準備再輸入下一筆資準備再輸入下一筆資料料11.11.EndSubEndSub12.12.PrivateSubcmdEnd_Click()PrivateSubcmdEnd_Click()13.13.EndEnd14.14.EndSubEndSub【程式碼】PrivateSubcmdAdd_Click()【程式碼77【執行情況執行情況】假如要在基本資料的最後新增如下的一假如要在基本資料的最後新增如下的一筆記錄筆記錄：1.1.在各文字方塊輸入要新增的資料後在各文字方塊輸入要新增的資料後，按按 鈕鈕，就會在資料表的最後新增一筆記錄就會在資料表的最後新增一筆記錄，並出現成功並出現成功的訊息的訊息。【執行情況】假如要在基本資料的最後新增如下的一筆記錄：782.2.按按確定確定鈕後鈕後，會將各文字方塊清成空白會將各文字方塊清成空白，並並將插入點設定在將插入點設定在Text1Text1（如表單設計的畫面如表單設計的畫面）。）。可可重覆上一步驟重覆上一步驟，再接著輸入下一筆資料再接著輸入下一筆資料，最後最後結束結束按鈕結束執行此程式按鈕結束執行此程式。2.按確定鈕後，會將各文字方塊清成空白，並將插入點設定79四、刪除資料記錄用法：資料控制項名稱.Recordset.Delete功能：直接刪除資料表中目前記錄指標所在的一筆記錄。說明：使用此方法，會直接刪除掉，不必再用Update方法來更新。（實例參看例8）四、刪除資料記錄80五、查詢資料記錄用法用法：資料控制項名稱資料控制項名稱.Recordset.Find.Recordset.Find方法方法 條件式條件式 功能功能：1.Find1.Find方法方法包括下列四種包括下列四種：FindFirstFindFirst找出符合條件的第一筆記錄找出符合條件的第一筆記錄FindPreviousFindPrevious找出符合條件的前一筆記錄找出符合條件的前一筆記錄FindNextFindNext找出符合條件的下一筆記錄找出符合條件的下一筆記錄FindLastFindLast找出符合條件的最後一筆記錄找出符合條件的最後一筆記錄2.2.條件式條件式一定要加前後的雙引號一定要加前後的雙引號，其中用到字串常其中用到字串常數的前後要加單引號數的前後要加單引號。3.3.找到時找到時，記錄指標會停在該筆記錄上記錄指標會停在該筆記錄上。如果找不到如果找不到，NomatchNomatch屬性會傳回屬性會傳回TrueTrue值值。4.4.如果資料表中有多筆記錄符合條件如果資料表中有多筆記錄符合條件，可利用迴圈來處可利用迴圈來處理理。五、查詢資料記錄81【例例2 2】在資料控制項在資料控制項Data1Data1所連結的資料表中所連結的資料表中，找尋找尋學號為學號為9200392003的第一筆記錄的第一筆記錄，其用法如下其用法如下：Data1.Recordset.FindFirstnumber=92003Data1.Recordset.FindFirstnumber=92003 如果找不到該記錄如果找不到該記錄，Data1.Recordset.NomatchData1.Recordset.Nomatch會傳回會傳回TrueTrue值值，所以可接著做如下的判斷與動作所以可接著做如下的判斷與動作：IfData1.Recordset.NomatchthenIfData1.Recordset.NomatchthenMsgBoxMsgBox找不到資料找不到資料 ElseElseMsgBoxMsgBox找到資料了找到資料了 EndIfEndIf【例2】在資料控制項Data1所連結的資料表中，找尋學號為982【例3】如果條件式中的欄位值用變數來表示，可使用如下：【例3】如果條件式中的欄位值用變數來表示，可使用如下：83六、移動記錄指標用法用法：資料控制項名稱資料控制項名稱.Recordset.Move.Recordset.Move方法方法功能功能：MoveMove方法方法包括下列四種包括下列四種：MoveFirstMoveFirst將指標移到第一筆記錄將指標移到第一筆記錄MovePreviousMovePrevious將指標移到前一筆記錄將指標移到前一筆記錄MoveNextMoveNext將指標移到下一筆記錄將指標移到下一筆記錄MoveLastMoveLast將指標移到最後一筆記錄將指標移到最後一筆記錄【說明說明】1.1.資料集資料集（RecordsetRecordset）由資料記錄由資料記錄（RecordRecord）組成組成，最前面有個最前面有個檔案開始檔案開始標記標記（BOFBOF，BeginOfBeginOfFileFile），），最後面有個最後面有個檔案結束檔案結束標記標記（EOFEOF，EndEndOfFileOfFile），），如有如有n n筆記錄的情況如下圖筆記錄的情況如下圖：六、移動記錄指標842.2.要修改或刪除某一筆記錄的內容時要修改或刪除某一筆記錄的內容時，可先利用可先利用FindFind或或MoveMove方法方法，將記錄指標移到該筆記錄的位置將記錄指標移到該筆記錄的位置。3.3.如果記錄指標已經在如果記錄指標已經在EOFEOF，就不能再往後移動就不能再往後移動（不能不能用用MoveNextMoveNext）。）。同樣同樣，如果記錄指標已經在如果記錄指標已經在BOFBOF，就就不能再往前移動不能再往前移動（不能用不能用MovePreviousMovePrevious）。）。4.BOF4.BOF與與EOFEOF也是也是RecordsetRecordset的屬性的屬性，其屬性值為其屬性值為TrueTrue或或FalseFalse，組合情況如下組合情況如下：2.要修改或刪除某一筆記錄的內容時，可先利用Find或M85【例例4 4】假如記錄指標不在假如記錄指標不在BOFBOF，就往前移動一筆記錄就往前移動一筆記錄。IfNotData1.Recordset.BOFThen_IfNotData1.Recordset.BOFThen_Data1.Recordset.MovePreviousData1.Recordset.MovePrevious【例例5 5】假如記錄指標不在假如記錄指標不在EOFEOF，就往後移動一就往後移動一筆記錄筆記錄。IfNotData1.Recordset.EOFThen_IfNotData1.Recordset.EOFThen_Data1.Recordset.MoveNextData1.Recordset.MoveNext【例例6 6】資料集中沒有資料資料集中沒有資料IfData1.Recordset.BOFAnd_IfData1.Recordset.BOFAnd_Data1.Recordset.EOFThenLabel5=Data1.Recordset.EOFThenLabel5=空資料集空資料集【例4】假如記錄指標不在BOF，就往前移動一筆記錄。86七、取得資料集的總筆數與總資料欄數用法與功能：資料控制項名稱.Recordset.RecordCount傳回資料表中記錄的總筆數資料控制項名稱.Recordset.Fields.Count傳回資料表的總欄位數說明：資料表的記錄指標移動後，RecordCount屬性才會開始記錄總筆數。七、取得資料集的總筆數與總資料欄數87八、關閉資料表用法：資料控制項名稱.Recordset.Close功能：關閉所連結的資料表，並將佔用的系統資源釋放出來。說明：1.執行程式碼的End與Unload敍述時，都會自動關閉資料表。2.資料表被關閉後，如果要再關閉資料表，會發生執行錯誤的狀況。【例例7 7】關閉資料控制項關閉資料控制項Data1Data1所連結的資料表所連結的資料表Data1.Recordset.CloseData1.Recordset.Close八、關閉資料表88【例8】綜合應用移動、更新與刪除記錄【表單設計】其他各物件的設定都與例2一樣。【例8】綜合應用移動、更新與刪除記錄89VisualBASIC6入门与应用电脑入门基本概念课件90VisualBASIC6入门与应用电脑入门基本概念课件91VisualBASIC6入门与应用电脑入门基本概念课件92【執行情況與說明】1.1.按鈕，就執行cmdFirst_Click()程序，將指標移到第一筆記錄，再呼叫副程式display，顯示該筆記錄的內容如下：【執行情況與說明】932.按鈕，就執行cmdLast_Click()程序，將指標移到最後一筆（第6筆）記錄，再呼叫副程式display，顯示該筆記錄的內容如下：2.按鈕，就執行cmdLast_Click()943.連續按鈕兩次，就執行cmdPrevious_Click()程序，將指標移到上一筆（第5、4筆）記錄，再呼叫副程式display，顯示該筆記錄的內容如下：3.連續按鈕兩次，就執行cmdPrevious_954.4.按按鈕鈕，就執行就執行cmdNext_Click()cmdNext_Click()程序程序，將指標移到下將指標移到下一筆一筆（第第5 5筆筆）記錄記錄，再呼叫副程式再呼叫副程式displaydisplay，顯示該顯示該筆記錄的內容如上面左圖筆記錄的內容如上面左圖。5.5.在文字方塊中更改內容後在文字方塊中更改內容後（如下圖如下圖），），再按再按鈕鈕，就就執行執行cmdUpdate_Click()cmdUpdate_Click()程序程序，將各文字方塊的內容移將各文字方塊的內容移進對應的資料欄進對應的資料欄，然後寫到目前指標所在的記錄上然後寫到目前指標所在的記錄上（即將原內容蓋掉即將原內容蓋掉）。）。接著會出現接著會出現更新完成更新完成的訊的訊息息（下面右圖下面右圖），），再按再按鈕鈕，就完成更新工作就完成更新工作。（。（要要證實已經更新過證實已經更新過，可按可按鈕後鈕後，再按再按鈕回到原記錄查看鈕回到原記錄查看）4.按鈕，就執行cmdNext_Click()程序，96VisualBASIC6入门与应用电脑入门基本概念课件976.按鈕，就執行cmdDelete_Click()程序，將目前指標所在的記錄刪除掉，接著會出現刪除完成的訊息方塊。再按鈕，就完成刪除工作，接著呼叫cmdNext_Click()程序，顯示下一筆（第6筆）記錄的內容。（要證實已經刪除掉王老五的記錄，可按鈕查看已經不在）6.按鈕，就執行cmdDelete_Click(98