vb語(yǔ)言程序設(shè)計(jì)-vb第8章電子講稿-免費(fèi)閱讀
【正文】 檢查編號(hào)的通用過(guò)程 Function Cheno(no As String) As Boolean reo = Val(no) If reo 0 Or reo 999 Then MsgBox 輸入的職工號(hào)超出范圍 , 0, 檢查編號(hào) Cheno = True Else Cheno = False End If End Function ② 利用事件過(guò)程 Form_Load()來(lái)打開(kāi)文件和顯示第一個(gè)記錄 Private Sub Form_Load() Open For Random As 1 Len = Len(sal) Get 1, 1, sal = Format(1, 000) = = End Sub ③ 編寫“查詢”按鈕的 Click事件過(guò)程 Private Sub Command1_Click() If Cheno() Then Exit Sub If reo LOF(1) / Len(sal) Then MsgBox 無(wú)此記錄 Exit Sub End If Get 1, reo, sal = = Str() 39。只讀出 3個(gè)記錄 Get 1, i, nv Print 第 。 b$ 39。如果要重新從文件的開(kāi)頭讀數(shù)據(jù)，則先關(guān)閉文件后打開(kāi) 順序文件的讀出操作 程序代碼如下： Private Sub Form_Load() Show Open For Output As 1 a = 123 : b$ = “ABCD Write 1, a, b$ 39。設(shè)置焦點(diǎn) End Sub Private Sub Command2_Click() Close 1 End End Sub 程序運(yùn)行完成后，用 Windows記事本來(lái)打開(kāi)該順序文件，即可看到存入的文件內(nèi)容 說(shuō)明： 在顯示的文件內(nèi)容中，字符串 (學(xué)號(hào)、姓名 )兩邊的引號(hào)是系統(tǒng)自動(dòng)加入的。可以同時(shí)進(jìn)行讀或?qū)懖僮鞔嫒牒妥x出速度較快，數(shù)據(jù)容易更新 (3)二進(jìn)制文件 ：可理解為長(zhǎng)度為 1的特殊的隨機(jī)文件 文件類型 (1) 打開(kāi) (或新建 )文件 (2) 進(jìn)行讀、寫操作 系統(tǒng)設(shè)置文件指針，用來(lái)記住當(dāng)前讀寫的位置 (3) 關(guān)閉文件 文件處理的一般步驟 (Open) Open 文件名 [For 模式 ][Access 存取類型 ][鎖定 ] As []文件號(hào) [Len=記錄長(zhǎng)度 ] 說(shuō)明 ： (1)文件名 ； (2) 模式 用于指定文件訪問(wèn)的方式 ，包括： Append——從文件末尾添加 Binary—— Input——順序輸入 Output—— Random——隨機(jī)存取方式 (3)文件號(hào) (或稱文件緩沖區(qū) ) (4)存取類型 ：訪問(wèn)文件的類型 ，為 Read(只讀 )、 Write(只寫 )、 Read Write(讀寫 ) (5)鎖定 ：限制其他用戶或其他進(jìn)程對(duì)文件進(jìn)行讀寫操作 Shared(共享 )、 Lock Read(禁止讀 )、 Lock Write(禁止寫 )、 Lock Read Write(禁止讀寫 ) (6)Len：用來(lái)指定每個(gè)記錄的長(zhǎng)度 (字節(jié)數(shù) ) 示例： Open d:\ For Output As 1 文件的打開(kāi)和關(guān)閉 2. 關(guān)閉文件 (Close) 打開(kāi)的文件使用完后必須關(guān)閉。 Close [] 文件號(hào) 1 [,[] 文件號(hào) 2 …] ] 示例： Close 1 1. FreeFile 格式： FreeFile 功能：返回一個(gè)在程序中沒(méi)有使用的文件號(hào) 示例： FileNo=FreeFile Open D:\ For Output As FileNo 2. Seek語(yǔ)句和 Seek函數(shù) Seek函數(shù)的格式： Seek(文件號(hào) ) 功能：返回文件指針的當(dāng)前位置 對(duì)于隨機(jī)文件， Seek函數(shù)返回指針當(dāng)前所指的記錄號(hào)。字段之間通過(guò)逗號(hào)隔開(kāi) 2. Print語(yǔ)句 格式： Print 文件號(hào) [，表達(dá)式表 ] 作用與 Write一樣。存入 Close 1
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1