1、第四章 面向對象程序設計4.1 從POP到OOP4.2 VB 概述4.3 VB 程序設計4.4 VB 與面向對象程序設計4.5 VB 與數據庫14.1 從POP到OOP 程序=算法數據結構高級語言：提供數據類型和控制結構程序員：描述數據結構與算法 注意力集中在數據處理的過程上 不關心CPU能提供哪些指令 傳統(tǒng)的程序設計稱為: “面向過程的程序設計” , 簡稱POP (Procedure Oriented Programming)24.1.1 POP存在的問題實體內部狀態(tài)運動規(guī)律數據操作二者緊密相聯POPL缺乏將其封裝在一起的機制抽象為抽象為“解題空間”(solution domain)偏離“問

2、題空間”(problem domain)分離3程序設計方法的發(fā)展1.初期的程序設計 高運行效率、少占用內存為目標2.結構化程序設計程序的可讀性、可維護性為目標 程序=算法+數據結構3.面向對象的程序設計 降低程序的復雜性、提高軟件的開發(fā)效率和改善工作界面為目標 程序=對象+消息44.1.2 OOP的基本特征實體狀態(tài)運動封裝體驅動對象的內部操作處理 為數據操作代表 對象Qbject 消息Message兩個最重要的基本概念5對象：窗口、對話框、窗口元素 (文本框、命令鈕、列表框等)消息：按鍵、單擊鼠標、雙擊鼠標, 等例如: 用鼠標單擊一個按鈕，就向該 按鈕所代表的對象發(fā)送了一條 驅動某種操作的消息

3、 消息驅動也稱事件驅動 6 OOPL面向對象(Object Oriented) 的程序設計語言 OBPL基于對象(Object Based) 的程序設計語言 (只支持語言內定義的簡單繼承, 不支持用戶定義的繼承, 沒有顯式的類定義機制。)4.1.3 常見的OOP語言7補充1：對象的有關概念1.類 類是創(chuàng)建對象實例的模板，包含了創(chuàng)建對象的屬性描述和行為特征的定義2.對象 對象是類的一個實例，繼承了類的屬性、方法 VB中常用的對象有：窗體、控件等3.對象的建立和命名8補充1：對象的有關概念4.對象的三要素 屬性定義：對象的性質，即用來描述和反映對象特征的參數設置方法：直接通過屬性窗在程序代碼中設置

4、 對象.屬性=屬性值 text1.text=*9補充1：對象的有關概念4.對象的三要素 方法定義：對象的行為，即將一些通用的過程編寫好并封裝起來，作為方法供用戶直接調用調用：對象.方法 參數名表 Form1.Print 歡迎使用VB10補充1：對象的有關概念4.對象的三要素 事件 響應對象的動作稱為事件，它發(fā)生在用戶與應用程序交互時。如單擊控件、鼠標移動、鍵盤按下等事件過程 指附在某對象上的用戶編寫的程序代碼，是事件的處理程序事件過程的形式 Sub 對象名_事件（參數列表） 事件過程代碼 End Sub114.2 VB 概述4.2.1 VB 語言的特點4.2.2 VB 編程環(huán)境12 VB 是

5、Microsoft 公司開發(fā)的可視化工作室（Visual Studio）中的重要成員，由早期的 Basic 語言逐步演變而來。年代語言名稱開發(fā)者特征1963Basic J.G.Kemeny T.E.Kurtz非結構化，解釋型1985True Basic結構化解釋/編譯型19911998VB1.0VB6.0Microsoft可視化解釋/編譯型BASIC 語言的演變13一個引例143類控件窗體標簽文本框命令按鈕12個對象一、建立用戶界面15序號NameCaptionText 系統(tǒng)默認自定義1Form1Calculator計算器無2Label 1Lblop1操作數1無3Label 2Lblop2操作

6、數2無4Label 3Lblresult結果數無5Text 1Txtop1無空6Text 2Txtop2無空7Text 3Txtresult無空8Command 1Cmdadd無9Command 2Cmdsub無10Command 3Cmdmul無11Command 4Cmddiv無12Command 5Cmdreturn結束無二、定義對象屬性16三、編寫事件代碼Private Sub Cmdadd_Click() Txtresult.Text = Str(Val(Txtop1) + Val(Txtop2)End SubPrivate Sub Cmdsub_Click() Txtresult.

7、Text = Str(Val(Txtop1) - Val(Txtop2)End SubPrivate Sub Cmddiv_Click() Txtresult.Text = Str(Val(Txtop1) / Val(Txtop2)End SubPrivate Sub Cmdmul_Click() Txtresult.Text = Str(Val(Txtop1) * Val(Txtop2)End SubPrivate Sub Cmdreturn_Click() EndEnd Sub17四、保存文件工程文件 VBP窗體文件 FRM184.2.1 VB 語言的特點可視化的 GUI設計（自動生成.f

8、rm代碼）事件驅動的編程機制基于對象的設計思想基于構件的程序開發(fā)（不必從零開始）對 DB 和 OLE 的支持豐富的輔助開發(fā)工具（編輯器、調試器、安裝向導等）19在OOP中，對象 = 數據 + 操作 在 VB 中，控件 = 屬性 + 方法 （Control = Properties + Methods）事件：指由系統(tǒng)或用戶觸發(fā)的一個操作。一個控件可以有多個事件。在VB 中，所有的事件都是由系統(tǒng)事先定義的。例如 Load, Click, KeyPress等方法：每個事件對應于一個程序，稱為方法或事件過程。在VB中，控件的方法多數是由系統(tǒng)事先編碼的，僅有一部分需要由用戶自己編寫代碼，從而大大減少了編

9、程工作量204.2.2 VB6.0編程環(huán)境代碼窗口窗體工具箱項目窗口屬性窗口主窗口21代 碼 窗續(xù)行符：空格 + 下劃短線同行可有多句語句，語句間用“：”作分隔符22 VB的環(huán)境項目窗 它存放一個應用程序包含的所有文件，在VB中一個應用程序又可稱為一個工程或項目，文件的擴展名為.VBP。 工程文件包含了所有的“窗體文件(.FRM)”和可能存在的“標準模塊文件(.BAS)”和“類模塊文件(.CLS)”。 231.主窗口 應用程序窗口。由標題欄、菜單欄和工具欄組成2.窗體(form)窗口 設計VB程序的界面3.代碼(code)窗口 編輯窗體、標準模塊中的代碼4.屬性(properties)窗口 所

10、有窗體或控件的屬性設置5.工程資源管理器(project explorer)窗口 保存一個應用程序所有的文件6.工具箱(toolbox)窗口 顯示各種控件的制作工具，供用戶在窗體上設計VB集成開發(fā)環(huán)境24工程管理及環(huán)境設置1.工程的組成 工程文件包含了一個應用程序的所有文件:窗體文件（.frm）：控件及屬性、事件過程和自定義過程窗體的二進制數據文件（.frx）：當含有二進制屬性（圖片或圖標），系統(tǒng)自動產生標準模塊文件（.bas）類模塊文件（.cls）資源文件（.res）ActiveX控件的文件（.ocx）2.創(chuàng)建、打開和保存工程253.添加、刪除和保存文件窗體名和窗體文件名 窗體名：窗體的Na

11、me屬性，在代碼中用來引用該窗體，同一工程不能有相同的窗體名 窗體文件名：窗體存放在磁盤上的文件名，文件包含了該窗體的所有控件屬性和代碼窗體文件名窗體名26 VB程序的設計過程基本方法定義屬性編寫過程模塊建立對象27VB程序的執(zhí)行步驟啟動應用程序，裝載和顯示窗體；窗體（或窗體上的控件）等待事件的發(fā)生；事件發(fā)生時，執(zhí)行對應的事件過程；重復執(zhí)行步驟和；直到遇到“END” 語句，結束程序的運行或按“結束”強行停止程序的運行。284.3 VB 程序設計4.3.1 創(chuàng)建VB應用程序4.3.2 菜單和對話框設計4.3.3 多窗口設計4.3.4 VB程序文件294.3.1 創(chuàng)建VB應用程序30解題步驟一、建

12、立用戶界面1. “文件/新建工程”命令，打開工程設計窗2. 在窗體中創(chuàng)建控件本例共有3類9個控件，分別是： 標簽3個、文本框3個、按鈕3個311.雙擊工具箱中的控件(如“標簽”), 窗體正中出現一個標簽框。 拖動該框: 調整位置 拖動四周小方塊: 調整大小 2.單擊工具箱中的控件,將鼠標指針 (“+”)移至窗體中要設置控件位置, 在該位置的左上角按下鼠標左鍵, 然后拖動至右下角松開按鍵。 創(chuàng)建控件方法32解題步驟二、定義對象屬性屬性是控件的基本數據，一個控件可以有許多屬性，名稱（Name）和標題（Caption）是大多數控件必有的屬性。 標簽： Caption 文本框：名稱、Text 按鈕：

13、名稱、Caption 注意: 名稱 與 Caption 的區(qū)別 使用名稱 外觀顯示 Calculator 計算器33解題步驟三、編寫事件過程（即編碼） 編碼環(huán)境：代碼窗（每個窗體都有）1.選擇對象 單擊對象列表框2.選擇事件 單擊過程列表框3.編寫代碼34文本框1. SetFocus方法: 光標定位 Txtop1.SetFocus 光標定位在名為Txtop1的文本框2. KeyPress過程Private Sub Txtop1_KeyPress (KeyAscii As Integer) If KeyAscii = 13 Then Txtop2.SetFocus End Sub 輸入數據及回車后, 光標移至下一文本框35解題步驟四、 運行和調試應用程序 “運行”菜單“啟動”命令 單擊工具欄中“啟動”按鈕 按F5鍵36（a）語法錯誤提示框語法錯誤:系統(tǒng)顯示出錯信息程序調試過程37（b）有語法錯誤的代碼窗表達式中漏寫括號產生語法錯誤單擊“調試”按鈕,系統(tǒng)轉到代 碼窗的錯誤語句處,并做標記