【正文】 創(chuàng)建數(shù)據(jù)庫 ② 在 “ 添加字段 ” 對話框中 ， 定義表中的每個字段 。 3． 創(chuàng)建數(shù)據(jù)表 ⑴ 創(chuàng)建表結(jié)構(gòu) ① 在數(shù)據(jù)庫的數(shù)據(jù)庫屬性的樹狀圖上任意選擇一個然后單擊鼠標(biāo)右鍵 ， 在彈出的快捷菜單中選擇 “ 新建表 ” ， 彈出 “ 表結(jié)構(gòu) ” 窗體 。 創(chuàng)建數(shù)據(jù)庫 ②在數(shù)據(jù)庫窗口中，單擊 Properties前的“ +” 號，可以查看已建立的數(shù)據(jù)庫的各項參數(shù)。 ②在彈出的 VisData應(yīng)用程序窗口中單擊“文件”菜單，在子菜單中選擇“新建”，然后選擇“ Microsoft Access” 、“ Version (MDB)” ，如圖 122所示。 下面就是一個創(chuàng)建 “ 學(xué)生管理數(shù)據(jù)庫 ” 的過程 。數(shù)據(jù)庫是由一個或是多個表或查詢等對象構(gòu)成的。 主要建立、連接 Access數(shù)據(jù)庫來進行數(shù)據(jù)庫管理。使用它可以非常方便地完成創(chuàng)建數(shù)據(jù)庫、建立數(shù)據(jù)表、數(shù)據(jù)庫查詢或打開 Access 、 FoxPro等類型的數(shù)據(jù)庫等工作。 For Input As 1 Do While Not EOF(1) Input 1, mystring = amp。 圖 112 文件處理 應(yīng)用舉例 應(yīng)用舉例 代碼如下： 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。 【 例 116】 利用文件系統(tǒng)控件查找文件，并顯示文件內(nèi)容。 語法： LOF（ Filenumber） 說明： Filenumber是一個有效的文件號。函數(shù)的返回值為 Boolean型數(shù)據(jù)，為 True表示已到文件尾部，為 False表示未到文件尾部。例如： ’ 顯示 D:盤中 ，單位為字節(jié) Print FileLen(D:\) 功能：判斷是否到達文件結(jié)尾。 語法： FileLen（ PathName） 說明：參數(shù) PathName用來指定要獲取大小的文件及其路徑。 例如，設(shè)置 D:盤 Test目錄中 為只讀。 文件操作語句 語法： SetAttr Pathname,Attribute 說明：參數(shù) PathName用來指定要設(shè)置屬性的文件或目錄，參數(shù) Attribute用來指定文件或目錄的屬性，其取值及含義如表 111所示。如果NewPathName參數(shù)指定的路徑與 OldPathName參數(shù)指定的路徑不同，則文件將被移到新的路徑下，例如： ’ 將 E：盤中的文件 Name E:\ As E:\ ’將 E:盤中的文件 D:盤的 text目錄中，并重命名為 Name E： \ As D： \text\ Name函數(shù)對目錄也同樣有效。例如： Kill D:\abc\ ’刪除 D：盤 abc目錄中的 Kill Textfile ’刪除當(dāng)前目錄下的 Textfile文件 Kill C:\temp\*.txt ’刪除 C：盤 temp目錄中的所有 .txt文件 文件操作語句 8. Name語句 功能：重命名文件或移動文件。如果沒有指定路徑，則會刪除當(dāng)前路徑下的文件。 FileCopy C： \Windows\, E:\ 7. Kill 語句 功能：從磁盤中刪除文件。如果沒有指定路徑，則默認(rèn)為當(dāng)前路徑。 例如，當(dāng)前目錄下的 MYDIR目錄是空目錄，將它刪除的語句如下： 文件操作語句 RmDir MYDIR 6. FileCopy 語句 功能：在磁盤介質(zhì)間復(fù)制文件。 如果使用 RmDir來刪除一個含有文件的目錄或文件夾，則會發(fā)生錯誤。 Path可以包含驅(qū)動器。例如： MkDir C:\111 ’在 C：盤中創(chuàng)建目錄 111 MkDir C:\Winnt\222 ’在 C：盤 Winnt 目錄中創(chuàng)建子目錄 222 MkDir 333 ’在當(dāng)前路徑下創(chuàng)建目錄 333 5. RmDir語句 功能：刪除一個存在的空目錄。 Path可以包含驅(qū)動器。 ChDir D:\TMP 文件操作語句 4. MkDir語句 功能：建立目錄。 ChDir 語句改變默認(rèn)目錄位置，但不會改變默認(rèn)驅(qū)動器位置。 語法： ChDrive Drive 說明：參數(shù) Drive為要指定為當(dāng)前驅(qū)動器的名稱，例如，將驅(qū)動器 A：指定為當(dāng)前驅(qū)動器的語句為： ChDrive A 3. ChDir語句 功能：更改當(dāng)前路徑。 例如，如果驅(qū)動器 E：的當(dāng)前路徑為 E:\Tool\Oicq， 則如下語句將在窗體上顯示 E:\Tool\Oicq。 常用的文件操作語句和函數(shù) 文件操作語句 1. CurDir語句 功能：獲取某驅(qū)動器的當(dāng)前路徑。 二進制文件的讀寫操作 Visual Basic提供了一些簡便 、 實用的用于處理文件的系統(tǒng)語句和函數(shù) ， 它們能夠用來操作驅(qū)動器 、 文件夾 、 文件等 。 格式： Put Filenumber， Position， Bytes 功能：把數(shù)據(jù) Bytes寫入文件號為 Filenumber的文件的Position位置處。 格式： Get Filenumber, Position, Varname 功能：從文件號為 Filenumber的文件的 Position位置處讀取數(shù)據(jù)賦給變量 Varname。 2. 二進制文件的關(guān)閉 用 Close語句關(guān)閉文件。 EXE可執(zhí)行文件，圖形文件等都是二進制文件。用二進制形式輸出數(shù)值時，可以節(jié)省空間和轉(zhuǎn)換時間，但是不能直接輸出字符形式。 隨機文件的讀寫操作 【 例 115】 將文本框中的數(shù)據(jù)寫入文件 。 Private Type student name As String * 8 score As Integer End Type Private Sub Command3_Click() Dim student1 As student, Position As Long Open For Random As 1 Len = Len(student1) 隨機文件的讀寫操作 Position = 2 Get 1, Position, student1 Close 1 = = End Sub 2. 隨機文件的寫操作 要把變量當(dāng)中的內(nèi)容寫入到隨機文件中，應(yīng)以 random方式打開文 件，然后使用 Put 語句將內(nèi)容寫入。 格式： Get Filenumber,Reumber,Varname 功能：將文件號為 Filenumber的文件的第 Reumber條記錄讀入到變量 Varname中。 用 Close語句關(guān)閉文件。 隨機存取文件的存取較為靈活、方便，且速度較快、容易修改，但是占空間較大，數(shù)據(jù)組織較復(fù)雜。一個記錄一般包含有多個數(shù)據(jù)項。 you are a good man!, 456 Close 1 Print already done! End Sub 隨機文件是指隨機存取的文件。 順序文件的讀寫操作 【 例 113】 向文件 。用 Tab(n)將插入點定位在某一絕對的列號上，用無參數(shù)的 Tab將插入點定位在下一個打印區(qū)的 起始處。 Eharpos指定下一個字符的插入點。使用無參數(shù)的 Tab將插入點定位在下一個打印區(qū)的起始位置。 Outputlist參數(shù)的設(shè)置如下： Spe(n)用來在輸出數(shù)據(jù)中插入空白字符，而 n是指要插入的空白字符數(shù)。 Private Sub Command1_Click() Dim mystring As String Open For Input As 1 Do While Not EOF(1) Input 1, mystring Print mystring Loop Close End Sub 順序文件的讀寫操作 要把變量當(dāng)中的內(nèi)容寫入到順序文件中，應(yīng)以順序 Output或Append方式打開文件，然后使用 Print 語句將內(nèi)容寫入。 格式： Line Input Filenumber,Varname 功能：從已經(jīng)打開的順序文件中讀取一行送入 Varname中。 在以 Input、 Output、 Append方式打開一個文件并進行操作之后，可以用 Close語句關(guān)閉文件。 順序文件 順序文件的打開與關(guān)閉 要對一個順序文件進行讀寫，首先必須打開順序文件。 ?文件中的內(nèi)容很少或不必修改； ?在文件處理時按順序方式； ?僅在文件的尾部添加信息。例如，要讀取最后一個數(shù)據(jù)，也必須從第一個數(shù)據(jù)開始依次進行，直到讀取最后一個數(shù)據(jù)。順存取是指數(shù)據(jù)是依次寫入文件的，在讀取時，數(shù)據(jù)又依次被讀出來?，F(xiàn)在，已經(jīng)可以通過文件系統(tǒng)控件搜索到具體的文件了。 【 例 111】 使用文件系統(tǒng)控件完成文件查找，如圖 111所示。 *.SYS 以上設(shè)置可使文件列表框 File1僅顯示擴展名為 .exe、 .、 .sys的文件。例如： = *.EXE 。例如要使文件列表框中只顯示文本文件，則應(yīng)該將 Pattern屬性的值設(shè)置為 “ *.txt”。例如： = ’文件列表框 File將顯示 Dir1所選目錄中的文件 Pattern是文件列表框的一個重要屬性，用于設(shè)置過濾所顯示的文件。如果要顯示其他驅(qū)動器下的目錄，則要使用 Path 屬性來設(shè)置它的路徑，最好將目錄列表框與驅(qū)動器列表框結(jié)合使用。例如： = D:\doubles“ = ’Dir1將顯示 Drive1上的目錄 同樣，目錄列表框所選目錄并不是當(dāng)前工作目錄。它以根目錄開始顯示當(dāng)前驅(qū)動器目錄結(jié)構(gòu)。例如，將 = D添加到窗體的 Load事件中，則程序啟動后驅(qū)動器中顯示的是指定的驅(qū)動器 D，而不是當(dāng)前驅(qū)動器 . 另外，值得注意的是，以上操作只能顯示驅(qū)動器，并不能自動地變更當(dāng)前的工作驅(qū)動器。用戶可以從列表中選定某個驅(qū)動器。 DriveListBox(驅(qū)動器列表框 )是一個下拉式列表框，其用途是搜索驅(qū)動器。 文件系統(tǒng)控件 VB提供了 3個文件系統(tǒng)控件用于文件搜索，分別是 DriveListBox(驅(qū)動器列表框 )、DirListBox(目錄列表框 )和 FileListBox（文件列表框）。 在 Visual Basic文件管理系統(tǒng)下 ， 存儲文件的方式有三種 ， 即順序文件 、 隨機文件和二進制文件 。 思考 ？ 如何應(yīng)用 ？ KeyPress和 KeyDown有什么區(qū)別 ？ 第 11章 文件 文件概述 順序文件構(gòu) 文件系統(tǒng)控件構(gòu) 隨機文件 二進制文件 常用的文件操作語句和函數(shù) 應(yīng)用舉例 文件概述 所謂文件 ， 是指記錄在外部介質(zhì)上的相關(guān)數(shù)據(jù)的集合 ， 并給此集合指定一個名稱 。 KeyDown和 KeyUp事件在程序中用于檢測一些鍵的特殊組合。 本章小結(jié) KeyPress事件可以用來對標(biāo)準(zhǔn)鍵盤編寫代碼來處理大多數(shù)按鍵。 按 B和 C輸出結(jié)果類似 ， 如圖 104所示 。H42 Then Print 松開 B鍵 End If If KeyCode = amp。H43 Then Print 壓下 C鍵 End If End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = amp。H41 Then Print 壓下 A鍵 End If If KeyCode = amp。 KeyUp事件 【 例 105】 編寫程序，顯示 KeyDown和 KeyUp事件的功能。下面只討論這種形式，形式如下： Private Sub Form_KeyUp（ KeyCode As Integer， Shift As Integer） … End Sub 其中的參數(shù) KeyCode和 Shift的含義同 KeyDown事件。和 KeyDown事件一樣， KeyUp事件也是返回鍵盤的直接狀態(tài)。H71 ShiftDown% = （ Shift And Shift） 0 AltDown% = (Shift And Alt) 0 F2Down% = (KeyCode = Key_F2) I