界面設(shè)計案例PPT學(xué)習(xí)教案

1、會計學(xué)1界面設(shè)計案例界面設(shè)計案例第1頁/共57頁 第2頁/共57頁第3頁/共57頁第4頁/共57頁第5頁/共57頁第6頁/共57頁第7頁/共57頁第8頁/共57頁MouseUp或或MouseDown 第9頁/共57頁了解隨機文件的操作：打開、讀了解隨機文件的操作：打開、讀/寫、關(guān)閉寫、關(guān)閉；了解文件操作的常用的語句和函數(shù)。了解文件操作的常用的語句和函數(shù)。第10頁/共57頁第11頁/共57頁10.1.1 驅(qū)動器列表（驅(qū)動器列表（DriveListBox） 驅(qū)動器列表框（驅(qū)動器列表框（DriveListBox） 控件是一種控件是一種下拉式列表框，通常只顯示當(dāng)前驅(qū)動器名稱，單下拉式列表框，通常只顯示

2、當(dāng)前驅(qū)動器名稱，單擊其右邊向下箭頭，就會下拉出計算機擁有的所擊其右邊向下箭頭，就會下拉出計算機擁有的所有磁盤驅(qū)動器，供用戶選擇。如圖所示。有磁盤驅(qū)動器，供用戶選擇。如圖所示。第12頁/共57頁1重要屬性重要屬性 Drive屬性是驅(qū)動器列表框控件最重要和常屬性是驅(qū)動器列表框控件最重要和常用的屬性，在運行時返回或設(shè)置所選定的驅(qū)動器用的屬性，在運行時返回或設(shè)置所選定的驅(qū)動器。該屬性在設(shè)計時不可用。該屬性在設(shè)計時不可用,只能在程序中被引用或只能在程序中被引用或設(shè)置。設(shè)置。使用格式：使用格式：object.Drive = 其中：其中：Object：對象表達式，其值是驅(qū)動器列表框的對：對象表達式，其值是驅(qū)

3、動器列表框的對象名。象名。：用來表示驅(qū)動器名的字符串表：用來表示驅(qū)動器名的字符串表達式。達式。第13頁/共57頁例如：例如： Drive1.drive=“D:”表示在驅(qū)動器列表框中選中表示在驅(qū)動器列表框中選中D盤。盤。可以付給可以付給Drive屬性一個字符串，但只有第一個字符有屬性一個字符串，但只有第一個字符有效。如果當(dāng)前計算機上沒有指定的驅(qū)動器，則會出錯。效。如果當(dāng)前計算機上沒有指定的驅(qū)動器，則會出錯。2重要事件重要事件Change事件事件 在程序運行時，當(dāng)選擇一個新的驅(qū)動器或通過代碼改變在程序運行時，當(dāng)選擇一個新的驅(qū)動器或通過代碼改變Drive屬性的設(shè)置時都會觸發(fā)驅(qū)動器列表框的屬性的設(shè)置時

4、都會觸發(fā)驅(qū)動器列表框的change事件發(fā)生。事件發(fā)生。Private sub Drive1_change()Dir1.path=Drive1.Drive End sub第14頁/共57頁10.1.2 目錄列表框（目錄列表框（DirListBox） 目錄列表框（目錄列表框（DirListBox） 控件用來顯控件用來顯示當(dāng)前驅(qū)動器目錄結(jié)構(gòu)及當(dāng)前目錄下的所有示當(dāng)前驅(qū)動器目錄結(jié)構(gòu)及當(dāng)前目錄下的所有子文件夾（子目錄），供用戶選擇其中一個子文件夾（子目錄），供用戶選擇其中一個目錄作為當(dāng)前目錄，如圖目錄作為當(dāng)前目錄，如圖10-3所示。在目錄所示。在目錄列表框中，如果用鼠標(biāo)雙擊某個目錄，就會列表框中，如果用鼠

5、標(biāo)雙擊某個目錄，就會顯示出該目錄下的所有子目錄。顯示出該目錄下的所有子目錄。第15頁/共57頁圖圖10-3 目錄列表框目錄列表框 圖圖10-4 WINDOWS子目錄結(jié)構(gòu)子目錄結(jié)構(gòu)第16頁/共57頁1常用屬性常用屬性Path屬性是目錄列表框控件的最常用的屬性，用于返屬性是目錄列表框控件的最常用的屬性，用于返回或設(shè)置當(dāng)前路徑。該屬性在設(shè)計時是不可用的?；鼗蛟O(shè)置當(dāng)前路徑。該屬性在設(shè)計時是不可用的。使用格式：使用格式：Object.Path = 其中：其中：Object：對象表達式，其值是目錄列表框的對象名。：對象表達式，其值是目錄列表框的對象名。：用來表示路徑名的字符串表達式。：用來表示路徑名的字符

6、串表達式。 例如，例如，Dir1.Path= C:Mydir。 缺省值是當(dāng)前路徑。缺省值是當(dāng)前路徑。第17頁/共57頁2重要事件重要事件Change事件事件與驅(qū)動器列表框一樣，在程序運行時，每當(dāng)改與驅(qū)動器列表框一樣，在程序運行時，每當(dāng)改變當(dāng)前目錄，即目錄列表框的變當(dāng)前目錄，即目錄列表框的Path屬性發(fā)生變屬性發(fā)生變化時，都要觸發(fā)其化時，都要觸發(fā)其Change事件發(fā)生。事件發(fā)生。Private sub Dir1_change()File1.path=Dir1.path End sub第18頁/共57頁10.1.3 文件列表框（文件列表框（FilelistBox）文件列表框（文件列表框（FileL

7、istBox）控件用來顯示）控件用來顯示 Path 屬屬性指定的目錄中的文件定位并列舉出來。該控件用性指定的目錄中的文件定位并列舉出來。該控件用來顯示所選擇文件類型的文件列表。來顯示所選擇文件類型的文件列表。1.常用屬性常用屬性Pattern屬性屬性用于返回或設(shè)置文件列表框所顯示的文件類型。可用于返回或設(shè)置文件列表框所顯示的文件類型。可在設(shè)計狀態(tài)設(shè)置或在程序運行時設(shè)置。缺省時表示在設(shè)計狀態(tài)設(shè)置或在程序運行時設(shè)置。缺省時表示所有文件。所有文件。設(shè)置形式為：設(shè)置形式為： Object.Pattern = value Object：指文件列表框名稱。：指文件列表框名稱。Value：是一個用來指定文件

8、類型的字符串表達式：是一個用來指定文件類型的字符串表達式，并可使用包含通配符（，并可使用包含通配符（“*”和和“？”）。）。第19頁/共57頁例如：例如：File1.Pattern= *.txt File1.Pattern= *.txt; *.Doc File1.Pattern= ?.txt注意注意：要指定顯示多個文件類型，使用：要指定顯示多個文件類型，使用“；”為為 分隔符分隔符 重新設(shè)置重新設(shè)置Pattern屬性引發(fā)屬性引發(fā)“PatternChange” 事件。事件。第20頁/共57頁例例10-1：使用三種文件系統(tǒng)控件組合起來，同：使用三種文件系統(tǒng)控件組合起來，同步顯示計算機中的文件系統(tǒng)。

9、步顯示計算機中的文件系統(tǒng)。具體步驟如下：具體步驟如下：（1）新建一個窗體。）新建一個窗體。（2）在窗體上添加驅(qū)動器列表框）在窗體上添加驅(qū)動器列表框Drive1,目錄目錄列表框列表框Dir1，文件列表框，文件列表框File1和組合框和組合框Combo1,如圖如圖10-6所示。所示。第21頁/共57頁第22頁/共57頁（3）在驅(qū)動器列表框、目錄列表框的）在驅(qū)動器列表框、目錄列表框的Change事件事件中添加代碼。中添加代碼。 當(dāng)驅(qū)動器列表框中的選擇發(fā)生變化時，目錄列表當(dāng)驅(qū)動器列表框中的選擇發(fā)生變化時，目錄列表框和文件列表框也應(yīng)同步變化，顯示相應(yīng)的內(nèi)容?？蚝臀募斜砜蛞矐?yīng)同步變化，顯示相應(yīng)的內(nèi)容。所

10、以，要在運行時改變目錄列表框和文件列表框的所以，要在運行時改變目錄列表框和文件列表框的Path屬性。編寫代碼如下：屬性。編寫代碼如下：Private Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd Sub Private Sub Dir1_Change()File1.Path = Dir1.PathEnd Sub第23頁/共57頁（4）編寫組合框的相關(guān)代碼。）編寫組合框的相關(guān)代碼。 組合框決定文件列表框中顯示的文件類型。組合框決定文件列表框中顯示的文件類型。即當(dāng)用戶在組合框中選定一個文件類型后，文件即當(dāng)用戶在組合框中選定一個文件類型后，文件列表框中

11、就只顯示該類型的文件。組合框的項目列表框中就只顯示該類型的文件。組合框的項目在窗體的在窗體的Load事件過程中裝入，相關(guān)代碼過程事件過程中裝入，相關(guān)代碼過程如下：如下：Private Sub Form_Load()Item = 所有文件所有文件(*.*)Combo1.AddItem Item + Space(20 - Len(Item) +*.*第24頁/共57頁Item = 文件窗體文件窗體(*.frm)Combo1.AddItem Item + Space(20 - Len(Item) + *.frmItem = 位圖文件位圖文件(*.bmp)Combo1.AddItem Item + S

12、pace(20 - Len(Item) + “*.bmpItem = 文本文件文本文件(*.txt)Combo1.AddItem Item + Space(20 - Len(Item) + *.txtEnd SubPrivate Sub Combo1_Click()File1.Pattern = Mid(Combo1.Text, 21)End Sub 第25頁/共57頁10.2.1 文件及其結(jié)構(gòu)文件及其結(jié)構(gòu) 文件是存儲在外部介質(zhì)上數(shù)據(jù)的集合，文件是存儲在外部介質(zhì)上數(shù)據(jù)的集合，它是按名進行存取的。磁盤文件是由數(shù)據(jù)記它是按名進行存取的。磁盤文件是由數(shù)據(jù)記錄組成。記錄是計算機處理數(shù)據(jù)的基本單位錄組成

13、。記錄是計算機處理數(shù)據(jù)的基本單位，它由一組具有共同屬性相互關(guān)聯(lián)的數(shù)據(jù)項，它由一組具有共同屬性相互關(guān)聯(lián)的數(shù)據(jù)項組成。在數(shù)據(jù)處理中，表示一件事或一個人組成。在數(shù)據(jù)處理中，表示一件事或一個人的某些屬性就可構(gòu)成一個記錄。的某些屬性就可構(gòu)成一個記錄。第26頁/共57頁學(xué)號姓名數(shù)學(xué)成績 語文成績 物理成績總分?jǐn)?shù)據(jù)項第27頁/共57頁10.2.2 文件分類文件分類 根據(jù)文件的存取方式及其組成結(jié)構(gòu)，將根據(jù)文件的存取方式及其組成結(jié)構(gòu)，將文件分成文件分成3種類型：種類型：（1）順序文件）順序文件（2）隨機文件）隨機文件（3）二進制文件）二進制文件第28頁/共57頁對于不同類型的文件，訪問的方式也不同。對于不同類型

14、的文件，訪問的方式也不同。1順序文件順序文件 順序文件（順序文件（Sequential File）是普通的文）是普通的文本文件。順序文件中的記錄按順序一個接一個本文件。順序文件中的記錄按順序一個接一個地排列。讀寫文件存取記錄時，都必須按記錄地排列。讀寫文件存取記錄時，都必須按記錄順序逐個進行。一行一條記錄（一項數(shù)據(jù)），順序逐個進行。一行一條記錄（一項數(shù)據(jù)），記錄可長可短，以記錄可長可短，以“換行換行”字符為分隔符號。字符為分隔符號。 第29頁/共57頁記錄1記錄2記錄3記錄N2隨機文件隨機文件 隨機文件（隨機文件（Random Access File）是）是可以按任意次序讀寫的文件，其中每個記

15、錄可以按任意次序讀寫的文件，其中每個記錄的長度必須相同。在這種文件結(jié)構(gòu)中，每個的長度必須相同。在這種文件結(jié)構(gòu)中，每個記錄都有其唯一的一個記錄號，所以在讀取記錄都有其唯一的一個記錄號，所以在讀取數(shù)據(jù)時，只要知道記錄號，便可以直接讀取數(shù)據(jù)時，只要知道記錄號，便可以直接讀取記錄。記錄。第30頁/共57頁3二進制文件二進制文件 二進制文件（二進制文件（Binaryfile）是字節(jié)的集合、它）是字節(jié)的集合、它直接把二進制碼存放在文件中。直接把二進制碼存放在文件中。 除了沒有數(shù)據(jù)類除了沒有數(shù)據(jù)類型或者記錄長度的含義以外，它與隨機訪問很相似型或者記錄長度的含義以外，它與隨機訪問很相似，如果把二進制文件中的每

16、一個字節(jié)看作是一條記，如果把二進制文件中的每一個字節(jié)看作是一條記錄的話，則二進制模式就成了隨機模式。錄的話，則二進制模式就成了隨機模式。 二進制訪問模式是以字節(jié)數(shù)來定位數(shù)據(jù)，在二進制訪問模式是以字節(jié)數(shù)來定位數(shù)據(jù)，在程序中可以按任何方式組織和訪問數(shù)據(jù)，對文件中程序中可以按任何方式組織和訪問數(shù)據(jù)，對文件中各字節(jié)數(shù)據(jù)直接進行存取。任何文件都可以用二進各字節(jié)數(shù)據(jù)直接進行存取。任何文件都可以用二進制模式訪問。制模式訪問。第31頁/共57頁第32頁/共57頁11.3.1 順序文件的打開與關(guān)閉順序文件的打開與關(guān)閉1打開順序文件打開順序文件打開文件是任何類型文件進行讀寫的第一步。打開文件是任何類型文件進行讀寫

17、的第一步。打開文件實質(zhì)上就是將文件讀入內(nèi)存。打開文件實質(zhì)上就是將文件讀入內(nèi)存。其使用格式如下：其使用格式如下：Open “文件名文件名” For 模式模式 As #文件號文件號 Len = 記錄長度記錄長度第33頁/共57頁（1）文件名：是指要訪問文件的路徑及名稱，如果）文件名：是指要訪問文件的路徑及名稱，如果文件處于當(dāng)前驅(qū)動器的當(dāng)前文件夾下，也可以只寫文件處于當(dāng)前驅(qū)動器的當(dāng)前文件夾下，也可以只寫文件名。文件名。（2）模式：指定文件的打開方式。有）模式：指定文件的打開方式。有Input,Append,Output,Random,Binary五種方式。五種方式。（3）文件號：是一個介于）文件號：

18、是一個介于1511之間的整數(shù)，文件之間的整數(shù)，文件名前面的名前面的“”號可有可無。打開文件時指定文件號可有可無。打開文件時指定文件號，文件關(guān)閉后釋放文件號。號，文件關(guān)閉后釋放文件號。第34頁/共57頁2、關(guān)閉文件、關(guān)閉文件Close 語句語句 對打開的文件進行各種操作后，必須將其關(guān)閉，對打開的文件進行各種操作后，必須將其關(guān)閉，否則將造成數(shù)據(jù)的丟失。否則將造成數(shù)據(jù)的丟失。文件被關(guān)閉以后，它所占用的文件號會被釋放，可供文件被關(guān)閉以后，它所占用的文件號會被釋放，可供以后的以后的Open語句使用。語句使用。使用格式如下：使用格式如下： Close #文件號列表文件號列表其中：其中：文件號：可選項，為文

19、件號列表，如：文件號：可選項，為文件號列表，如：#1, #2, #3，如果省略，則將關(guān)閉如果省略，則將關(guān)閉Open語句打開的所有活動文件語句打開的所有活動文件。例如：例如：Close #1,#2,#3 關(guān)閉關(guān)閉1號、號、2號、號、3號文件號文件 Close 關(guān)閉所有打開的文件關(guān)閉所有打開的文件第35頁/共57頁10.3. 2 創(chuàng)建新的順序文件創(chuàng)建新的順序文件Open 文件名文件名 For Output As #文件號文件號write #文件號文件號 ，數(shù)據(jù)列表，數(shù)據(jù)列表close #文件號文件號第36頁/共57頁說明：說明：for Output 打開方式。打開方式。如果該文件存在，則原來已有的

20、數(shù)據(jù)被抹去，即新寫如果該文件存在，則原來已有的數(shù)據(jù)被抹去，即新寫上的數(shù)據(jù)將原有的數(shù)據(jù)覆蓋。如果該文件不存在，則上的數(shù)據(jù)將原有的數(shù)據(jù)覆蓋。如果該文件不存在，則創(chuàng)建一個新的順序文件。創(chuàng)建一個新的順序文件。 write #文件號文件號“數(shù)據(jù)列表數(shù)據(jù)列表”是準(zhǔn)備寫入到文件中的是準(zhǔn)備寫入到文件中的數(shù)據(jù)，可以是變量名也可以是常數(shù)，數(shù)據(jù)之間用數(shù)據(jù)，可以是變量名也可以是常數(shù)，數(shù)據(jù)之間用“，”或或“；”隔開。隔開。Close #文件號文件號 關(guān)閉已打開的文件。關(guān)閉已打開的文件。第37頁/共57頁例例1：創(chuàng)建一個新的順序文為：創(chuàng)建一個新的順序文為c:cj.txtPrivate Sub Command1_Click

21、()Open c:cj.dat For Output As #1Write #1, xh, vb, vc, vfpWrite #1, 1, 80, 70, 90Close #1End sub第38頁/共57頁10.3. 3 向順序文件添加數(shù)據(jù)向順序文件添加數(shù)據(jù)Open 文件名文件名 For Append As #文件號文件號write #文件號文件號 ，數(shù)據(jù)列表，數(shù)據(jù)列表close #文件號文件號說明：說明：For Append對文件執(zhí)行寫操作時寫入的數(shù)據(jù)對文件執(zhí)行寫操作時寫入的數(shù)據(jù)將追加到文件尾部將追加到文件尾部.第39頁/共57頁例如：將數(shù)據(jù)追加到例如：將數(shù)據(jù)追加到c:cj.txt文件的尾

22、部文件的尾部。Private Sub Command1_Click()Open c:cj.txt For Append As #1Write #1, 2, 60, 70, 80Close #1End sub第40頁/共57頁10.3. 4 從已存在的順序文件中讀取數(shù)據(jù)從已存在的順序文件中讀取數(shù)據(jù)Open 文件名文件名 For Input As #文件號文件號Input #文件號文件號 ，變量名列表，變量名列表close #文件號文件號說明：說明：For Input以讀取方式打開文件。以讀取方式打開文件。Input #文件號文件號 ，該語句將從文件中讀出數(shù)據(jù)，并，該語句將從文件中讀出數(shù)據(jù)，并將讀

23、出的數(shù)據(jù)分別賦給指定的變量。將讀出的數(shù)據(jù)分別賦給指定的變量。第41頁/共57頁例例2：從文件：從文件c:cj.txt中讀出數(shù)據(jù)。中讀出數(shù)據(jù)。Private Sub Command1_Click()Open c:cj.txt For Input As #1For i = 1 To 3Input #1, a, b, cPrint a, b, cNext iClose #1End Sub第42頁/共57頁例例10-3 Print與與Write語句輸出數(shù)據(jù)結(jié)果比較。語句輸出數(shù)據(jù)結(jié)果比較。Private Sub Form_Click()Dim Str As String, Num As Integer

24、Open D:Myfile.dat For Output As 1Str = ABCDEFGNum = 11345Print #1, Str, NumWrite #1, Str, NumClose #1End Sub第43頁/共57頁第44頁/共57頁例例10-4 編程把一個文本框中的內(nèi)容，以文件編程把一個文本框中的內(nèi)容，以文件形式存入磁盤。形式存入磁盤。假定文本框的名稱為假定文本框的名稱為Mytxt，文件名，文件名為為Myfile.dat。方法方法1：把整個文本框的內(nèi)容一次性地寫入文：把整個文本框的內(nèi)容一次性地寫入文件。件。 Open Myfile.dat For Output As #1P

25、rint #1, Mytxt.Text Close #1第45頁/共57頁方法方法2：把整個文本框的內(nèi)容一個字符一個字符：把整個文本框的內(nèi)容一個字符一個字符地寫入文件。地寫入文件。Open Myfile.dat For Output As #1For i=1 To len(Mytxt.Text) Print #1,Mid(Mytxt.Text,i,1);Next iClose #1第46頁/共57頁例例10-5 編程將一文本文件的內(nèi)容讀到文本編程將一文本文件的內(nèi)容讀到文本框框.從現(xiàn)存文件中讀入數(shù)據(jù)，應(yīng)以順序從現(xiàn)存文件中讀入數(shù)據(jù)，應(yīng)以順序Input方方式打開該文件。然后使用式打開該文件。然后使用

26、 Input# 語句、語句、Line Input# 語句和語句和Input( )函數(shù)讀入到程序函數(shù)讀入到程序變量中。變量中。Input# 語句使用格式如下：語句使用格式如下： INPUT #文件號文件號,變量列表變量列表 Line Input# 語句使用格式如下：語句使用格式如下： LINE INPUT #文件號文件號,字符串變量字符串變量Input( )函數(shù)使用格式如下：函數(shù)使用格式如下：變量變量=INPUT$(讀取字符數(shù)讀取字符數(shù), #文件號文件號)第47頁/共57頁與讀文件操作有關(guān)的幾個函數(shù)與讀文件操作有關(guān)的幾個函數(shù):（1）Lof 函數(shù)函數(shù) Lof函數(shù)將返回某文件的字節(jié)數(shù)。例如，函數(shù)將返

27、回某文件的字節(jié)數(shù)。例如，LOF(1)返回返回#1文件的長度，如果返回文件的長度，如果返回0值，值，則表示該文件是一個空文件。則表示該文件是一個空文件。（2）Eof 函數(shù)函數(shù) Eof 函數(shù)將返回一個表示文件指針是否到達函數(shù)將返回一個表示文件指針是否到達文件末尾的標(biāo)志。如果到了文件末尾，文件末尾的標(biāo)志。如果到了文件末尾，Eof 函數(shù)返回函數(shù)返回TRUE(-1)，否則返回，否則返回FALSE(0)。第48頁/共57頁假定文本框名稱為假定文本框名稱為txtTest，文件名為，文件名為MYFILE.TXT?？??？梢酝ㄟ^下面三種方法來實現(xiàn)。以通過下面三種方法來實現(xiàn)。 方法方法1：一行一行讀：一行一行讀tx

28、tTest.Text Open MYFILE.TXT For Input As #1Do While Not EOF(1) Line Input #1, InputData txtTest.Text txtTest.Text + InputData+vbCrLf LoopClose #1第49頁/共57頁方法方法2：一次性讀：一次性讀txtTest.Text Open MYFILE.TXT For Input As #1 txtTest.Text = Input( LOF(1),1) Close #1方法方法3：一個個字符讀：一個個字符讀Dim InputData as String*1txtTest.Text Open MYFILE.TXT For Input As #1Close #1第50頁/共57頁Do While Not EOF(1) Input #1, InputData txtTest.Text txtTest.Text +InputDataLoop第51頁/共57頁1打開隨機文件打開隨機文件打開隨機文件格式為：打開隨機文件格式為：OPEN 文件名文件名 FOR Random As 文件號文件號 Len = 記錄長度記錄長度用用OPEN命令以命令以R