大學(xué)軟件開發(fā)與應(yīng)用課程PPtRJ434VB程序文件C課件

1、4.3.4 VB 程序文件VB 應(yīng)用程序的組成項(xiàng)目（或工程）文件（.vbp）：存儲(chǔ)總體信息項(xiàng)目（或工程）組成文件，包括窗體文件（.frm，至少一個(gè)）模塊文件（.bas或.cls，可選）資源文件（.res，可選）可執(zhí)行文件（.exe）：可脫離 VB 環(huán)境運(yùn)行， 由 文件 / 生成XXX. EXE 命令編譯生成后移14.3.4 VB 程序文件VB 應(yīng)用程序的組成14.3.4 VB 程序文件窗體文件（.frm） 用于定義各種窗口標(biāo)準(zhǔn)模塊文件（.bas） 用于聲明VB應(yīng)用程序中使用的數(shù)據(jù)類型、全局變量、公用常量、公用函數(shù)和外部過(guò)程等24.3.4 VB 程序文件窗體文件（.frm） 用變量、函數(shù)、過(guò)程變

2、量局部變量 指只能在本過(guò)程內(nèi)使用的變量。用Dim或Static語(yǔ)句聲明，或不聲明就直接使用 窗體/模塊級(jí)變量：可被本窗體/模塊的任何過(guò)程訪問(wèn)。在通用聲明段中用Dim或Private語(yǔ)句聲明的變量全局變量 指可被應(yīng)用程序的任何過(guò)程或函數(shù)訪問(wèn)的變量。在通用聲明段中用Public語(yǔ)句加以聲明（若在窗體中聲明，調(diào)用時(shí)需加上窗體名，如FORM1.PAI）3變量、函數(shù)、過(guò)程變量3例 Private Sub Form_Click() Dim i% ，isum% For i = 1 To 5 isum = sum(i) Next i Print isum End SubPrivate Function sum

3、(n As Integer) Dim j As Integer j = j + n sum = jEnd Function輸出結(jié)果：5Static j As Integer，結(jié)果？4例Private Function sum(n As 變量、函數(shù)、過(guò)程函數(shù) 同其他編程語(yǔ)言一樣過(guò)程內(nèi)部函數(shù)過(guò)程和事件過(guò)程用戶自定義過(guò)程5變量、函數(shù)、過(guò)程函數(shù) 5列表框和組合框4. 列表框（ListBox）通過(guò)顯示多個(gè)選項(xiàng)，供用戶選擇，達(dá)到與用戶對(duì)話的目的只能選擇，不能修改其中的內(nèi)容5. 組合框（ComboBox）是組合了文本框和列表框的特性而形成的一種控件。包括：下拉式組合框、簡(jiǎn)單組合框和下拉式列表框當(dāng)在列表框中選

4、定某項(xiàng)后，該項(xiàng)內(nèi)容自動(dòng)裝入文本框中6列表框和組合框4. 列表框（ListBox）6列表框和組合框（續(xù)）屬性List 字符型數(shù)組，存放列表框的項(xiàng)目，下標(biāo)從0開始ListIndex 選中的項(xiàng)目的序號(hào)，沒(méi)有項(xiàng)目被選定時(shí)為-1ListCount 項(xiàng)目的數(shù)量，ListCount-1是最后一項(xiàng)的下標(biāo)Text 列表項(xiàng)中被選定的內(nèi)容Style（ComboBox）類型Style屬性輸入下拉式組合框0能簡(jiǎn)單組合框1能下拉式列表框2不能7列表框和組合框（續(xù)）屬性類型Style屬性輸入下拉式組合框0列表框和組合框（續(xù)）AddItem方法 把一個(gè)選項(xiàng)加入列表框或組合框.AddItem,把字符串的文本插入到由“下標(biāo)”指定

5、列表框或組合框位置中下標(biāo)取值范圍：0 ListCount-1RemoveItem方法 刪除一個(gè)項(xiàng)目 .RemoveItem Clear方法 清空 .Clear8列表框和組合框（續(xù)）AddItem方法 把一個(gè)選項(xiàng)加入列表VB編碼基礎(chǔ)1.VB代碼不區(qū)分字母大小寫2.一行可寫多句語(yǔ)句,用“:”分隔3.一句可分若干行書寫,用“ _”表示4.可用“Rem”和“”進(jìn)行注釋5.可以有行號(hào)和標(biāo)號(hào)9VB編碼基礎(chǔ)1.VB代碼不區(qū)分字母大小寫94.4 VB 與面向?qū)ο蟪绦蛟O(shè)計(jì)4.4.1 類與對(duì)象4.4.2 類的繼承性4.4.3 類的多態(tài)性104.4 VB 與面向?qū)ο蟪绦蛟O(shè)計(jì)4.4.1 類與對(duì)象10類與對(duì)象在VB中已

6、接觸了不少對(duì)象 其實(shí)每個(gè)對(duì)象都屬于某一個(gè)類 換言之，對(duì)象是類的實(shí)例（instance）11類與對(duì)象在VB中已接觸了不少對(duì)象11類 定 義既然 對(duì)象= 屬性 + 方法當(dāng)然 類 = 屬性 + 方法12類 定 義既然 對(duì)象= 屬性 + 方法12類 繼 承同一類中的不同對(duì)象 一般具有相同的屬性集和方法集不必每個(gè)對(duì)象封裝一套 相同的數(shù)據(jù)與操作13類 繼 承同一類中的不同對(duì)象13類 繼 承解決方法: 類繼承規(guī)則: 子類繼承父類的屬性與方法 每個(gè)類可派生許多子類 最“老”的類稱為基類14類 繼 承解決方法: 類繼承14 類 繼 承繼承樹A0M0A1M1AnMnA2M2C1C2CnA11M11A12M12C1

7、1C12A121M121A122M122C121C122方法集是：Mtd12=M0，M1，M12類C12中的屬性是：Art12=A0，A1，A12C015 類 繼 承繼承樹A0A1AnA2C1C2CnA11A12類的多態(tài)性所謂多態(tài)性 就是不同的類可以有名字與基本目的相同、但實(shí)現(xiàn)方式不同的行為如 Move方法窗體 窗體自身及其中全部?jī)?nèi)容將移動(dòng)按鈕 只移動(dòng)按鈕，所在窗體不會(huì)移動(dòng) 16類的多態(tài)性所謂多態(tài)性16數(shù)據(jù)庫(kù)概念可視化數(shù)據(jù)管理器數(shù)據(jù)控件4.5 VB與數(shù)據(jù)庫(kù)17數(shù)據(jù)庫(kù)概念4.5 VB與數(shù)據(jù)庫(kù)17一、數(shù)據(jù)庫(kù)概念數(shù)據(jù)庫(kù)表數(shù)據(jù)庫(kù)就是一組排列成易于處理和讀取的相關(guān)信息的集合。關(guān)系模型已經(jīng)成為數(shù)據(jù)庫(kù)設(shè)計(jì)事

8、實(shí)上的標(biāo)準(zhǔn)。18一、數(shù)據(jù)庫(kù)概念數(shù)據(jù)庫(kù)表數(shù)據(jù)庫(kù)就是一組排列成易于處理和讀取的相關(guān)系型數(shù)據(jù)庫(kù)模型19關(guān)系型數(shù)據(jù)庫(kù)模型19一個(gè)數(shù)據(jù)庫(kù)可以由多個(gè)表組成，表與表之間可以用不同的方式相互關(guān)聯(lián)。若第一個(gè)表中的一條記錄內(nèi)容與第二個(gè)表中多條記錄的數(shù)據(jù)相符，但第二個(gè)表中的一條記錄只能與第一個(gè)表的一條記錄的數(shù)據(jù)相符，這樣的表間關(guān)系類型叫做一對(duì)多關(guān)系。若第一個(gè)表的一條記錄的數(shù)據(jù)內(nèi)容可與第二個(gè)表的多條記錄的數(shù)據(jù)相符，反之亦然，這樣的表間關(guān)系類型叫做多對(duì)多關(guān)系。20一個(gè)數(shù)據(jù)庫(kù)可以由多個(gè)表組成，表與表之間可以用不同的方式相互關(guān)由一個(gè)或幾個(gè)表中的數(shù)據(jù)構(gòu)成記錄集Recordset對(duì)象，記錄集也由行和列構(gòu)成，它與表類似。學(xué)號(hào) 課

9、程 成績(jī)990001 數(shù)學(xué) 85學(xué)號(hào) 姓名 性別 專業(yè) 出生日期990001 萬(wàn)林 男 物理 82-1-11990002 莊前 女 物理 82-9-21 （表一）數(shù)據(jù)庫(kù)記錄集學(xué)號(hào) 姓名 專業(yè) 課程 成績(jī)990001 萬(wàn)林 物理 數(shù)學(xué) 85990002 莊前 物理 外語(yǔ) 90 .21由一個(gè)或幾個(gè)表中的數(shù)據(jù)構(gòu)成記錄集Recordset對(duì)象，記錄在VB中數(shù)據(jù)庫(kù)內(nèi)的表格不允許直接訪問(wèn)，而只能通過(guò)記錄集對(duì)象進(jìn)行記錄的操作和瀏覽，因此，記錄集是一種瀏覽數(shù)據(jù)庫(kù)的工具。數(shù)據(jù)庫(kù)記錄集22在VB中數(shù)據(jù)庫(kù)內(nèi)的表格不允許直接訪問(wèn)，而只能通過(guò)記錄集對(duì)象進(jìn)功能：用于數(shù)據(jù)庫(kù)的管理（適合于比較簡(jiǎn)單的 應(yīng)用）啟動(dòng)：方法一：外接

10、/可視化數(shù)據(jù)管理器方法二：雙擊Visdata.Exe二、可視化數(shù)據(jù)管理器23功能：用于數(shù)據(jù)庫(kù)的管理（適合于比較簡(jiǎn)單的 應(yīng)用）二、可視三、數(shù)據(jù)控件注： RecordSource屬性： 數(shù)據(jù)庫(kù)中的某個(gè)表名或使用SQL查詢語(yǔ)言的一個(gè)查詢字符串 DatabaseName屬性 如果連接的是單表數(shù)據(jù)庫(kù)，則應(yīng)設(shè)置為數(shù)據(jù)庫(kù)文件所在的子目錄名，而具體文件名放在RecordSource屬性中。能夠利用三種記錄集對(duì)象訪問(wèn)數(shù)據(jù)庫(kù)中的數(shù)據(jù)連接屬性說(shuō) 明Connect指定數(shù)據(jù)控件所要連接的數(shù)據(jù)庫(kù)類型DatabaseName指定具體使用的數(shù)據(jù)庫(kù)文件名，包括所有的路徑名RecordSource確定具體可訪問(wèn)的數(shù)據(jù)，這些數(shù)據(jù)構(gòu)

11、成記錄集對(duì)象RecordType確定記錄集類型24三、數(shù)據(jù)控件注： RecordSource屬性：能夠利用數(shù)據(jù)控件只能連接數(shù)據(jù)庫(kù)產(chǎn)生記錄集，不能顯示記錄集中的數(shù)據(jù)，要顯示記錄集中的數(shù)據(jù)必須通過(guò)能與它綁定的控件來(lái)實(shí)現(xiàn)，這類控件稱為依附（綁定）控件。常用依附控件數(shù)據(jù)庫(kù)記錄集綁定控件姓名 莊前性別 女25數(shù)據(jù)控件只能連接數(shù)據(jù)庫(kù)產(chǎn)生記錄集，不能顯示記錄集中的數(shù)據(jù)，要依附控件的兩個(gè)重要屬性記錄集學(xué)號(hào) 姓名 專業(yè) 課程 成績(jī)990001 萬(wàn)林 物理 數(shù)學(xué) 85990002 莊前 物理 外語(yǔ) 90 數(shù)據(jù)庫(kù)屬 性說(shuō) 明DataSource指定一個(gè)有效的數(shù)據(jù)控件連接到數(shù)據(jù)庫(kù)上DataField設(shè)置數(shù)據(jù)庫(kù)有效的字

12、段與依附控件建立聯(lián)系26依附控件的兩個(gè)重要屬性記錄集學(xué)號(hào) 姓名 專業(yè) 注 意數(shù)據(jù)控件可用于綁定數(shù)據(jù)庫(kù)和 數(shù)據(jù)庫(kù)中的某個(gè)表依附控件只能綁定表中某個(gè)列27注 意數(shù)據(jù)控件可用于綁定數(shù)據(jù)庫(kù)和依附控件只能綁定表中某數(shù)據(jù)控件應(yīng)用舉例例1設(shè)計(jì)窗口28數(shù)據(jù)控件應(yīng)用舉例例1設(shè)計(jì)窗口28數(shù)據(jù)控件應(yīng)用舉例例1運(yùn)行中窗口29數(shù)據(jù)控件應(yīng)用舉例例1運(yùn)行中窗口29數(shù)據(jù)控件應(yīng)用舉例1. 建立程序界面 5類 17個(gè)控件 標(biāo)簽(7) 文本框(7) 框架(1) 數(shù)據(jù)控件(1) 按鈕(1)2. 定義對(duì)象屬性 數(shù)據(jù)控件屬性設(shè)置 文本框?qū)傩栽O(shè)置 標(biāo)簽屬性設(shè)置 框架屬性設(shè)置3. 編寫程序代碼4. 應(yīng)用程序存盤30數(shù)據(jù)控件應(yīng)用舉例1. 建立程序界面 5類 17個(gè)數(shù)據(jù)控件屬性設(shè)置 Caption 成績(jī)表 DatabaseName 帶盤符路徑的庫(kù)文件名 VB41 RecordsetType 確定記錄集合類型 0 Table RecordSoure 成績(jī)表 31數(shù)據(jù)控件屬性設(shè)置 Caption 成績(jī)表31用作依附控件的文本框?qū)傩栽O(shè)置 DataSoure 數(shù)據(jù)控件名 例如 DATA1 DataField 該框顯示字段名稱 例如 學(xué)號(hào)32用作依附控件的文本框?qū)傩栽O(shè)置 DataSoure 數(shù)據(jù)控程序代碼Private Sub ExitW_Click() 退出按鈕 EndEnd SubPrivate Sub score_Change