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