【正文】 se 1 = = End Sub 2. 隨機文件的寫操作 要把變量當中的內(nèi)容寫入到隨機文件中，應以 random方式打開文 件，然后使用 Put 語句將內(nèi)容寫入。 格式： Put Filenumber,[Reumber],Varname 功能：將變量 Varname中的內(nèi)容寫入到文件號為 Filenumber的文件的第 Reumber個記錄中去。 隨機文件的讀寫操作 【 例 115】 將文本框中的數(shù)據(jù)寫入文件 。 Private Sub Command1_Click() Dim student1 As student, Position As Long Open For Random As 1 Len = Len(student1) Position = LOF(1) / Len(student1) = = Put 1, Position + 1, student1 = = Close 1 End Sub 二進制文件把內(nèi)存中的數(shù)據(jù)按其在內(nèi)存中的存儲形式原樣輸出到磁盤上。用二進制形式輸出數(shù)值時，可以節(jié)省空間和轉(zhuǎn)換時間，但是不能直接輸出字符形式。因此，如果數(shù)據(jù)不是輸出顯示或打印，而是暫時存在磁盤上，等待進一步處理，則用二進制文件保存較合適。 EXE可執(zhí)行文件，圖形文件等都是二進制文件。 二進制文件 1. 二進制文件的打開 二進制文件在讀寫之前必須打開，打開隨機文件也使用 Open語句，其語法格式如下： Open Pathname for binary as Filenumber 相比隨機文件，二進制文件沒有指定 len=reclength。 2. 二進制文件的關閉 用 Close語句關閉文件。格式為： Close [Filenumber] [,Filenumber] 1. 二進制文件的讀操作 二進制文件也是采用 Get語句讀取。 格式： Get Filenumber, Position, Varname 功能：從文件號為 Filenumber的文件的 Position位置處讀取數(shù)據(jù)賦給變量 Varname。 2. 二進制文件的寫操作 二進制文件也是采用 Put語句寫入數(shù)據(jù)。 格式： Put Filenumber， Position， Bytes 功能：把數(shù)據(jù) Bytes寫入文件號為 Filenumber的文件的Position位置處。 Bytes可以是字符串，也可以是字節(jié)數(shù)。 二進制文件的讀寫操作 Visual Basic提供了一些簡便 、 實用的用于處理文件的系統(tǒng)語句和函數(shù) ， 它們能夠用來操作驅(qū)動器 、 文件夾 、 文件等 。 下面介紹常用的處理文件的語句和函數(shù) 。 常用的文件操作語句和函數(shù) 文件操作語句 1. CurDir語句 功能：獲取某驅(qū)動器的當前路徑。 語法： CurDir[Drive] 說明：參數(shù) Drive是指要獲取信息的驅(qū)動器名稱，如果忽略該參數(shù)，則 CurDir 語句返回當前驅(qū)動器的當前路徑。 例如，如果驅(qū)動器 E：的當前路徑為 E:\Tool\Oicq， 則如下語句將在窗體上顯示 E:\Tool\Oicq。 Print CurDir(E) 文件操作語句 2. ChDrive 語句 功能：更改當前驅(qū)動器。 語法： ChDrive Drive 說明：參數(shù) Drive為要指定為當前驅(qū)動器的名稱，例如，將驅(qū)動器 A：指定為當前驅(qū)動器的語句為： ChDrive A 3. ChDir語句 功能：更改當前路徑。 語法： ChDir Path 說明：參數(shù) Path為要指定的路徑，如果路徑中沒有指定驅(qū)動器的名稱，則表示驅(qū)動器為當前驅(qū)動器。 ChDir 語句改變默認目錄位置，但不會改變默認驅(qū)動器位置。例如，如果默認的驅(qū)動器是 C：，則下面的語句將會改變驅(qū)動器 D：上的默認目錄，但是 C：仍然是默認的驅(qū)動器。 ChDir D:\TMP 文件操作語句 4. MkDir語句 功能：建立目錄。 語法： MkDir Path 說明：參數(shù) Path用來指定要創(chuàng)建的目錄以及目錄所在的路徑。 Path可以包含驅(qū)動器。如果沒有指定路徑，則 MkDir會在當前路徑下創(chuàng)建新的目錄。例如： MkDir C:\111 ’在 C：盤中創(chuàng)建目錄 111 MkDir C:\Winnt\222 ’在 C：盤 Winnt 目錄中創(chuàng)建子目錄 222 MkDir 333 ’在當前路徑下創(chuàng)建目錄 333 5. RmDir語句 功能：刪除一個存在的空目錄。 語法： RmDir Path 說明：參數(shù) Path用來指定 刪除的目錄以及目錄所在的路徑。 Path可以包含驅(qū)動器。如果沒有指定路徑，則 RmDir會在當前驅(qū)動器上刪除目錄或文件夾。 如果使用 RmDir來刪除一個含有文件的目錄或文件夾，則會發(fā)生錯誤。因此，在試圖使用 RmDir語句刪除目錄或文件夾之前，可以先使用 Kill語句刪除其內(nèi)的所有文件。 例如，當前目錄下的 MYDIR目錄是空目錄，將它刪除的語句如下： 文件操作語句 RmDir MYDIR 6. FileCopy 語句 功能：在磁盤介質(zhì)間復制文件。 語法： FileCopy Source, Destination 說明：參數(shù) Source用來指定源文件及其路徑，參數(shù) Destination用來指定目標文件及其路徑。如果沒有指定路徑，則默認為當前路徑。例如，將 C：盤 Windows目錄中的文件 E:盤，并且文件名變?yōu)?。 FileCopy C： \Windows\, E:\ 7. Kill 語句 功能：從磁盤中刪除文件。 語法： Kill PathName 說明：參數(shù) PathName用來指定所要刪除的文件及其路徑。如果沒有指定路徑，則會刪除當前路徑下的文件。 Kill支持多字符（ *）和單字符（？）通配符來指定多重文件。例如： Kill D:\abc\ ’刪除 D：盤 abc目錄中的 Kill Textfile ’刪除當前目錄下的 Textfile文件 Kill C:\temp\*.txt ’刪除 C：盤 temp目錄中的所有 .txt文件 文件操作語句 8. Name語句 功能：重命名文件或移動文件。 語法： Name OldPathName As NewPathName 說明：參數(shù) OldPathName用來指定所要重命名的文件及其路徑，參數(shù)NewPathName用來指定文件的新名稱及其路徑。如果NewPathName參數(shù)指定的路徑與 OldPathName參數(shù)指定的路徑不同，則文件將被移到新的路徑下，例如： ’ 將 E：盤中的文件 Name E:\ As E:\ ’將 E:盤中的文件 D:盤的 text目錄中，并重命名為 Name E： \ As D： \text\ Name函數(shù)對目錄也同樣有效。 9. SetAttr語句 功能：為一個沒有打開的文件設置屬性。 文件操作語句 語法： SetAttr Pathname,Attribute 說明：參數(shù) PathName用來指定要設置屬性的文件或目錄，參數(shù) Attribute用來指定文件或目錄的屬性，其取值及含義如表 111所示。 表 111 Attribute參數(shù)的取值及含義 常數(shù) 值 含義 VbNormal VbReadOnly VbHidden VbSystem VbArchive 0 1 2 4 32 常規(guī)（默認值） 只讀 隱藏 系統(tǒng)文件 上次備份以后，文件已經(jīng)改變 文件操作語句 VbFileAttribute參數(shù)的取值也可以是各取值的和。 例如，設置 D:盤 Test目錄中 為只讀。 SetAttr D:\Test\, 1 ’設置 C:盤中 SetAttr C:\, 3 文件操作函數(shù) 1. FileLen函數(shù) 功能：獲取文件的大小。 語法： FileLen（ PathName） 說明：參數(shù) PathName用來指定要獲取大小的文件及其路徑。函數(shù)的返回值為一個長整型值，代表文件的大小，單位是字節(jié)。例如： ’ 顯示 D:盤中 ，單位為字節(jié) Print FileLen(D:\) 功能：判斷是否到達文件結(jié)尾。 語法： EOF（ Filenumber） 說明： Filenumber是一個有效的文件號。函數(shù)的返回值為 Boolean型數(shù)據(jù)，為 True表示已到文件尾部，為 False表示未到文件尾部。 功能：表示用 Open語句打開的文件的大小。 語法： LOF（ Filenumber） 說明： Filenumber是一個有效的文件號。函數(shù)的返回值為 Long型數(shù)據(jù)，以字節(jié)為單位表示文件的大小。 【 例 116】 利用文件系統(tǒng)控件查找文件，并顯示文件內(nèi)容。程序運行界面如圖 112所示。 圖 112 文件處理 應用舉例 應用舉例 代碼如下： Private Sub Dir1_Change() = End Sub Private Sub Drive1_Change() = End Sub Private Sub File1_Click() Dim a As String Dim mystring As String = a = If Right(a, 1) = \ Then a = Left(a, Len(a) 1) Open a amp。 \ amp。 For Input As 1 Do While Not EOF(1) Input 1, mystring = amp。 mystring Loop Close End Sub 思考 1. 什么是文件？ 2. 文件存儲的方式有哪幾種？ 3. 順序文件的特點是什么？ 4. 隨機文件的特點是什么？ 5. 二進制文件的特點是什么？ 第 12章 數(shù)據(jù)庫程序設計 用控件訪問數(shù)據(jù)庫 VisualBasic可視化數(shù)據(jù)管理器 VisualBasic如何訪問數(shù) ADO對象編程模型簡介 使用數(shù)據(jù)窗體向?qū)? Visual Basic可視化數(shù)據(jù)管理器介 可視化數(shù)據(jù)庫管理器是 Visual Basic提供的一個非常實用的、可視化的數(shù)據(jù)庫管理工具。使用它可以非常方便地完成創(chuàng)建數(shù)據(jù)庫、建立數(shù)據(jù)表、數(shù)據(jù)庫查詢或打開 Access 、 FoxPro等類型的數(shù)據(jù)庫等工作。如圖 121所示，直觀的可視化工作界面給用戶帶來了極大的方便。 主要建立、連接 Access數(shù)據(jù)庫來進行數(shù)據(jù)庫管理。 Microsoft Access是一種數(shù)據(jù)庫管理系統(tǒng) (DBMS)，用來創(chuàng)建和使用計算機的數(shù)據(jù)庫。數(shù)據(jù)庫是由一個或是多個表或查詢等對象構(gòu)成的。 利用可視化數(shù)據(jù)管理器創(chuàng)建數(shù)據(jù)庫文件簡單 、易操作 ， 因為每一步都是循序漸進的 ， 都有幫助信息提供 。 下面就是一個創(chuàng)建 “ 學生管理數(shù)據(jù)庫 ” 的過程 。 Visual Basic如何訪問數(shù)據(jù)庫 1. 啟動數(shù)據(jù)庫管理器 ①單擊“外接程序”中的“可視化數(shù)據(jù)管理器”子菜單選項，彈出如圖 121所示的 VisData應用程序窗口。 ②在彈出的 VisData應用程序窗口中單擊“文件”菜單，在子菜單中選擇“新建”，然后選擇“ Microsoft Access” 、“ Version (MDB)” ，如圖 122所示。 創(chuàng)建數(shù)據(jù)庫 2．創(chuàng)建“學生管理數(shù)據(jù)庫”數(shù)據(jù)庫的步驟 ①如圖 123所示，在創(chuàng)建 Microsoft Access窗口的對話框的“文件名”文本框輸入文件名 (“ 學生管理數(shù)據(jù)庫” )，保存類型采用系統(tǒng)默認的文件擴展名 .mdb，單擊“保存”按鈕，進入到如圖 124所示的“數(shù)據(jù)庫窗口”。 創(chuàng)建數(shù)據(jù)庫 ②在數(shù)據(jù)庫窗口中，單擊 Properties前的“ +” 號，可以查看已建立的數(shù)據(jù)庫的各項參數(shù)。此時數(shù)據(jù)庫是空的（除指定的路徑的外），還沒有其他的內(nèi)容，下一步將建立數(shù)據(jù)表。 3． 創(chuàng)建數(shù)據(jù)表 ⑴ 創(chuàng)建表結(jié)構(gòu) ① 在數(shù)據(jù)庫的數(shù)據(jù)庫屬性的樹狀圖上任意選擇一個然后單擊鼠標右鍵 ， 在彈出的快捷菜單中選擇 “ 新建表 ” ， 彈出 “ 表結(jié)構(gòu) ” 窗體 。 在 “ 表名稱 ” 文本框中輸入表名稱 (學生 )， 然后單擊 “ 添加字段 ” ，如圖 125所示 。 創(chuàng)建數(shù)據(jù)庫 ② 在 “ 添加字段 ” 對話框中 ， 定義表中的每個字段 。 “ 名稱 ” 文本框中輸入 “ 學號 ” ， “ 類型 ” 文本框中選