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

項目單元5建立以文本文件為數(shù)據(jù)源的“員工工資管理系統(tǒng)”師生共勉笑聲給生活帶來甜美，使它像玫瑰園中的花兒一樣芬芳。

目錄5.1問題引入5.2預(yù)備知識5.3問題分析5.4實現(xiàn)員工工資數(shù)據(jù)的讀取功能5.5實現(xiàn)員工工資數(shù)據(jù)的顯示功能5.6實現(xiàn)員工工資數(shù)據(jù)的保存功能5.7實現(xiàn)員工工資數(shù)據(jù)的編輯功能5.8文件操作應(yīng)用舉例5.10本單元容易出錯的地方5.11課堂實訓(xùn)和課堂練習(xí)師生共勉笑聲給生活帶來甜美，使它像玫瑰園中的花兒一樣芬芳。

5.1問題引入在之前編寫的“員工工資管理系統(tǒng)”中，工資的信息存放在有格式的數(shù)據(jù)庫文件中。但是計算機(jī)不僅僅可以處理存放在數(shù)據(jù)庫的文件，還可以對不同的數(shù)據(jù)，如文本文件等的數(shù)據(jù)進(jìn)行加工、處理，并且產(chǎn)生相應(yīng)的結(jié)果進(jìn)行輸出。例如：采集一組需要控制的數(shù)據(jù)進(jìn)行處理等等。本單元就對如何處理文本文件的數(shù)據(jù)提出解決的辦法。5.2預(yù)備知識寫數(shù)據(jù)：把內(nèi)存中的數(shù)據(jù)傳輸?shù)较嚓P(guān)聯(lián)的外部設(shè)備（例如磁盤等）并作為文件存放的操作；讀數(shù)據(jù)：把數(shù)據(jù)文件中的數(shù)據(jù)傳輸?shù)絻?nèi)存程序中的操作；文件：記錄在外部介質(zhì)上的數(shù)據(jù)的集合順序型：適用于讀寫在連續(xù)塊中的文本文件；隨機(jī)型：適用于讀寫有固定長度記錄結(jié)構(gòu)的文本文件或者二進(jìn)制文件；二進(jìn)制型：適用于讀寫任意有結(jié)構(gòu)的文件；文件訪問類型5.2預(yù)備知識引用Scripting類型庫聲明相關(guān)的對象變量創(chuàng)建相關(guān)的對象變量進(jìn)行讀、寫操作關(guān)閉文件（TextStream對象的Close方法）

FileSystemObject(FSO)對象模型編程5.2預(yù)備知識打開或建立文件（Open語句）進(jìn)行讀、寫操作（LineInput#、Write#語句等）關(guān)閉文件（Close語句）傳統(tǒng)文件I/O處理5.3問題分析利用文本文件進(jìn)行員工工資數(shù)據(jù)管理的應(yīng)用程序在程序運行時，將存放于文本文件中的員工工資數(shù)據(jù)讀出，實現(xiàn)瀏覽顯示功能；對這些數(shù)據(jù)進(jìn)行修改、刪除、添加、插入等編輯操作；將更新后的員工工資數(shù)據(jù)再寫入文件；任務(wù)分析：5.3問題分析控件數(shù)組cmd_Browse控件數(shù)組cmd_Edit控件cmd_Write界面運行效果如下：5.3問題分析數(shù)據(jù)輸入：Form_Load數(shù)據(jù)處理：cmd_Browse_Clickcmd_Edit_Click數(shù)據(jù)輸出：界面輸出：Form_Load、cmd_Browse_Click、cmd_Edit_Click文件輸出：cmd_Write_Click聲明工程級的通用過程執(zhí)行對文件中數(shù)據(jù)的讀寫操作，可以與窗體界面分離；有助于程序的擴(kuò)展，可以直接調(diào)用這些過程；啟動對象SubMain創(chuàng)建程序主窗體和事件過程代碼框架：5.3問題分析PrivateSubForm_Load()'從文件中讀取數(shù)據(jù)

'顯示第1個員工的工資數(shù)據(jù)

'顯示員工的總?cè)藬?shù)和當(dāng)前員工的順序號EndSubPrivateSubcmd_Browse_Click(IndexAsInteger)SelectCaseIndex Case0'第一位員工

Case1'前一位員工

Case2'后一位員工

Case3'最后一位員工

EndSelect

'顯示第n位員工的工資數(shù)據(jù)

'顯示員工的總?cè)藬?shù)和當(dāng)前員工的順序號EndSub框架代碼：5.3問題分析PrivateSubcmd_Edit_Click(IndexAsInteger)SelectCaseIndex Case0'在所有記錄的最后新增一條

Case1'修改當(dāng)前記錄

Case2'在當(dāng)前記錄的位置插入一條記錄

Case3'刪除當(dāng)前記錄

EndSelect

'顯示第n位員工的工資數(shù)據(jù)

'顯示員工的總?cè)藬?shù)和當(dāng)前員工的順序號EndSubPrivateSubcmd_Write_Click()'向文件中寫入數(shù)據(jù)EndSub框架代碼：5.4實現(xiàn)員工工資數(shù)據(jù)的讀取功能實現(xiàn)把數(shù)據(jù)從外存（文本文件）讀到內(nèi)存（變量）中的功能在標(biāo)準(zhǔn)模塊中聲明：與員工工資數(shù)據(jù)有關(guān)的工程級變量和符號常量；在標(biāo)準(zhǔn)模塊中創(chuàng)建：從文本文件中讀出數(shù)據(jù)的通用過程方法一：采用FSO對象模型方法二：采用傳統(tǒng)文件I/O語句和函數(shù)編寫從文本文件中讀出數(shù)據(jù)的通用過程5.4實現(xiàn)員工工資數(shù)據(jù)的讀取功能步驟一：引用Scripting類型庫單擊“工程”菜單中的“引用”命令；打開“引用”對話框；從“可用的引用”列表框中選擇“MicrosoftScriptingRuntime”；步驟二：聲明相關(guān)的對象變量

DimfsoAsNewFileSystemObject DimtsAsTextStream

New是一個關(guān)鍵字，它用于創(chuàng)建新對象。方法一：采用FSO對象模型5.4實現(xiàn)員工工資數(shù)據(jù)的讀取功能步驟三：創(chuàng)建相關(guān)的對象

Setts=fso.OpenTextFile(g_strFileName,ForReading)

用Set語句創(chuàng)建對象的實例，把對象賦予其變量。 其中，第二個參數(shù)可為下列三個常數(shù)之一ForReading：以只讀模式打開文件。不能對此文件進(jìn)行寫操作。ForWriting：以只寫方式打開文件。不能對此文件進(jìn)行讀操作。ForAppending：打開文件并在文件末尾進(jìn)行寫操作。5.4實現(xiàn)員工工資數(shù)據(jù)的讀取功能步驟四：進(jìn)行讀操作

TextStream對象的ReadLine方法步驟五：關(guān)閉文件文件操作完畢，就要將文件關(guān)閉，這樣下一次才能正確的創(chuàng)建文本流對象。TextStream對象的Close方法5.4實現(xiàn)員工工資數(shù)據(jù)的讀取功能數(shù)組的應(yīng)用結(jié)合后面的第6單元內(nèi)容定義二維數(shù)組: Dim

g_vntArrWage(5,50)

使用二維數(shù)組： 存放第1個人的第1個信息

g_vntArrWage(1,1)=“Helen”

5.4實現(xiàn)員工工資數(shù)據(jù)的讀取功能循環(huán)的應(yīng)用（結(jié)合后面的第6單元內(nèi)容）For循環(huán)變量=初值To終值[Step步長]<循環(huán)體>Next[循環(huán)變量]用DoWhile循環(huán)舉例:i=1DoWhilei<=5Printii=i+1Loop控制循環(huán)的變量賦初值DoWhile循環(huán)條件

<循環(huán)體>

控制循環(huán)的變量賦值Loop用For循環(huán)舉例:Fori=1to5 PrintiNextI5.4實現(xiàn)員工工資數(shù)據(jù)的讀取功能五個步驟中后三步都是在ReadFromFile_fso通用過程中實現(xiàn)'文件讀?。悍椒ㄒ籔ublicSubReadFromFile_fso()

'過程級變量i,j:i表示第幾位員工，j表示第幾項信息

DimiAsInteger,jAsInteger

'FSO:步驟三——文本流的創(chuàng)建（讀方式）

Setts=fso.OpenTextFile(g_strFileName,ForReading)i=0 'Do循環(huán):變量i賦初值

DoWhileNotts.AtEndOfStream'Do循環(huán):執(zhí)行一次,讀取一位員工數(shù)據(jù)

i=i+1 'Do循環(huán):變量i每次累加1Forj=1TogInfoNum 'For循環(huán):執(zhí)行一次,讀取工資數(shù)據(jù)中的一項

'FSO:步驟四——文本流的讀操作

g_vntArrWage(i,j)=ts.ReadLineNextLoop'FSO:步驟五——文本流的關(guān)閉

ts.Closeg_intRecNum=iEndSub5.4實現(xiàn)員工工資數(shù)據(jù)的讀取功能步驟一：打開文件Open語句：對文件做任何I/O（輸入/輸出）操作之前都必須先打開文件；在內(nèi)存中為文件的讀寫分配一個緩沖區(qū)，并決定使用什么樣的訪問方式；具體的Open語句如下所示：Openg_strFileNameForInputAs#1

其中，打開方式：Input：從順序型文件中輸入（讀）字符；Output：把字符輸出（寫）到順序型文件，覆蓋寫；Append：把字符輸出（寫）到順序型文件的尾部，追加寫；方法二：采用傳統(tǒng)文件I/O語句和函數(shù)進(jìn)行讀文件

5.4實現(xiàn)員工工資數(shù)據(jù)的讀取功能步驟二：進(jìn)行讀操作LineInput#語句：從已打開的順序文件中讀出一行中的所有字符（不包括回車換行符），并將它分配給字符串型變量；

LineInput#文件號,變量名 其中，文件號應(yīng)該與之前Open語句中的文件號相對應(yīng)；步驟三：關(guān)閉文件打開一個文件（Input、Output或Append方式）之后，一旦要為其它類型的操作重新打開它，就必須先用Close語句關(guān)閉它；

Close[#]文件號5.5實現(xiàn)員工工資數(shù)據(jù)的顯示功能'顯示第n位員工的工資數(shù)據(jù)，并顯示員工的總?cè)藬?shù)和當(dāng)前員工的順序號PrivateSubDispWageInfo()DimjAsInteger

Forj=1TogInfoNum

txt_WageInfo(j-1)=g_vntArrWage(g_intNum,j)Nextlbl_CountAll="共"&Str(g_intRecNum)&"位員工"lbl_CountNum="第"&Str(g_intNum)&"位員工"EndSub編寫顯示員工工資數(shù)據(jù)以及相關(guān)數(shù)據(jù)的通用過程

程序一開始運行，就要求把員工的工資數(shù)據(jù)顯示在相應(yīng)的文本框中，并在界面下方的標(biāo)簽中顯示出員工的總?cè)藬?shù)和當(dāng)前員工的順序號；這些數(shù)據(jù)的顯示操作在之后還會被頻繁用到；5.5實現(xiàn)員工工資數(shù)據(jù)的顯示功能PrivateSubForm_Load()DimiAsIntegerCallReadFromFile_fso''文件讀?。悍椒ㄒ?/p>

g_intNum=1CallDispWageInfo'顯示第1位員工工資數(shù)據(jù)、員工的總?cè)藬?shù)和當(dāng)前員工的順序號

Fori=1TogInfoNum

txt_WageInfo(i-1).Enabled=FalseNextcmd_Write.Visible=FalseEndSub編寫Form_Load事件過程

5.5實現(xiàn)員工工資數(shù)據(jù)的顯示功能PrivateSubcmd_Browse_Click(IndexAsInteger)SelectCaseIndexCase0'第一位員工

g_intNum=1Case1'前一位員工

Ifg_intNum<=1ThenMsgBox"已是第一位員工!"Elseg_intNum=g_intNum-1EndIfCase2'后一位員工

Ifg_intNum>=g_intRecNumThenMsgBox"已是最后一位員工!"Elseg_intNum=g_intNum+1EndIfCase3'最后一位員工

g_intNum=g_intRecNumEndSelectCallDispWageInfo‘顯示第n位員工工資數(shù)據(jù)、員工的總?cè)藬?shù)和當(dāng)前員工的順序號EndSub

編寫瀏覽員工工資數(shù)據(jù)的cmd_Browse_Click事件過程

5.6實現(xiàn)員工工資數(shù)據(jù)的保存功能文件中的員工工資數(shù)據(jù)能在窗體上顯示、瀏覽，同時，程序還具有編輯功能：增加新員工的工資數(shù)據(jù)；對某位現(xiàn)有員工的工資數(shù)據(jù)進(jìn)行修改或直接刪除；編輯的結(jié)果只有寫到文件中才能真正地保存下來，所以這些功能最終都可以歸結(jié)為文件的寫入操作；覆蓋寫入追加寫入

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

5.6實現(xiàn)員工工資數(shù)據(jù)的保存功能PublicSubWriteToFile_fso()DimiAsInteger,jAsInteger

'FSO:步驟三——文本流的創(chuàng)建（覆蓋寫方式）

Setts=fso.OpenTextFile(g_strFileName,ForWriting)Fori=1Tog_intRecNum'外層循環(huán):執(zhí)行一次,寫入一位員工的工資數(shù)據(jù)

Forj=1TogInfoNum'內(nèi)層循環(huán):執(zhí)行一次,寫入工資數(shù)據(jù)中的一項信息

ts.WriteLineg_vntArrWage(i,j)'FSO:步驟四——文本流的寫操作

NextNextts.Close'FSO:步驟五——文本流的關(guān)閉EndSub'文件覆蓋寫入：方法一覆蓋寫入說明：FSO對象模型的處理過程包括五個步驟，其中，第一步“引用”必須要在編寫具體代碼之前完成的；第二步“聲明”是將相關(guān)對象的聲明放在標(biāo)準(zhǔn)模塊中的通用聲明部分；5.6實現(xiàn)員工工資數(shù)據(jù)的保存功能PublicSubWriteToFile_IO()DimiAsInteger,jAsInteger

'傳統(tǒng)文件I/O:步驟一——文件打開（覆蓋寫方式）

Openg_strFileNameForOutputAs#1Fori=1Tog_intRecNum'外層循環(huán):執(zhí)行一次,寫入一位員工的工資數(shù)據(jù)

Forj=1TogInfoNum'內(nèi)層循環(huán):執(zhí)行一次,寫入工資數(shù)據(jù)中的一項信息

Print#1,g_vntArrWage(i,j)'傳統(tǒng)文件I/O:步驟二——文件寫操作

NextNextClose#1'傳統(tǒng)文件I/O:步驟三——文件關(guān)閉EndSub'文件覆蓋寫入：方法二覆蓋寫入5.6實現(xiàn)員工工資數(shù)據(jù)的保存功能新增員工的工資數(shù)據(jù)放在文件的最后；

文件中原有的數(shù)據(jù)會全部予以保留的情況；說明：在存儲工資數(shù)據(jù)的二維數(shù)組中完成了相應(yīng)的操作后，只把最后一位員工的工資數(shù)據(jù)記錄追加寫入文件；本次寫入的數(shù)據(jù)就會添加到文件的末尾；編寫在文本文件末尾追加寫入數(shù)據(jù)的通用過程

5.6實現(xiàn)員工工資數(shù)據(jù)的保存功能PublicSubAppendToFile_fso()DimiAsInteger,jAsInteger

'FSO:步驟三——文本流的創(chuàng)建（追加寫方式）

Setts=fso.OpenTextFile(g_strFileName,ForAppending)Forj=1TogInfoNum'For循環(huán):執(zhí)行一次,寫入工資數(shù)據(jù)中一項信息

ts.WriteLineg_vntArrWage(g_intRecNum,j)'FSO:步驟四——文本流的寫操作

Nextts.Close'FSO:步驟五——文本流的關(guān)閉EndSub'文件追加寫入：方法一追加寫入5.6實現(xiàn)員工工資數(shù)據(jù)的保存功能PublicSubAppendToFile_IO()DimjAsInteger

'傳統(tǒng)文件I/O:步驟一——文件打開（追加寫方式）

Openg_strFileNameForAppendAs#1Forj=1TogInfoNum'For循環(huán):執(zhí)行一次,寫入工資數(shù)據(jù)中的一項信息

'傳統(tǒng)文件I/O:步驟二——文件的寫操作

Print#1,g_vntArrWage(g_intRecNum,j)NextClose#1'傳統(tǒng)文件I/O:步驟三——文件關(guān)閉EndSub‘文件追加寫入：方法二追加寫入5.7實現(xiàn)員工工資數(shù)據(jù)的編輯功能聲明兩個模塊級變量m_blnDele、m_blnWrite數(shù)據(jù)類型都是布爾（邏輯）型區(qū)別編輯操作類型：新增、插入、修改、刪除m_blnDele：表示編輯數(shù)據(jù)的方式m_blnWrite：表示數(shù)據(jù)寫入的方式

m_blnWrite=True '初始化為覆蓋寫入方式

m_blnDele=False '初始化為非刪除操作

fra_Browse.Visible=False '瀏覽/編輯框架不可見

fra_Edit.Visible=Falsecmd_Write.Visible=True '保存數(shù)據(jù)按鈕可用編寫編輯按鈕的cmd_Edit_Click事件過程

5.7實現(xiàn)員工工資數(shù)據(jù)的編輯功能新增一條工資記錄的代碼段修改一條工資記錄的代碼段

修改一條工資記錄的代碼段刪除一條工資記錄的代碼段數(shù)組操作5.7實現(xiàn)員工工資數(shù)據(jù)的編輯功能PrivateSubcmd_Write_Click()DimiAsIntegerIfm_blnDele=FalseThenFori=1TogInfoNum '將文本框中的內(nèi)容（當(dāng)前員工工資數(shù)據(jù)）存入數(shù)組

g_vntArrWage(g_intNum,i)=txt_WageInfo(i-1)NextEndIfIfm_blnWrite=TrueThen'向文件中寫入數(shù)據(jù)

CallWriteToFile_fso'文件覆蓋寫入：方法一

ElseCallAppendToFile_fso'文件追加寫入：方法一

EndIffra_Browse.Visible=Tr