vb05( 建立以文本文件為數(shù)據(jù)源的應(yīng)用程序)

1、項目單元項目單元5 建立以文本文件為數(shù)據(jù)源建立以文本文件為數(shù)據(jù)源的的“員工工資管理系統(tǒng)員工工資管理系統(tǒng)”目錄目錄5.1 問題引入問題引入 5.2 預備知識預備知識 5.3 問題分析問題分析 5.4 實現(xiàn)員工工資數(shù)據(jù)的讀取功能實現(xiàn)員工工資數(shù)據(jù)的讀取功能 5.5 實現(xiàn)員工工資數(shù)據(jù)的顯示功能實現(xiàn)員工工資數(shù)據(jù)的顯示功能 5.6 實現(xiàn)員工工資數(shù)據(jù)的保存功能實現(xiàn)員工工資數(shù)據(jù)的保存功能 5.7 實現(xiàn)員工工資數(shù)據(jù)的編輯功能實現(xiàn)員工工資數(shù)據(jù)的編輯功能5.8 文件操作應(yīng)用舉例文件操作應(yīng)用舉例5.10 本單元容易出錯的地方本單元容易出錯的地方5.11 課堂實訓和課堂練習課堂實訓和課堂練習5.1 問題引入問題引入5.

2、2 預備知識預備知識5.2 預備知識預備知識引用引用Scripting 類型庫類型庫 聲明相關(guān)的對象變量聲明相關(guān)的對象變量 創(chuàng)建相關(guān)的對象變量創(chuàng)建相關(guān)的對象變量 進行讀、寫操作進行讀、寫操作 1. 關(guān)閉文件（關(guān)閉文件（TextStream對象的對象的Close方法）方法） 5.2 預備知識預備知識打開或建立文件（打開或建立文件（Open Open 語句）語句） 進行讀、寫操作（進行讀、寫操作（Line Input #Line Input #、Write # Write # 語句等）語句等） 關(guān)閉文件（關(guān)閉文件（Close Close 語句）語句） 5.3 問題分析問題分析5.3 問題分析問題分

3、析控件數(shù)組控件數(shù)組cmd_Browse cmd_Browse 控件數(shù)組控件數(shù)組cmd_Edit cmd_Edit 控件控件cmd_Write cmd_Write 5.3問題分析問題分析數(shù)據(jù)輸入：數(shù)據(jù)輸入：Form_Load Form_Load 數(shù)據(jù)處理：數(shù)據(jù)處理：cmd_Browse_Click cmd_Edit_Click cmd_Browse_Click cmd_Edit_Click 數(shù)據(jù)輸出：數(shù)據(jù)輸出：界面輸出：界面輸出：Form_LoadForm_Load、cmd_Browse_Clickcmd_Browse_Click、cmd_Edit_Click cmd_Edit_Click 文件

4、輸出：文件輸出：cmd_Write_Click cmd_Write_Click 聲明工程級的通用過程聲明工程級的通用過程執(zhí)行對文件中數(shù)據(jù)的讀寫操作，可以與窗體界面分離；執(zhí)行對文件中數(shù)據(jù)的讀寫操作，可以與窗體界面分離；有助于程序的擴展，可以直接調(diào)用這些過程；有助于程序的擴展，可以直接調(diào)用這些過程；啟動對象啟動對象Sub MainSub Main5.3 問題分析問題分析Private Sub Form_Load() 從文件中讀取數(shù)據(jù)從文件中讀取數(shù)據(jù) 顯示第顯示第1個員工的工資數(shù)據(jù)個員工的工資數(shù)據(jù) 顯示員工的總?cè)藬?shù)和當前員工的順序號顯示員工的總?cè)藬?shù)和當前員工的順序號End SubPrivate Su

5、b cmd_Browse_Click(Index As Integer) Select Case IndexCase 0 第一位員工第一位員工Case 1 前一位員工前一位員工Case 2 后一位員工后一位員工Case 3 最后一位員工最后一位員工 End Select 顯示第顯示第n位員工的工資數(shù)據(jù)位員工的工資數(shù)據(jù) 顯示員工的總?cè)藬?shù)和當前員工的順序號顯示員工的總?cè)藬?shù)和當前員工的順序號End Sub5.3問題分析問題分析Private Sub cmd_Edit_Click(Index As Integer) Select Case IndexCase 0 在所有記錄的最后新增一條在所有記錄的最

6、后新增一條Case 1 修改當前記錄修改當前記錄Case 2 在當前記錄的位置插入一條記錄在當前記錄的位置插入一條記錄Case 3 刪除當前記錄刪除當前記錄 End Select 顯示第顯示第n位員工的工資數(shù)據(jù)位員工的工資數(shù)據(jù) 顯示員工的總?cè)藬?shù)和當前員工的順序號顯示員工的總?cè)藬?shù)和當前員工的順序號End SubPrivate Sub cmd_Write_Click() 向文件中寫入數(shù)據(jù)向文件中寫入數(shù)據(jù)End Sub 5.4 實現(xiàn)員工工資數(shù)據(jù)的讀取功能實現(xiàn)員工工資數(shù)據(jù)的讀取功能實現(xiàn)把實現(xiàn)把數(shù)據(jù)從外存（文本文件）讀到內(nèi)存（變量）數(shù)據(jù)從外存（文本文件）讀到內(nèi)存（變量）中的中的功能功能在標準模塊中聲明：

7、與員工工資數(shù)據(jù)有關(guān)的工程級變量在標準模塊中聲明：與員工工資數(shù)據(jù)有關(guān)的工程級變量和符號常量；和符號常量；在標準模塊中創(chuàng)建：從文本文件中讀出數(shù)據(jù)的通用過程在標準模塊中創(chuàng)建：從文本文件中讀出數(shù)據(jù)的通用過程 方法一：采用方法一：采用FSOFSO對象模型對象模型方法二：采用傳統(tǒng)文件方法二：采用傳統(tǒng)文件I/OI/O語句和函數(shù)語句和函數(shù) 5.4實現(xiàn)員工工資數(shù)據(jù)的讀取功能實現(xiàn)員工工資數(shù)據(jù)的讀取功能步驟一：引用步驟一：引用Scripting Scripting 類型庫類型庫 單擊單擊“工程工程”菜單中的菜單中的“引用引用”命令；命令；打開打開“引用引用”對話框；對話框；從從“可用的引用可用的引用”列表框中選擇列

8、表框中選擇“Microsoft Scripting Runtime”Microsoft Scripting Runtime”；步驟二：聲明相關(guān)的對象變量步驟二：聲明相關(guān)的對象變量Dim fso As New FileSystemObjectDim fso As New FileSystemObjectDim ts As TextStreamDim ts As TextStreamNewNew是一個關(guān)鍵字是一個關(guān)鍵字，它用于創(chuàng)建新對象。，它用于創(chuàng)建新對象。 5.4 實現(xiàn)員工工資數(shù)據(jù)的讀取功能實現(xiàn)員工工資數(shù)據(jù)的讀取功能步驟三：創(chuàng)建相關(guān)的對象步驟三：創(chuàng)建相關(guān)的對象Set ts = fso.OpenT

9、extFile(g_strFileName, ForReading) Set ts = fso.OpenTextFile(g_strFileName, ForReading) 用用SetSet語句創(chuàng)建對象的實例，把對象賦予其變量。語句創(chuàng)建對象的實例，把對象賦予其變量。其中，第二個參數(shù)可為下列三個常數(shù)之一其中，第二個參數(shù)可為下列三個常數(shù)之一 ForReadingForReading：以只讀模式打開文件。不能對此文件進行寫：以只讀模式打開文件。不能對此文件進行寫操作。操作。ForWritingForWriting：以只寫方式打開文件。不能對此文件進行讀：以只寫方式打開文件。不能對此文件進行讀操作。

10、操作。ForAppendingForAppending：打開文件并在文件末尾進行寫操作。：打開文件并在文件末尾進行寫操作。 5.4 實現(xiàn)員工工資數(shù)據(jù)的讀取功能實現(xiàn)員工工資數(shù)據(jù)的讀取功能步驟四：進行讀操作步驟四：進行讀操作 TextStream對象的對象的ReadLine方法方法步驟五：關(guān)閉文件步驟五：關(guān)閉文件 文件操作完畢，就要將文件關(guān)閉，這樣下一次文件操作完畢，就要將文件關(guān)閉，這樣下一次才能正確的創(chuàng)建文本流對象。才能正確的創(chuàng)建文本流對象。TextStream對象的對象的Close方法方法5.4 實現(xiàn)員工工資數(shù)據(jù)的讀取功能實現(xiàn)員工工資數(shù)據(jù)的讀取功能5.4 實現(xiàn)員工工資數(shù)據(jù)的讀取功能實現(xiàn)員工工資

11、數(shù)據(jù)的讀取功能用用Do While循環(huán)舉例循環(huán)舉例:i= 1 Do While i = 5 Print i i = i+1Loop 用用For 循環(huán)舉例循環(huán)舉例:For i = 1 to 5Print iNext I5.4 實現(xiàn)員工工資數(shù)據(jù)的讀取功能實現(xiàn)員工工資數(shù)據(jù)的讀取功能五個步驟中后三步都是在五個步驟中后三步都是在ReadFromFile_fso通用過程中實現(xiàn)通用過程中實現(xiàn)文件讀取：方法一文件讀?。悍椒ㄒ籔ublic Sub ReadFromFile_fso() 過程級變量過程級變量i, j: i表示第幾位員工，表示第幾位員工，j表示第幾項信息表示第幾項信息 Dim i As Intege

12、r, j As Integer FSO: 步驟三步驟三文本流的創(chuàng)建（讀方式）文本流的創(chuàng)建（讀方式） Set ts = fso.OpenTextFile(g_strFileName, ForReading) i = 0 Do循環(huán)循環(huán): 變量變量i 賦初值賦初值 Do While Not ts.AtEndOfStream Do循環(huán)循環(huán):執(zhí)行一次執(zhí)行一次,讀取一位員工數(shù)據(jù)讀取一位員工數(shù)據(jù) i = i + 1 Do循環(huán)循環(huán): 變量變量i 每次累加每次累加1 For j = 1 To gInfoNum For循環(huán)循環(huán):執(zhí)行一次執(zhí)行一次,讀取工資數(shù)據(jù)中的一項讀取工資數(shù)據(jù)中的一項 FSO: 步驟四步驟四文本

13、流的讀操作文本流的讀操作 g_vntArrWage(i, j) = ts.ReadLine Next Loop FSO: 步驟五步驟五文本流的關(guān)閉文本流的關(guān)閉 ts.Close g_intRecNum = iEnd Sub5.4實現(xiàn)員工工資數(shù)據(jù)的讀取功能實現(xiàn)員工工資數(shù)據(jù)的讀取功能步驟一：打開文件步驟一：打開文件Open 語句：對文件做任何語句：對文件做任何I/O（輸入（輸入/輸出）操作之前都必須先打開輸出）操作之前都必須先打開文件；文件；在內(nèi)存中為文件的讀寫分配一個緩沖區(qū)，并決定使用什么樣的訪問在內(nèi)存中為文件的讀寫分配一個緩沖區(qū)，并決定使用什么樣的訪問方式；方式；具體的具體的Open語句如下所

14、示：語句如下所示：Open g_strFileName For Input As #1 其中，打開方式：其中，打開方式：Input：從順序型文件中輸入（讀）字符；：從順序型文件中輸入（讀）字符；Output：把字符輸出（寫）到順序型文件，覆蓋寫；：把字符輸出（寫）到順序型文件，覆蓋寫；Append：把字符輸出（寫）到順序型文件的尾部，追加寫；：把字符輸出（寫）到順序型文件的尾部，追加寫；5.4 實現(xiàn)員工工資數(shù)據(jù)的讀取功能實現(xiàn)員工工資數(shù)據(jù)的讀取功能步驟二：進行讀操作步驟二：進行讀操作 Line Input # 語句：從已打開的順序文件中讀出一行中的語句：從已打開的順序文件中讀出一行中的所有字符（

15、不包括回車換行符），并將它分配給字符串所有字符（不包括回車換行符），并將它分配給字符串型變量；型變量； Line Input #文件號文件號, 變量名變量名其中，文件號應(yīng)該與之前其中，文件號應(yīng)該與之前Open語句中的文件號相對應(yīng)；語句中的文件號相對應(yīng)；步驟三：關(guān)閉文件步驟三：關(guān)閉文件打開一個文件（打開一個文件（Input、Output 或或 Append方式）之后，方式）之后，一旦要為其它類型的操作重新打開它，就必須先用一旦要為其它類型的操作重新打開它，就必須先用 Close 語句關(guān)閉它；語句關(guān)閉它；Close #文件號文件號5.5 實現(xiàn)員工工資數(shù)據(jù)的顯示功能實現(xiàn)員工工資數(shù)據(jù)的顯示功能 顯示第

16、顯示第n位員工的工資數(shù)據(jù)，并顯示員工的總?cè)藬?shù)和當前員工的順序號位員工的工資數(shù)據(jù)，并顯示員工的總?cè)藬?shù)和當前員工的順序號Private Sub DispWageInfo() Dim j As Integer For j = 1 To gInfoNum txt_WageInfo(j - 1) = g_vntArrWage(g_intNum, j) Next lbl_CountAll = 共共 & Str(g_intRecNum) & 位員工位員工 lbl_CountNum = 第第 & Str(g_intNum) & 位員工位員工End Sub程序一開始運行，就要求把

17、員工的工資數(shù)據(jù)顯示在相應(yīng)的文本框中，程序一開始運行，就要求把員工的工資數(shù)據(jù)顯示在相應(yīng)的文本框中，并在界面下方的標簽中顯示出員工的總?cè)藬?shù)和當前員工的順序號；并在界面下方的標簽中顯示出員工的總?cè)藬?shù)和當前員工的順序號；這些數(shù)據(jù)的顯示操作在之后還會被頻繁用到；這些數(shù)據(jù)的顯示操作在之后還會被頻繁用到；5.5 實現(xiàn)員工工資數(shù)據(jù)的顯示功能實現(xiàn)員工工資數(shù)據(jù)的顯示功能 Private Sub Form_Load() Dim i As Integer Call ReadFromFile_fso 文件讀取：方法一文件讀?。悍椒ㄒ?g_intNum = 1 Call DispWageInfo 顯示第顯示第1位員工工資

18、數(shù)據(jù)、員工的總?cè)藬?shù)位員工工資數(shù)據(jù)、員工的總?cè)藬?shù)和當前員工的順序號和當前員工的順序號 For i = 1 To gInfoNum txt_WageInfo(i - 1).Enabled = False Next cmd_Write.Visible = FalseEnd Sub5.5 實現(xiàn)員工工資數(shù)據(jù)的顯示功能實現(xiàn)員工工資數(shù)據(jù)的顯示功能 Private Sub cmd_Browse_Click(Index As Integer) Select Case Index Case 0 第一位員工第一位員工 g_intNum = 1 Case 1 前一位員工前一位員工 If g_intNum = g_in

19、tRecNum Then MsgBox 已是最后一位員工已是最后一位員工! Else g_intNum = g_intNum + 1 End If Case 3 最后一位員工最后一位員工 g_intNum = g_intRecNum End Select Call DispWageInfo 顯示第顯示第n位員工工資數(shù)據(jù)、員工的總?cè)藬?shù)和當前員工的順序號位員工工資數(shù)據(jù)、員工的總?cè)藬?shù)和當前員工的順序號End Sub 5.6 實現(xiàn)員工工資數(shù)據(jù)的保存功能實現(xiàn)員工工資數(shù)據(jù)的保存功能 5.6 實現(xiàn)員工工資數(shù)據(jù)的保存功能實現(xiàn)員工工資數(shù)據(jù)的保存功能 將新增員工的工資數(shù)據(jù)插入到文件中間的某個位置；將新增員工的工資

20、數(shù)據(jù)插入到文件中間的某個位置；對現(xiàn)有員工工資數(shù)據(jù)進行修改、刪除；對現(xiàn)有員工工資數(shù)據(jù)進行修改、刪除；說明：說明：順序型文件操作模式，只能從上到下逐條順序進行；順序型文件操作模式，只能從上到下逐條順序進行；要在存儲工資數(shù)據(jù)的二維數(shù)組中完成了相應(yīng)的操作后，要在存儲工資數(shù)據(jù)的二維數(shù)組中完成了相應(yīng)的操作后，才能執(zhí)行文件的覆蓋寫入操作；才能執(zhí)行文件的覆蓋寫入操作；用重新把整個數(shù)組寫入文件的方式來實現(xiàn)用重新把整個數(shù)組寫入文件的方式來實現(xiàn)；5.6 實現(xiàn)員工工資數(shù)據(jù)的保存功能實現(xiàn)員工工資數(shù)據(jù)的保存功能 Public Sub WriteToFile_fso() Dim i As Integer, j As Int

21、eger FSO: 步驟三步驟三文本流的創(chuàng)建（覆蓋寫方式）文本流的創(chuàng)建（覆蓋寫方式） Set ts = fso.OpenTextFile(g_strFileName, ForWriting) For i = 1 To g_intRecNum 外層循環(huán)外層循環(huán):執(zhí)行一次執(zhí)行一次,寫入一位員工的工資數(shù)據(jù)寫入一位員工的工資數(shù)據(jù) For j = 1 To gInfoNum 內(nèi)層循環(huán)內(nèi)層循環(huán):執(zhí)行一次執(zhí)行一次,寫入工資數(shù)據(jù)中的一項信息寫入工資數(shù)據(jù)中的一項信息 ts.WriteLine g_vntArrWage(i, j) FSO: 步驟四步驟四文本流的寫操作文本流的寫操作 Next Next ts.Cl

22、ose FSO: 步驟五步驟五文本流的關(guān)閉文本流的關(guān)閉End Sub覆蓋寫入說明：FSO對象模型的處理過程包括五個步驟，其中，第一步“引用”必須要在編寫具體代碼之前完成的；第二步“聲明”是將相關(guān)對象的聲明放在標準模塊中的通用聲明部分；5.6 實現(xiàn)員工工資數(shù)據(jù)的保存功能實現(xiàn)員工工資數(shù)據(jù)的保存功能 Public Sub WriteToFile_IO() Dim i As Integer, j As Integer 傳統(tǒng)文件傳統(tǒng)文件I/O: 步驟一步驟一文件打開（覆蓋寫方式）文件打開（覆蓋寫方式） Open g_strFileName For Output As #1 For i = 1 To g_

23、intRecNum 外層循環(huán)外層循環(huán):執(zhí)行一次執(zhí)行一次,寫入一位員工的工資數(shù)據(jù)寫入一位員工的工資數(shù)據(jù) For j = 1 To gInfoNum 內(nèi)層循環(huán)內(nèi)層循環(huán):執(zhí)行一次執(zhí)行一次,寫入工資數(shù)據(jù)中的一項信息寫入工資數(shù)據(jù)中的一項信息 Print #1, g_vntArrWage(i, j) 傳統(tǒng)文件傳統(tǒng)文件I/O: 步驟二步驟二文件寫操作文件寫操作 Next Next Close #1 傳統(tǒng)文件傳統(tǒng)文件I/O: 步驟三步驟三文件關(guān)閉文件關(guān)閉End Sub覆蓋寫入5.6 實現(xiàn)員工工資數(shù)據(jù)的保存功能實現(xiàn)員工工資數(shù)據(jù)的保存功能 新增員工的工資數(shù)據(jù)放在文件的最后；新增員工的工資數(shù)據(jù)放在文件的最后； 文件

24、中原有的數(shù)據(jù)會全部予以保留的情況；文件中原有的數(shù)據(jù)會全部予以保留的情況；說明：說明：在存儲工資數(shù)據(jù)的二維數(shù)組中完成了相應(yīng)的操作后，在存儲工資數(shù)據(jù)的二維數(shù)組中完成了相應(yīng)的操作后，只把最后一位員工的工資數(shù)據(jù)記錄追加寫入文件；只把最后一位員工的工資數(shù)據(jù)記錄追加寫入文件；本次寫入的數(shù)據(jù)就會添加到文件的末尾；本次寫入的數(shù)據(jù)就會添加到文件的末尾；5.6 實現(xiàn)員工工資數(shù)據(jù)的保存功能實現(xiàn)員工工資數(shù)據(jù)的保存功能 Public Sub AppendToFile_fso() Dim i As Integer, j As Integer FSO: 步驟三步驟三文本流的創(chuàng)建（追加寫方式）文本流的創(chuàng)建（追加寫方式） Se

25、t ts = fso.OpenTextFile(g_strFileName, ForAppending) For j = 1 To gInfoNum For循環(huán)循環(huán):執(zhí)行一次執(zhí)行一次,寫入工資數(shù)據(jù)中寫入工資數(shù)據(jù)中一項信息一項信息 ts.WriteLine g_vntArrWage(g_intRecNum, j) FSO: 步步驟四驟四文本流的寫操作文本流的寫操作 Next ts.Close FSO: 步驟五步驟五文本流的關(guān)閉文本流的關(guān)閉End Sub追加寫入5.6 實現(xiàn)員工工資數(shù)據(jù)的保存功能實現(xiàn)員工工資數(shù)據(jù)的保存功能 Public Sub AppendToFile_IO() Dim j As

26、Integer 傳統(tǒng)文件傳統(tǒng)文件I/O: 步驟一步驟一文件打開（追加寫方式）文件打開（追加寫方式） Open g_strFileName For Append As #1 For j = 1 To gInfoNum For循環(huán)循環(huán):執(zhí)行一次執(zhí)行一次,寫入工資數(shù)寫入工資數(shù)據(jù)中的一項信息據(jù)中的一項信息 傳統(tǒng)文件傳統(tǒng)文件I/O: 步驟二步驟二文件的寫操作文件的寫操作 Print #1, g_vntArrWage(g_intRecNum, j) Next Close #1 傳統(tǒng)文件傳統(tǒng)文件I/O: 步驟三步驟三文件關(guān)閉文件關(guān)閉End Sub追加寫入5. 7 實現(xiàn)員工工資數(shù)據(jù)的編輯功能實現(xiàn)員工工資數(shù)據(jù)的

27、編輯功能 聲明兩個模塊級變量聲明兩個模塊級變量m_blnDele、m_blnWrite 數(shù)據(jù)類型都是布爾（邏輯）型數(shù)據(jù)類型都是布爾（邏輯）型區(qū)別編輯操作類型：新增、插入、修改、刪除區(qū)別編輯操作類型：新增、插入、修改、刪除m_blnDele：表示編輯數(shù)據(jù)的方式：表示編輯數(shù)據(jù)的方式m_blnWrite：表示數(shù)據(jù)寫入的方式：表示數(shù)據(jù)寫入的方式 m_blnWrite = True 初始化為覆蓋寫入方式初始化為覆蓋寫入方式 m_blnDele = False 初始化為非刪除操作初始化為非刪除操作 fra_Browse.Visible = False 瀏覽瀏覽/編輯框架不可見編輯框架不可見 fra_Edit.Visible = False cmd_Write.Visible = True 保存數(shù)據(jù)按鈕可用保存數(shù)據(jù)按鈕可用5