资料档案存取.PPTVIP

程式實例4成績檔隨機存取─利用隨機存取檔案登錄學生學號、姓名及國文、英文、數學成績。一、程式設計構想檔案名稱訂為SCORE.RND，程式開始執行時即開啟檔案，當結束程式執行時則關閉檔案。運用五個文字盒的欄位輸入學號、姓名及國文、英文、數學成績。運用使用者自訂型態Type...EndType宣告資料型態TypeScore結合五項資料成為檔案記錄的資料型態。安排命令鈕cmdPrev、cmdNext以變換顯示上一筆及下一筆記錄資料。【程式實例4】一、程式設計構想安排命令鈕以執行新增、寫入、清除及結束等功能：新增(cmdNew)─清除各文字盒內容，供新增記錄鍵入資料。寫入(cmdSave)─將輸入之學號、姓名及國文、英文、數學成績寫入檔案成為檔案中的一筆記錄。清除(cmdClear)─清除各文字盒內容。結束(cmdEnd)─結束程式執行。【程式實例4】一、程式設計構想(續1)安排標籤項顯示處理中之記錄筆數。安排標籤項顯示檔案中已有資料之記錄筆數。【程式實例4】二、表單配置【程式實例4】三、控制項設定逐一加入各控制項，並設定其屬性如下：設定表單屬性：Caption=成績檔隨機存取Name=frmEx4加入標籤項lblRecNo：Alignment=2CenterCaption=1Caption設為1，表示程式開始時將顯示之資料為第一筆加入標籤項lblRecCount：Alignment=2CenterCaption=0【程式實例4】三、控制項設定(續1)加入標籤項Label1～Label10，標題分別是：學號：、姓名：、國文：、英文：、數學：、成績─、第、筆、共、筆。FontBold=0False加入文字盒txtID、txtName、txtChinese、txtEnglish、txtMath：加入命令鈕cmdPrev：Caption=上一筆加入命令鈕cmdNext：Caption=下一筆【程式實例4】三、控制項設定(續2)加入命令鈕cmdNew：Caption=新增加入命令鈕cmdSave：Caption=寫入加入命令鈕cmdClear：Caption=清除加入命令鈕cmdQuit：Caption=結束【程式實例4】四、程式設計宣告資料型態加入程式模組Ex4.BAS，宣告資料型態TypeScore結合五項資料成為檔案記錄的資料型態。‘宣告檔案記錄的資料型態TypeTypeScore StudIdAsString*6 ‘學號 StudNameAsString*8 ‘姓名 ChineseAsSingle ‘國文 EnglishAsSingle ‘英文 MathAsSingle ‘數學EndType解說：這個資料型態的宣告設定TypeScore包含五項資料（六個位元組的學號、八個位元組的姓名及三個實數）合成一個特殊的資料型態,，以便爾後作為檔案記錄之用。【程式實例4】四、程式設計(續1)宣告檔案記錄變數在程式Ex4.FRM的程式碼宣告程序(declarations)中，加入下列變數宣告敘述。DimStudScoreAsTypeScore’宣告檔案記錄變數解說： 這個變數的宣告設定StudScore是TypeScore的資料型態,，用作一個檔案記錄。【程式實例4】四、程式設計(續2)程式開始執行將程式Ex4.FRM的事件程序Form_Load安排如下，當程式開始執行即開啟隨機存取檔案，並執行「讀取一筆記錄」與「辨識檔案中記錄筆數」兩個副程式。標籤項記錄筆數lblRecNo預設為1，表示程式開始時顯示之記錄為第一筆。【程式實例4】四、程式設計(續3)

--3.程式開始執行SubForm_Load()‘開啟隨機存取檔 OpenSCORE.RNDForRandomAs#1Len=Len(StudScore) ReadRecord ‘讀取一筆記錄 RecordNumberCheck ‘辨識檔案中記錄筆數EndSub

解說：隨機存取檔宜設定適當的記錄長度，運用函數Len取得檔案記錄變數StudScore的長度即是正確的記錄長度