【正文】 ne Input 語句是從文件中讀取它的一個記錄，即一行信息。并將該內(nèi)容送入指定的 字符串變量 中去。 【 例 】 運行 源程序 關(guān)閉文件 當結(jié)束各種讀寫操作以后，還必須要將文件關(guān)閉，否則會造成數(shù)據(jù)的丟失等現(xiàn)象。因為實際上 print 或 write 語句是將數(shù)據(jù)送到緩沖區(qū)，關(guān)閉文件時才能將緩沖區(qū)中數(shù)據(jù)全部寫入文件。 2022/2/16 清華大學出版社 88 隨機文件 隨機文件的打開與關(guān)閉 打開隨機文件的 Open語句一般格式如下： Open 文件名 For Random As []文件號 [ LEN=記錄長度 ] 說明 ： (1)文件名 ——需打開的文件的名字，如不存在，系統(tǒng)將自動建立該文件。 (2)For Random——表示打開一個隨機文件。隨機文件一經(jīng)打開，讀、寫操作可同時進行 。 (3)Len——可選，用于指定文件中的記錄長度： (4)由于隨機文件中數(shù)據(jù)的存取以記錄為單位，因此要先定義記錄的數(shù)據(jù)結(jié)構(gòu)，可用 Type——End type語句實現(xiàn)。 自定義數(shù)據(jù)類型 2022/2/16 清華大學出版社 89 隨機文件的寫操作 對隨機文件的寫操作用 Put 語句。 put 文件號 ， 記錄號 ， 變量 說明： （ 1） 文件號 ——open 語句中指定的文件號 （ 2） 記錄號 ——將數(shù)據(jù)寫入的記錄號 （ 3） 變量 ——記錄對應(yīng)的自定義類型變量 【 例 】 修改例 ，以隨機文件形式建立文件 。 注意： 不要試圖用文檔編輯軟件，如寫字板， word等查看隨機文件內(nèi)容，因為在隨機文件中數(shù)值型數(shù)據(jù)是以二進制方式存儲的。 2022/2/16 清華大學出版社 90 隨機文件的讀操作 Get 語句的一般形式為： get 文件號 ， 記錄號 ， 變量 【 例 】 設(shè)計一程序，單擊“讀出”按鈕，則將指定記錄內(nèi)容顯示在相應(yīng)的文本框中。讀到文件尾時，給出一提示對話框 。 二進制文件 二進制文件中的內(nèi)容以字節(jié)方式存儲 ,與隨機文件相同 ,二進制文件打開后 ,讀寫操作可同時進行 。 二進制文件的打開與關(guān)閉 Open 文件名 For Binary As 文件號 如果存在 ， 就打開它 。 若不存在 ， 則創(chuàng)建該文件 。 同樣使用 Close語句關(guān)閉二進制文件 。 2022/2/16 清華大學出版社 91 二進制文件的讀寫操作 put 語句 put 文件號 [，位置 ]， 變量 說明： ? [位置 ]可選，按字節(jié)計數(shù)的寫位置，文件開頭處為第一字節(jié)，若省略 [位置 ]參數(shù)，則文件指針從開始到文件尾順序移動， 寫入的字節(jié)數(shù)等于變量的長度 。 get 語句 get 文件符 [,位置 ],變量 說明： ? get 語句用于從文件中讀出數(shù)據(jù)，將從指定位置開始將數(shù)據(jù)讀入到變量中去，讀出的字節(jié)數(shù)等于變量的長度。 2022/2/16 清華大學出版社 92 文件操作語句和函數(shù) VB提供了許多語句和函數(shù)用于各種文件的操作。 文件操作語句 格式： FileCopy 源文件名 目標文件名 功能：復(fù)制一個文件。 說明：不能復(fù)制一個已打開的文件。 格式： Kill 文件名 功能：刪除文件。 說明：文件名中可以使用通配符 *，？等。 格式： Name 舊文件名 新文件名 功能：重新命名一個文件或目錄。 說明：不能使用通配符； 具有移動文件功能 ；不能對已打開的文件進行重命名操作。 2022/2/16 清華大學出版社 93 格式： ChDrive 驅(qū)動器 功能： 改變當前驅(qū)動器。 說明：如果驅(qū)動器為空，則不變；如果驅(qū)動器中有多個字符，則只會使用首字母。 格式： MkDir 文件夾名 功能：創(chuàng)建一個新的目錄。 格式： ChDir 文件夾名 功能：改變當前目錄。 說明：改變默認目錄，但不改變默認驅(qū)動器。 格式： RmDir 文件夾名 功能：刪除一個存在的目錄。 說明：不能刪除一個含有文件的目錄。 2022/2/16 清華大學出版社 94 常用文件操作函數(shù) FreeFile 函數(shù) 用 FreeFile函數(shù)可以得到一個在程序中沒有使用的文件號。 格式為： FreeFile[(rangenumber)] 例如：使用 FreeFile函數(shù)獲得文件號。 Private Sub Form_Click() filenum = FreeFile Open For Output As filenum Print 。 opended as file。 filenum Close filenum End Sub 程序輸出： opened as file 1 2022/2/16 清華大學出版社 95 EOF()函數(shù) 用于確定在讀文件過程中是否到了文件尾，若到文件尾，則返回值為： true，否則返回值為： false，其使用格式為： EOF（文件號） LOF()函數(shù)：返回已打開文件的大小，類型為 long，單位為字節(jié)。 例如： Open D:\ For Input As 1 X% = LOF(1) 執(zhí)行后， X%的值為 130。 FileLen()函數(shù)：返回一個未打開文件的大小，類型為 long，單位為字節(jié)。 例如： dim Mysize as long Mysize=FileLen(―C:\Program Files\WinRAR\‖) 2022/2/16 清華大學出版社 96 INPUT()函數(shù) INPUT（讀取的字符數(shù)， 〈 文件號 〉 ） 例：設(shè)文件 ： “清華大學出版社” 那么：以下語句： Open “ ‖ For Input 1 mystr$=Input(4,1) Close 1 執(zhí)行后 :mystr$的值為“清華”。 Dir 函數(shù) Dir函數(shù)用來測試一個指定的路徑下是否有指定的文件和文件夾（目錄），被測試的文件或文件夾可以包含通配符“ *”和“ ?‖。除了文件和文件夾外，還可以指定其屬性。具體語法格式為： Dir (PathName[ ,Attibutes]) 2022/2/16 清華大學出版社 97 文件系統(tǒng)控件 文件系統(tǒng)控件的作用是顯示關(guān)于驅(qū)動器、目錄和文件的信息，并從中選擇以便進行進一步的操作。 VB中提供了三種文件系統(tǒng)控件：驅(qū)動器列表框（ DriveListBox）、目錄列表框（ DirListBox）和文件列表框（ FileListBox）。 驅(qū)動器列表框 它提供一個下拉式驅(qū)動器清單，可以顯示當前系統(tǒng)中所有有效磁盤驅(qū)動器。驅(qū)動器列表框跟其他控件一樣具有許多標準屬性，其中一個重要的屬性為 Drive屬性，該屬性用于設(shè)置或返回要操作的驅(qū)動器， Drive屬性只能用程序代碼設(shè)置 ，不能通過屬性窗口設(shè)置。使用格式為： 驅(qū)動列表框名稱 .Drive[=驅(qū)動器名 ] 2022/2/16 清華大學出版社 98 Change事件 :該事件在驅(qū)動器列表框的 Drive屬性值發(fā)生變化時觸發(fā)。 Refresh方法，用于刷新驅(qū)動器列表。 另外也支持 SetFocus方法和 Move方法。 目錄列表框 目錄列表框的作用用來顯示當前驅(qū)動器上的目錄。它有一個在設(shè)計模式下不可用的 Path屬性，用來讀取或指定當前工作目錄。當改變驅(qū)動器列表框的 Drive屬性時，將產(chǎn)生 Change事件，因此只要把 ，就可產(chǎn)生同步效果。如： Private Sub Drive1_Change() = End Sub 這樣，每當改變驅(qū)動器列表框的 Drive屬性時，將產(chǎn)生 Change事件，目錄列表框中的目錄改變成該驅(qū)動器目錄。 2022/2/16 清華大學出版社 99 文件列表框 文件列表框的作用是顯示當前目錄的文件名。文件列表框的屬性： Path屬性 Path屬性用來指定文件列表框中被顯示的文件目錄，通過 Path屬性的改變引發(fā) Change事件，可以實現(xiàn)目錄列表框與文件列表框的同步操作，例如： Private Sub Dir1_Change() = End Sub 目錄列表框 Path屬性的改變將激發(fā) Change事件，把 賦值給 ，就產(chǎn)生了同步效果。 2022/2/16 清華大學出版社 100 Pattern屬性 Pattern屬性用來限定文件列表框中顯示的文件類型 ， 默認情況下 ， Pattern的屬性值為 ” *.*”， 即所有文件 ， 在程序中設(shè)置格式為： 文件列表框名 .Pattern [=屬性值 ] 如語句： = “*.Gif 。 *.Bmp”將限定文件列表框 File1中將只顯示擴展名為 ” Bmp”和 ” Gif”的文件 ， FileName屬性 FileName屬性的值是用戶在文件列表框中選定的 文件名 。 MultiSelect屬性 該屬性用于設(shè)定文件列表框中是否允許選擇多個文件以及文件的選擇方式 。 ListCount屬性 用于返回文件列表框中所顯示的文件總數(shù) 。 例如語句： Num = File1中顯示的文件總數(shù) 。 2022/2/16 清華大學出版社 101 【 例 】 設(shè)計一圖片瀏覽器，界面如下圖所示。要求編寫代碼使驅(qū)動器列表框 Drive目錄列表框 Dir1和文件列表框 File1同步操作；文件列表框中只顯示擴展名為 Bmp和 Jpg的圖片文件；用鼠標單擊文件列表框中的某個圖片文件時，窗體上的圖像框 Image1同時顯示該圖片。其中將圖像框 Image1的 Stretch屬性設(shè)定為 True，BorderStyle屬性設(shè)定為 1，以使圖像框能夠完全顯示所有圖像，同時具有邊框。 2022/2/16 清華大學出版社 102 在窗體的加載事件中添加代碼，使文件列表框中只顯示擴展名為” Gif” 和” Jpg” 的圖形文件。程序代碼編寫如下： Private Sub Form_Load() = *.gif。*.jpg End Sub 編寫驅(qū)動器列表框 Drive1的 Change事件過程代碼，使驅(qū)動器列表框 Drive1與目錄列表框 Dir1同步： Private Sub Drive1_Change() = End Sub 2022/2/16 清華大學出版社 103 編寫目錄列表框 Dir1的 Change事件過程代碼 ， 使目錄列表框 Dir1與文件列表框 File1操作同步： Private Sub Dir1_Change() = End Sub 編寫文件列表框的單擊事件過程 ， 在圖像框中顯示指定的圖片： Private Sub File1_Click() = LoadPicture( + \ + ) End Sub 2022/2/16 清華大學出版社 104 第 12章 數(shù)據(jù)庫訪問 數(shù)據(jù)庫基本知識 數(shù)據(jù)庫的創(chuàng)建 Data控件及應(yīng)用 ADO Data控件及應(yīng)用 SQL語言 ADO對象及應(yīng)用 2022/2/16 清華大學出版社 105 【 目的要求 】 ； data控件操作數(shù)據(jù)庫的方法； Dao對象創(chuàng)建數(shù)據(jù)庫的方法 ； 4 .掌握 SQL語句在高級語言中的書寫方法； 5 .掌握 ADO控件的基本屬性和操作數(shù)據(jù)庫的基本方法； 6 .掌握 ADO對象的基本結(jié)構(gòu)和對數(shù)據(jù)庫的操作方法 。 【 重點 】 ADO對象的層次結(jié)構(gòu)與常用對象的屬性 、 方法 ADO對象操作數(shù)據(jù)庫的基本方法 2022/2/16 清華大學出版社 106 數(shù)據(jù)庫基本知識 數(shù)據(jù)庫的創(chuàng)建 利用可視化數(shù)據(jù)管理器（ VisData）創(chuàng)建數(shù)據(jù)庫 注意 ： VB所提供的 【 可視化數(shù)據(jù)管理器 】 創(chuàng)建數(shù)據(jù)庫的方法，在實際使用中，操作很不方便，并且該方法所創(chuàng)建的 Access數(shù)據(jù)庫版本低。在實際應(yīng)用中時應(yīng)使用現(xiàn)在流行的 Access2022來創(chuàng)建數(shù)據(jù)庫。高版本的Access數(shù)據(jù)庫不能被 data控件識別。 2022/2/16 清華