《vb程序設計》PPT課件.ppt

《《vb程序設計》PPT課件.ppt》由會員分享，可在線閱讀，更多相關《《vb程序設計》PPT課件.ppt（296頁珍藏版）》請在裝配圖網上搜索。

1、安徽工業(yè)大學計算機學院,1,第1章 Visual Basic程序設計概述,1.1 Visual basic 簡介 1.2 VB集成開發(fā)環(huán)境 1.3 建應用程序過程 1.4 VB幫助系統(tǒng),安徽工業(yè)大學計算機學院,2,1.1 Visual basic 簡介,程序設計基本概念 Visual Basic的發(fā)展 Visual Basic的特點,本章目錄,安徽工業(yè)大學計算機學院,3,1.1.1 Visual Basic的發(fā)展,20世紀60年出現(xiàn)Basic語言； 20世紀80年代，True Basic、Quick Basic和Turbo Basic等; 1991年Microsoft公司推出Visual Ba

2、sic1.0，以可視化工具為界面設計、結構化Basic語言為基礎，以事件驅動為運行機制。從1991年的VB1.0至1998年的V B6.0的多次版本升級，功能更強大、完善，應用面更廣； 2002年正式發(fā)布Visual Basic.NET。,本章目錄,安徽工業(yè)大學計算機學院,4,1.1.2 VB的特點,例1 設計一個滾動文字的廣告程序，一行文字在具有背景圖案的窗體上、下移動。 設計思路： 在窗體上使用標簽Label對象來存放文字; 利用Timer控件來快速觸發(fā)移動; 利用單擊按鈕來手動觸發(fā)移動.,本章目錄,安徽工業(yè)大學計算機學院,5,,當一個標簽放在窗體上時，標簽的左上角坐標（用Left、Top

3、表示）就被指定了。,如果改變標簽的左上角坐標就可移動標簽，即移動文字。 例如: Label1.Top=Label1.Top+50可使標簽Label1向下移動50單位,歡迎使用VB,本章目錄,,Top,,,Left,0,0,安徽工業(yè)大學計算機學院,6,實現(xiàn)連續(xù)移動，可通過時鐘對象Timer，在規(guī)定的時間間隔執(zhí)行: Label1.Top =Label 1.Top+50 就可使標簽Label1連續(xù)向下移動。 時鐘對象的Interval可指定時間間隔，1秒為1000單位。每隔0.2秒移動一次可設置Interval=200,本章目錄,安徽工業(yè)大學計算機學院,7,程序進一步改進： 連續(xù)循環(huán)移動，首先要能判

4、斷出標簽是否超出窗體范圍。,窗體,歡迎光臨,,該點在Top方向上的坐標為: 窗體的高度Height 如果標簽的Top窗體的高度，表示已越出窗體范圍，可將標簽移到窗體上方，此時標簽的Top=？,本章目錄,Height,,安徽工業(yè)大學計算機學院,8,具有基于對象的可視化設計工具 事件驅動的編程機制 提供了易學易用的應用程序集成開發(fā)環(huán)境 支持結構化程序設計語言 強大的網絡、數(shù)據(jù)庫、多媒體功能 完備的幫助功能,VB功能特點,本章目錄,安徽工業(yè)大學計算機學院,9,VB系統(tǒng)的安裝 VB系統(tǒng)的啟動 VB集成開發(fā)環(huán)境的使用,1.2 VB集成開發(fā)環(huán)境,本章目錄,安徽工業(yè)大學計算機學院,10,安裝,VB6.0有學

5、習版、專業(yè)版和企業(yè)版三種版本。執(zhí)行VB6.0的Setup.exe，在安裝程序的提示下進行，初學者可采用典型安裝方式。 VB6.0聯(lián)機幫助文件使用MSDN文檔格式，聯(lián)機幫助文件不在VB6.0系統(tǒng)盤上，而與Visual Studio產品的幫助集合在兩張CD盤上，安裝過程中，系統(tǒng)會提示插入MSDN盤。,本章目錄,安徽工業(yè)大學計算機學院,11,啟動,啟動VB選擇開始菜單中的 Microsoft Visual Basic 6.0中文版程序。 VB 6.0窗口列出了VB能夠建立的應用程序類型，初學者只要選擇默認標準.EXE。 單擊新建按鈕，就可創(chuàng) 建該類型的應用程序。,本章目錄,安徽工業(yè)大學計算機學院,1

6、2,1.2.1集成開發(fā)環(huán)境使用,本章目錄,安徽工業(yè)大學計算機學院,13,1.2.2 主窗口,三種工作模式 設計模式 界面的設計和代碼的編制 運行模式 運行應用程序 中斷模式 暫時中斷程序運行，調試程序 2. 菜單欄 包括13個下拉菜單 3. 工具欄,本章目錄,安徽工業(yè)大學計算機學院,14,1.2.3 窗體設計窗口,窗體是建立VB應用程序的主要部分，一個應用程序至少有一個窗體窗口。 每個窗體必須有一個唯一的窗體名，默認名為Form1. 設計狀態(tài)的窗體由網格點構成，方便用戶對控件的定位，網格點間距可以通過工具|選項|通用進入窗體網格設置. 運行時可通過屬性控制窗體的可見性(窗體的網格始終不

7、顯示)。,本章目錄,安徽工業(yè)大學計算機學院,15,代碼設計窗口,用來進行代碼設計：各種事件過程、過程代碼的編寫和修改。 打開代碼設計窗口的方法： 雙擊窗體、控件 資源管理器窗口的 ”查看代碼”,本章目錄,,安徽工業(yè)大學計算機學院,16,,1.2.4 屬性窗口,設置窗體或控件的屬性，如 顏色、字體、大小等。,本章目錄,安徽工業(yè)大學計算機學院,17,,1.2.5 工程管理器窗口,保存一個應用程序所有屬性以及組成這個應用程序所有的文件。 工程文件的擴展名為.VBP，工程文件名顯示在工程文件窗口的標題框內。,已存盤,未存盤,本章目錄,安徽工業(yè)大學計算機學院,18,1.2.6 工具箱窗口,由21個

8、被繪制成按鈕形式的圖標構成，利用這些工具，用戶可以在窗體上設計各種控件。其中20個控件稱為標準控件(注意，指針不是控件，僅用于移動窗體和控件，以及調整它們的大小)。 也可通過工程|部件命令將第3方開發(fā)的其他控件裝入到工具箱。,本章目錄,安徽工業(yè)大學計算機學院,19,,1.3 創(chuàng)建應用程序的過程,建立一個應用程序分為以下幾步： (1) 建立用戶界面的對象 (2) 對象屬性的設置 (3) 對象事件過程及編程 (4) 保存和運行程序 例1.2 編寫一個人民幣與美元兌換的程序。 要求：通過輸入兌換比率與人民幣或美元金額，單擊命令按鈕顯示兌換結果。,本章目錄,安徽工業(yè)大學計算機學院,20,設計思路： 建

9、立用戶界面的對象 輸入使用文本框TextBox; 提示使用標簽Label; 按鈕Command的Click事件執(zhí)行處理命令。,本章目錄,安徽工業(yè)大學計算機學院,21,1.4 使用幫助系統(tǒng),使用MSDN Library查閱器 通過VB的幫助菜單，選擇內容、索引或搜索菜單項,安徽工業(yè)大學計算機學院,22,本章小節(jié),Visual Basic 6.0 一個基于對象的可視化設計工具 vb的三種工作模式 設計模式、運行模式、中斷模式 VB程序組成,,工程,窗體文件,控件和屬性設置,模塊文件,,事件代碼,本章目錄,安徽工業(yè)大學計算機學院,23,第2章 VB可視化編程基礎,2.1 VB對象概念 2.2 窗體和

10、基本控件 2.3 綜合應用,安徽工業(yè)大學計算機學院,24,2.1 VB對象的概念,2.1.1 對象和類 對象指現(xiàn)實世界中的實體。如一個人、一輛汽車、一臺電腦、一份報表等。 每個對象有自己的特征(屬性)、行為(方法)和發(fā)生在該對象上的活動(事件)。 例如人具有身高、體重等特征，具有行走、說話等行為，外界作用在人對象上的各種活動，如下雨等。,本章目錄,安徽工業(yè)大學計算機學院,25,類的概念,在現(xiàn)實世界中，許多對象具有相似的性質，執(zhí)行相同的操作，稱之為同一類對象。類是對同一種對象的集合與抽象。 如人類是“人”的抽象。類是創(chuàng)建對象實例的模板，對象則是類的一個實例。 類包含所創(chuàng)建對象的屬性數(shù)據(jù)，以及對這

11、些數(shù)據(jù)進行操作的方法。封裝和隱藏是類的重要特性，將數(shù)據(jù)結構和對數(shù)據(jù)的操作封裝在一起，類的內部實現(xiàn)細節(jié)對用戶來說是透明的。,本章目錄,安徽工業(yè)大學計算機學院,26,VB中的類和對象,VB工具箱中的可視圖標是VB系統(tǒng)設計好的標準控件類。通過將控件類實例化，得到真正的控件對象。在窗體上畫一個控件，就將類轉換為對象，創(chuàng)建了一個控件對象。,本章目錄,安徽工業(yè)大學計算機學院,27,,,,,例如：工具箱內的TextBox是類(它確定了TextBox的屬性、方法和事件) 窗體上顯示的是兩個TextBox對象,本章目錄,安徽工業(yè)大學計算機學院,28,屬性、事件和方法構成對象的三要素 屬性 存放對象的數(shù)據(jù)(決定對

12、象外觀及功能) 例如，控件名稱、文本、大小等屬性。 對象屬性的設置方法： 設計階段 利用屬性窗口直接設置屬性值 程序運行時 通過語句對象名.屬性名=屬性值 例如：Command1.Caption = 確定 注意：若屬性只能在設計階段設置，在程序運行階段不可改變，稱為只讀屬性。,2.1.2 對象的屬性、事件和方法,本章目錄,安徽工業(yè)大學計算機學院,29,事件 發(fā)生在對象上的事情 同一事件，對不同的對象，會引發(fā)不同的反應:,事件,教師_鈴聲() 講課 End Sub,學生_鈴聲() 聽講 End Sub,VB為對象預先定義了一系列的事件。例如，單擊Click、獲取焦點GotFocus 、按下鍵

13、盤KeyPress 等,其他人員_鈴聲() 可不于響應 End Sub,,,本章目錄,安徽工業(yè)大學計算機學院,30,事件過程 應用程序處理事件的步驟 應用程序設計的主要工作就是為對象編寫事件過程的代碼。事件過程的形式如下： Sub 對象名_事件(參數(shù)) 事件過程代碼 End Sub,事件過程,本章目錄,安徽工業(yè)大學計算機學院,31,例:單擊按鈕 ，使Text1的字體為20磅. Sub Command1_Click() Text1.FontSize = 20 End Sub 一個動作可能同時發(fā)生多個事件。例如單擊鼠標同時發(fā)生了： Click、MouseDown、MouseUp事件 編程時，只要對

14、需要的事件過程編碼。 注意：在代碼窗，自動產生事件過程的模板，不要修改模板的內容，只需鍵入過程的代碼。,模板產生,用戶輸入,本章目錄,安徽工業(yè)大學計算機學院,32,程序執(zhí)行的次序與程序設計者無關，取決于用戶的操作，這就是事件驅動程序設計方式。 VB程序的執(zhí)行步驟如下： 啟動應用程序，裝載和顯示窗體； 窗體(或窗體上的控件)等待事件的發(fā)生； 事件發(fā)生時，執(zhí)行對應的事件過程； 重復執(zhí)行步驟和。,事件驅動,本章目錄,安徽工業(yè)大學計算機學院,33,方法,面向對象的程序設計語言，為程序設計人員提供了一種特殊的過程和函數(shù)，稱為方法。 方法是面向對象的，調用時一定要指明對象。對象方法的調用格式為： 對象.方

15、法 參數(shù)名表 若省略對象，表示當前對象，一般指窗體。 例如：Text1.SetFocus 此語句使Text1控件獲得焦點，光標在本文框內閃爍。,本章目錄,安徽工業(yè)大學計算機學院,34,2.2 窗體和基本控件,窗體和控件具有基本屬性 例2.1 (1) Name 名稱屬性 所創(chuàng)建的對象名稱,在程序中引用。 (2) Caption 標題屬性 該屬性決定了對象上顯示的內容。 (3) Height、Width、Top和Left屬性 決定對象的高度、寬度，和位置。,本章目錄,安徽工業(yè)大學計算機學院,35,(4) Enabled 屬性對象是否允許操作 (5) Visible 屬性 對象是否可見 (6) F

16、ont 屬性組 文本的外觀 FontName字體、FontSize大小 FontBold粗體、FontItalic斜體、 FontStrikethru 刪除線、 FontUnderline 下劃線,本章目錄,安徽工業(yè)大學計算機學院,36,(7) ForeColor屬性 前景顏色 (8) BackColor屬性 背景顏色 (9) MousePointer 鼠標指針類型 設置值范圍015，由系統(tǒng)指定 。若為99，由用戶提供的圖形文件定義鼠標指針形狀。 (10) MouseIcon屬性 在MousePointer屬性值為99時，存放自定義的鼠標圖標文件（.ico或.cur）。圖標庫在Grap

17、hics目錄下。,本章目錄,安徽工業(yè)大學計算機學院,37,控件默認屬性 所謂默認屬性是程序運行時，可以改變某控件的值，而不必指定該控件的哪個屬性。,例如，下面兩條語句是等價的： Text1.Text=Visual BASIC Text1 =Visual BASIC,本章目錄,安徽工業(yè)大學計算機學院,38,2.2.2 窗體,窗體是一塊畫布，是所有控件的容器，用戶可以根據(jù)自己的需要利用工具箱上的控件在畫布上畫界面。 窗體屬性決定了窗體的外觀和操作。,本章目錄,安徽工業(yè)大學計算機學院,39,窗體-事件,常用的事件有Click、DblClick和Load。 Load事件是在窗體被裝入工作區(qū)時觸發(fā)的事件

18、。當應用程序啟動，自動執(zhí)行該事件，該事件通常用來在啟動應用程序時對屬性和變量進行初始化。 例2.2 窗體無最大化按鈕和最小化按鈕，窗體啟動時，在標題欄顯示“裝入窗體”，并裝入一背景圖；單擊窗體裝入另一圖、雙擊窗體清除背景圖，同時顯示不同的文字。,本章目錄,安徽工業(yè)大學計算機學院,40,窗體-方法,使用方法的語法形式： 對象.方法 參數(shù)列表 Cls方法 清除運行時在窗體或圖形框中產生的文本或圖形, Cls方法不能清除窗體在設計時的文本和圖形 Move方法 可移動窗體或控件，并可改變其大小。 語法格式如下： 對象.Move 左邊距離,上邊距離,寬度,高度,本章目錄,安徽工業(yè)大學計算機學院,41,

19、2.2.3 標簽,標簽用來顯示文本信息(不能輸入) 例2.3 標簽屬性演示,本章目錄,安徽工業(yè)大學計算機學院,42,2.2.4 文本框,文本框是一個文本編輯區(qū)域，可以在該區(qū)域輸入、編輯、修改和顯示正文內容。 (1) Text 顯示或輸入的正文內容 (2) Maxlength 設置文本框可輸入的文字最大長度。默認值為0，表示可以輸入任意長字符串。 注意：在VB中字符長度以字為單位，也就是一個西文字符與一個漢字都是一個字，長度為1。,本章目錄,安徽工業(yè)大學計算機學院,43,(3) MultiLine 多行屬性 設置為True時，文本框可以輸入或顯示多行正文，同時具有文字處理器的自動換行功能，按En

20、ter鍵可插入一空行。 (4) ScrollBars 滾動條屬性 None 無滾動條 Horizontal 水平滾動條 Vertical 垂直滾動條 Both 同時加水平和垂直滾動條 當MultiLine為True時，ScrollBars才有效,本章目錄,安徽工業(yè)大學計算機學院,44,(5) PassWordChar 設置顯示文本的替代符。例如，當設置為“*”，則在文本框輸入的內容均以“*”顯示，而存儲的值是用戶輸入的原文。一般用于設置口令的輸入。 當MultiLine為True時，該屬性不起作用，密碼不允許多行。 (6) Locked 指定文本控件是否可被編輯，默認值為False(可編輯

21、)，當設置為True時，文本控件相當于標簽控件的作用。,本章目錄,安徽工業(yè)大學計算機學院,45,(7)文本內容進行選擇操作 SelStart 選定的正文開始位置 SelLength 選定的正文長度 SelText選定的正文內容 這3個屬性互相關聯(lián),例如設置SelStart、SelLength后，SelText 自動存放指定的文本。 例2.4 利用屬性實現(xiàn)文本信息的復制。,本章目錄,安徽工業(yè)大學計算機學院,46,文本框-事件,(1) Changed事件 當Text屬性值發(fā)生改變時引發(fā)該事件 例 在文本框每輸入一個字符就引發(fā)一次事件 (2) KeyPress事件 按下并且釋放鍵盤上的一個鍵時，引發(fā)

22、焦點所在控件的KeyPress事件，所按鍵的值存放在參數(shù)KeyAscii中 例 對回車的判斷 KeyAscii=13,本章目錄,安徽工業(yè)大學計算機學院,47,(3) LostFocus事件 對象失去焦點時發(fā)生LostFocus事件 該事件主要是用來對數(shù)據(jù)進行驗證和確認，常用于檢查Text屬性的內容。 (4) GotFocus事件 GotFocus事件與LostFocus事件相反，當一個對象獲得焦點時發(fā)生,本章目錄,安徽工業(yè)大學計算機學院,48,文本框-方法,文本框最有用的方法是SetFocus，把光標移到指定的文本框中。其形式如下： 對象. SetFocus SetFocus還可以用于如Che

23、ckBox、CommandButton、ListBox、ComboBox等控件。 例2.5 對輸入的數(shù)據(jù)進行合法性檢驗，過濾不合法的數(shù)據(jù)。,本章目錄,安徽工業(yè)大學計算機學院,49,2.2.5 命令按鈕,用于程序運行時執(zhí)行相應的事件 1. 屬性 (1) Caption 命令按鈕上顯示的文字 (2) Style 按鈕樣式 0 Standard：默認，按鈕上不能顯示圖形 1 Graphical：按鈕上可以顯示圖形和文字 (3) Picture 在按鈕裝入圖形 (4) ToolTipText 加以文字提示 2. 事件 命令按鈕一般接收Click事件,本章目錄,安徽工業(yè)大學計算機學院,50,2.3 綜合

24、應用,例2.6建立一個類似記事本的應用程序，提供： (1) 剪切、復制和粘貼的編輯操作 (2) 字體大小的格式設置 分析： (1) 建立一個文本框輸入文本，文本框應該有滾動條，為了便于調試，程序運行時文本框有初始值。 (2) 利用文本框的SelText屬性實現(xiàn)“剪切、復制和粘貼”的編輯操作。 (3) “格式”設置利用Font對象實現(xiàn)。,本章目錄,安徽工業(yè)大學計算機學院,51,本章小節(jié),類是同種對象的集合與抽象，包含所創(chuàng)建對象的屬性描述和行為特征的定義，是創(chuàng)建對象實例的模板。 對象三要素：屬性、事件、方法 窗體 是所有控件的容器 基本控件 標簽、文本框、命令按鈕,本章目錄,安徽工業(yè)大學計算機學院

25、,52,第三章 VB語言基礎,3.1 數(shù)據(jù)類型 3.2 變量和常量 3.3 運算符和表達式 3.4 程序結構和編碼規(guī)則 3.5 綜合應用,本章目錄,安徽工業(yè)大學計算機學院,53,3.1 數(shù)據(jù)類型,,本章目錄,安徽工業(yè)大學計算機學院,54,3.2 變量,變量 在程序運行中其存儲的值可以改變 命名規(guī)則： 必須以字母或漢字開頭，由字母、漢字、數(shù)字或下劃線組成，長度小于等于255個字符 不能使用VB中的關鍵字 VB不區(qū)分變量名的大小寫，一般變量名首字母用大寫，其余用小寫字母表示；常量全部用大寫字母表示,本章目錄,安徽工業(yè)大學計算機學院,55,變量聲明,用Dim語句顯式聲明變量 Dim 變量名 As

26、 類型 As部分缺省，創(chuàng)建的變量為變體類型 一條Dim語句可同時定義多個變量,但每個變量應有類型說明，否則為變體型 。 例如：Dim m，n As Integer, x，y As Single 則創(chuàng)建了變體型變量m、x，整型變量n和單精度型變量y,本章目錄,安徽工業(yè)大學計算機學院,56,常量,常量是在程序運行中不變的量,VB有三種常量： 直接常量 其常數(shù)值直接反映了其類型 符號常量 用戶聲明，便于程序閱讀或修改 Const 符號常量名 As 類型 = 表達式 例如： Const PI = 3.14159 系統(tǒng)常量 系統(tǒng)提供許多內部常量 例如：vbCrLf 回車/換行組合符,本章目錄,安徽工業(yè)大

27、學計算機學院,57,3.3 運算符和表達式,和其他語言一樣，VB中也具有豐富的運算符，通過運算符和操作數(shù)組合成表達式，實現(xiàn)程序編制中所需的大量操作。 運算符是表示實現(xiàn)某種運算的符號。VB中的運算符可分算術運算符、字符串運算符、關系運算符和邏輯運算符4類。,本章目錄,安徽工業(yè)大學計算機學院,58,算術運算符,例：5+10 mod 10 9 / 3+2 2 結果：10,注意：對算術運算符兩邊的操作數(shù)應是數(shù)值型，若是數(shù)字字符或邏輯型，則自動轉換成數(shù)值類型后再運算。 例如： 30-True 結果是31，邏輯量True轉為數(shù)值-1，F(xiàn)alse轉為數(shù)值0 False + 10 + 4 結果是14,本章目錄

28、,安徽工業(yè)大學計算機學院,59,字符串運算符,,|, 對象：窗體、圖形框或打印機。缺省為窗體。 Spc(n)函數(shù)：從當前位置起空n個空格 Tab(n)函數(shù)：從最左端開始計算的第n列 分號：定位在上一個被顯示的字符之后 逗號：定位在下一個打印區(qū)開始處(每區(qū)14列) Print語句尾無分號或逗號，輸出后換行 例4.3 Print方法輸出圖形,安徽工業(yè)大學計算機學院,85,,Format格式輸出函數(shù),形式： Format (表達式, 格式字符串) 常用數(shù)值格式化符及舉例,例4.4 利用Format函數(shù)顯示數(shù)值。,安徽工業(yè)大學計算機學院,86,4.2 選擇結構,計算機要處理的問題往往是復雜多變的，僅

29、采用順序結構是不夠的。必須利用選擇結構等來解決實際應用中的各種問題。VB中提供了多種形式的條件語句來實現(xiàn)選擇結構，有If條件語句和Select情況語句等。它們都是對條件進行判斷，根據(jù)判斷結果，選擇執(zhí)行不同的分支。,本章目錄,安徽工業(yè)大學計算機學院,87,4.2.1 If條件語句,1. IfThen語句(單分支結構) If Then 語句塊（可以是一句或多句語句） End If 或 If Then 表達式：關系表達式、邏輯表達式，算術表達式。表達式值按非零為True，零為False進行判斷。 該語句的作用是當表達式的值為True，執(zhí)行Then后面的語句塊，否則不做任何操作。,本章目錄,I

30、F演示,安徽工業(yè)大學計算機學院,88,單分支結構,例：已知兩個數(shù)x和y，比較它們的大小，使得x大于y。 If x

31、e后面的語句塊2,本章目錄,安徽工業(yè)大學計算機學院,90,雙分支結構例,計算分段函數(shù),單分支 y=cos(x)x3+3*x 結構實現(xiàn) If x0 Then y=sin(x)+sqrt (x*x+1),If x0 Then 雙分支 y=sin(x)+sqr (x*x+1) Else 結構實現(xiàn) y=cos(x)x3+3*x End If,本章目錄,安徽工業(yè)大學計算機學院,91,多分支結構,3. IfThenElseIf 語句 If 表達式1 Then 語句塊1 ElseIf 表達式2 Then 語句塊2 Else 語句塊 n+1 End If,作用：根據(jù)不

32、同的表達式值確定執(zhí)行哪個語句塊,本章目錄,安徽工業(yè)大學計算機學院,92,例4.7 已知變量ch中存放了一個字符，判斷該字符是字母字符、數(shù)字字符還是其他字符。 If UCase(ch) = A And UCase(ch) = 0 And ch <= 9 Then 數(shù)字字符 MsgBox(ch + 是數(shù)字字符) Else 除上述字符以外的字符 MsgBox(ch + 是其他字符) End If,不管有幾個分支，依次判斷，當某條件滿足，執(zhí)行相應的語句，其余分支不再執(zhí)行；若條件都不滿足，且有Else子句，則執(zhí)行該語句塊，否則什么也不執(zhí)行。 ElseIf不能寫成 Else If,多分支結構例,本章

33、目錄,安徽工業(yè)大學計算機學院,93,If語句的嵌套是指If或Else后面的語句塊中又包含If語 If 表達式1 Then If 表達式2 Then End If End If,If x

34、e 變量或表達式 Case 表達式列表1 語句塊1 Case 表達式列表2 語句塊2 Case Else 語句塊n+1 End Select,表達式列表與變量或表達式的類型必須相同，是下面4種形式之一 ： 表達式 例: A 一組用逗號分隔的枚舉值 2,4,6,8 表達式1 To 表達式2 60 To 100 Is 關系運算符表達式 Is < 60,本章目錄,安徽工業(yè)大學計算機學院,95,Select Case語句例,將例4.7 改用 Select Case 語句實現(xiàn)： Select Case ch Case a To z，A To Z MsgBox( ch + 是字

35、母字符) Case 0 To 9 MsgBox (ch +是數(shù)字字符) Case Else MsgBox( ch + 是其他字符) End Select 多分支結構，用Select Case語句比IfThenElseIf語句直觀，程序可讀性強。但不是所有的多分支結構均可用Select Case語句代替IfThenElseIf語句。,本章目錄,安徽工業(yè)大學計算機學院,96,Select Case語句例,例4.9判斷坐標點(x，y)，落在哪個象限。,代碼一 If x 0 And y 0 Then MsgBox(在第一象限) ElseIf x 0 Then MsgBox(在第二象限) ElseIf

36、x 0 And y <0 Then MsgBox(在第四象限) End If,代碼二 Select Case x,y Case x 0 And y 0 MsgBox(“在第一象限”) Case x 0 MsgBox(“在第二象限”) Case x 0 And y <0 MsgBox(“在第四象限”) End Select,代碼二錯誤： 1. Select Case 后不能出現(xiàn)多個變量 2. Case后不能出現(xiàn)變量及有關運算符,本章目錄,安徽工業(yè)大學計算機學院,97,4.2.3 條件函數(shù),(1) IIf函數(shù) IIf(表達式，表達式為真時的值，表達式為假時的值) IIf函數(shù)是If Then

37、Else 結構的簡潔表示 例如，將x，y中大的數(shù)，放入Tmax變量中： Tmax = IIf(x y，x，y) 該語句與如下語句等價 ： If x y Then Tmax = x Else Tmax = y,本章目錄,安徽工業(yè)大學計算機學院,98,4.2.3 條件函數(shù),(2) Choose函數(shù) Choose(整數(shù)表達式，選項列表) 根據(jù)表達式的值i,返回選項列表中第i個選項。如果整數(shù)表達式的值越出選項范圍時，返回Null。 例 根據(jù)Nop的值，得到+、-、、中的某運算符： Op= Choose(Nop，+，-，，) 例4.10 根據(jù)當前日期，顯示今日是星期幾。 t = Choose(Week

38、day(Now), “星期日”, “星期一”, “星期二”, “星期三”, “星期四”, “星期五”, “星期六”) MsgBox(今天是： Interval0 例7.7設計一個倒計時應用程序 例7.8用一個定時器控制蝴蝶在窗體內的飛舞,本章目錄,安徽工業(yè)大學計算機學院,198,7.2 通用對話框,VB提供了一組基于Windows的標準對話框。利用通用對話框控件可在窗體上創(chuàng)建打開文件、保存文件、顏色、字體、打印等對話框。,例7.9 通過打開文件對話框，選擇一個BMP位圖文件，在圖形框中顯示該圖片。,通用對話框僅用于應用程序與用戶之間進行信息交互，是輸入輸出的界面，不能真正實現(xiàn)文件打開、文件存儲

39、、設置顏色、字體設置、打印等操作，如果想要實現(xiàn)這些功能則需要編程實現(xiàn)。,本章目錄,安徽工業(yè)大學計算機學院,199,通用對話框的基本屬性和方法,,(1) Action屬性和Show方法 打開對話框,該屬性只能在程序中賦值,本章目錄,安徽工業(yè)大學計算機學院,200,通用對話框的基本屬性和方法,(2) DialogTiltle屬性 設置通用對話框標題 (3) CancelError屬性 True：選擇取消按鈕，Err.Number設置為32755(cdCancel)。 False：選擇取消按鈕，沒有錯誤警告。,本章目錄,安徽工業(yè)大學計算機學院,201,7.2.1打開文件對話框,由 Show

40、Open方法來實現(xiàn) 重要屬性 : (1) FileName 文件名稱，包含路徑 (2) FileTitle 文件名，不包含路徑 (3) Filter 確定所顯示文件的類型 例如：Text Files|*.txt|所有文件|*.*顯示文本文件和所有文件 (4) FilterIndex文件列表中指定某類型文件 (5) InitDir 初始化路徑,本章目錄,安徽工業(yè)大學計算機學院,202,例7.10編寫一個簡單的文本文件編輯程序,本章目錄,安徽工業(yè)大學計算機學院,203,7.2.2 保存文件對話框,由 ShowSave方法來實現(xiàn) 與打開文件對話框的屬性基本相同，特有的屬性是DefaultExt屬

41、性，用于設置缺省的擴展名 。 例7.11為例7.10中的另存為命令按鈕編寫代碼，保存文本框內的信息。 Sub Command2_Click () CommonDialog1.ShowSave Open CommonDialog1.filename For Output As #1 Print #1, Text1.Text 保存文件 Close #1 關閉文件 End Sub,本章目錄,安徽工業(yè)大學計算機學院,204,7.2.3 顏色對話框,由ShowColor方法打開顏色對話框 重要屬性Color，它返回或設置選定的顏色 例7.12 為例7.10中的顏色命令按鈕編寫事件過程，設置

42、文本框的前景色。 Sub Command3_Click () CommonDialog1.ShowColor Text1.ForeColor = CommonDialog1.Color End Sub,設置文件框前景顏色,本章目錄,安徽工業(yè)大學計算機學院,205,7.2.4 字體對話框,由ShowFont方法來實現(xiàn),例7.13為例7.10中的字體按鈕編寫設置文本框字體的過程。,Font獲取選擇的字體 Color 選定的顏色,顯示字體對話框前必須設置Flags屬性，否則將發(fā)生不存在字體錯誤 。 通常設置為H103。,本章目錄,安徽工業(yè)大學計算機學院,206,7.3 菜單設計,菜單有下拉式菜單和彈

43、出菜單(上下文菜單)。下拉式菜單的組成結構：,本章目錄,安徽工業(yè)大學計算機學院,207,7.3.1 菜單編輯器,分隔線: 在標題欄輸入一個連字符“-” 標題熱鍵：前面加 Data Source = Student.mdb Provide，指定連接提供程序的名稱； Data Source，用于指定要連接的數(shù)據(jù)源文件。,本章目錄,安徽工業(yè)大學計算機學院,274,VB數(shù)據(jù)庫訪問過程,本章目錄,安徽工業(yè)大學計算機學院,275,數(shù)據(jù)訪問過程,應用程序通過連接對象與數(shù)據(jù)源建立連接(不同類型的數(shù)據(jù)庫使用各自的連接提供程序) 命令對象發(fā)出SQL命令從數(shù)據(jù)源中獲取數(shù)據(jù) 數(shù)據(jù)集對象用來保存所查詢到的數(shù)據(jù)記錄 應用

44、程序對記錄集進行操作 記錄集表示內存中來自基本表或命令執(zhí)行結果的集合，也由記錄(行)和字段(列)構成，可以把它當作一個數(shù)據(jù)表來進行操作,本章目錄,安徽工業(yè)大學計算機學院,276,10.2.2 數(shù)據(jù)綁定,什么是數(shù)據(jù)綁定？ 數(shù)據(jù)綁定是一個過程，即在運行時自動為與記錄集中的元素關聯(lián)的控件設置屬性。以便通過控件顯示數(shù)據(jù)集中的數(shù)據(jù)。,本章目錄,安徽工業(yè)大學計算機學院,277,數(shù)據(jù)綁定,Windows 窗體有簡單數(shù)據(jù)綁定和復雜數(shù)據(jù)綁定 簡單數(shù)據(jù)綁定 簡單數(shù)據(jù)綁定就是將控件綁定到單個數(shù)據(jù)字段。每個控件僅顯示數(shù)據(jù)集中的一個字段值。最常用的簡單數(shù)據(jù)綁定是將數(shù)據(jù)綁定到文本框和標簽。 在設計或運行時設置控件屬性建立

45、綁定: DataSource：指定ADO數(shù)據(jù)控件 DataField：設置記錄集中有效的字段,本章目錄,安徽工業(yè)大學計算機學院,278,簡單數(shù)據(jù)綁定,例10.2 數(shù)據(jù)綁定的操作過程 界面設計,建立連接和產生記錄集,設置綁定屬性,本章目錄,安徽工業(yè)大學計算機學院,279,復雜數(shù)據(jù)綁定,復雜數(shù)據(jù)綁定允許將多個數(shù)據(jù)字段綁定到一個控件，同時顯示記錄源中的多行或多列。 支持復雜數(shù)據(jù)綁定的常用控件： DataGrid 數(shù)據(jù)網格 MSHFlexGrid 數(shù)據(jù)網格 DataList 數(shù)據(jù)列表框 DataCombo 數(shù)據(jù)組合框,本章目錄,安徽工業(yè)大學計算機學院,280,復雜數(shù)據(jù)綁定,例10.3復雜數(shù)據(jù)綁定的操作

46、過程 界面設計,建立連接和產生記錄集,數(shù)據(jù)綁定 本例DataGrid控件要綁定不同的表，故需要通過代碼設置控件的DataSource 屬性。,程序代碼,Private Sub Command1_Click() Adodc1.RecordSource = 基本情況 Adodc1.Refresh End Sub Private Sub Command2_Click() Adodc1.RecordSource = 成績表 Adodc1.Refresh End Sub,本章目錄,安徽工業(yè)大學計算機學院,281,復雜數(shù)據(jù)綁定,例10.4使用SQL語句選擇數(shù)據(jù)表部分數(shù)據(jù)構成記錄集。在網格上綁定部分字段，需

47、要對數(shù)據(jù)網格布局進行編輯。,本章目錄,安徽工業(yè)大學計算機學院,282,10.3 記錄集對象,10.3.1 瀏覽記錄集,1. AbsoloutPostion屬性 返回當前記錄指針值，從1到Recordset對象所含記錄數(shù)。 2. BOF和EOF的屬性 BOF判定記錄指針是否在首記錄之前，EOF判定記錄指針是否在末記錄之后。 如果BOF和EOF的屬性值都為True，則記錄集為空。,本章目錄,安徽工業(yè)大學計算機學院,283,3. RecordCount屬性 對Recordset對象中的記錄計數(shù)，該屬性為只讀屬性。 4. Find方法 在Recordset對象中查找與指定條件相符的一條記錄，并使之成為

48、當前記錄。如果找不到，則記錄指針指在記錄集末尾。 Recordset.Find 搜索條件 ,位移 , 搜索方向, 開始位置,本章目錄,安徽工業(yè)大學計算機學院,284,5. Move方法組 Move方法可代替對數(shù)據(jù)控件對象的4個箭頭按鈕的操作遍歷整個記錄集。 (1) MoveFirst方法移至第1條記錄。 (2) MoveLast方法移至最后一條記錄。 (3) MoveNext方法移至下一條記錄。 (4) MovePrevious方法移至上一條記錄。 (5) Move n 方法向前或向后移n條記錄。 例10.5用命令按鈕代替數(shù)據(jù)控件對象的4個箭頭按鈕的功能,使用Find方法查找記錄,本章目錄,安

49、徽工業(yè)大學計算機學院,285,記錄集屬性方法小結,本章目錄,安徽工業(yè)大學計算機學院,286,10.3.2 記錄集的編輯,1數(shù)據(jù)編輯方法 記錄集中數(shù)據(jù)的增、刪、改涉及到4個方法： AddNew方法 在記錄集中增加入一個新行 Delete方法 刪除記錄集中的當前記錄 Update方法 確定修改并保存到數(shù)據(jù)源中 CancelUpdate方法 取消未調用Update方法前對記錄所做的所有修改,本章目錄,安徽工業(yè)大學計算機學院,287,增加新記錄,2增加新記錄 (1) 調用AddNew方法增加一條空記錄 (2) 給新記錄各字段賦值(可以通過綁定控件直接輸入，或使用程序代碼給字段賦值，格式為：Record

50、set.Fields(字段名) = 值 (3) 調用Update方法，確定所做的添加，將緩沖區(qū)內的數(shù)據(jù)寫入數(shù)據(jù)庫,本章目錄,安徽工業(yè)大學計算機學院,288,刪除記錄,3. 刪除記錄 (1) 定位被刪除的記錄使之成為當前記錄 (2) 調用Delete方法 (3) 移動記錄指針 注意：使用Delete方法當前記錄立即刪除，不加任何的警告或者提示。刪除一條記錄后，綁定控件仍舊顯示該記錄的內容。因此，必須移動記錄指針刷新綁定控件。,本章目錄,安徽工業(yè)大學計算機學院,289,修改記錄,4.修改記錄 當改變數(shù)據(jù)項的的內容時，ADO自動進入編輯狀態(tài)，在對數(shù)據(jù)編輯后，只要改變記錄集的指針或調用Update方法

51、，即可確定所做的修改。 例11.6在例10.5的基礎上加入“新增”、“刪除”、“更新”、“放棄”和“結束”5個按鈕，通過對按鈕的編程建立增、刪、改功能,本章目錄,安徽工業(yè)大學計算機學院,290,Adodc1.Recordset. AddNew 增加記錄,數(shù)據(jù)庫,,UpData,,,填入新數(shù)據(jù),編輯記錄刪除記錄 給各字段賦值 調用Delete方法 調用Update方法 移動記錄指針,數(shù)據(jù)修改小結,本章目錄,安徽工業(yè)大學計算機學院,291,10.3.3 查詢與統(tǒng)計,通過SQL語句從數(shù)據(jù)源中獲取信息，查詢條件由Select語句的Where短語構成，使用And與Or運算符組合出復雜的查詢條件。

52、模糊查詢使用運算符Like，百分號%代替任意個不確定的內容，用下劃線_代替一個不確定的內容。 例如，姓名 Like 張% 將查詢所有張姓的人員 例10.7 根據(jù)輸入的專業(yè)名稱，在網格內顯示Student.mdb數(shù)據(jù)庫中該專業(yè)所有學生信息,本章目錄,安徽工業(yè)大學計算機學院,292,10.3.3 查詢與統(tǒng)計,例10.8使用數(shù)據(jù)列表框或數(shù)據(jù)組合框提供專業(yè)名稱，實現(xiàn)查詢 例10.9使用SQL的函數(shù)和分組功能，統(tǒng)計各專業(yè)的人數(shù)、年齡分布。,本章目錄,安徽工業(yè)大學計算機學院,293,10.3.4 BLOB數(shù)據(jù)處理,二進制大型對象(Binary Large Object，BLOB)是指任何需要存入數(shù)據(jù)庫的隨

53、機大塊字節(jié)流數(shù)據(jù)，例如圖形或聲音文件。數(shù)據(jù)庫中存放BLOB的字段必須是二進制類型(在Access中為OLE對象)，在ADO中如何處理BLOB類型的數(shù)據(jù)，把圖形作為數(shù)據(jù)庫的一個字段值存放在數(shù)據(jù)庫，并能顯示圖形數(shù)據(jù)?,本章目錄,安徽工業(yè)大學計算機學院,294,BLOB數(shù)據(jù)處理,AppendChunk方法將BLOB數(shù)據(jù)寫入數(shù)據(jù)庫,語法格式： ADO對象.Recordset.Fields(字段).AppendChunk Data 用二進制訪問方式打開BLOB數(shù)據(jù)文件 定義一個與文件長度相同大小的字節(jié)型數(shù)組 將文件保存到數(shù)組 使用ADO對象的AppendChunk方法寫入數(shù)據(jù)庫 例10.10選擇指定圖形

54、文件將數(shù)據(jù)寫入到數(shù)據(jù)庫，在瀏覽記錄時顯示照片。,本章目錄,安徽工業(yè)大學計算機學院,295,10.4 綜 合 應 用,例10.11 設計一個多媒體信息管理系統(tǒng)，要求能將多媒體數(shù)據(jù)保存在數(shù)據(jù)庫，具有記錄的增加、刪除、統(tǒng)計和多媒體信息重現(xiàn)等功能。 例10.12 設計一個飛行航班信息查詢系統(tǒng)，要求具有記錄的增加、編輯、刪除、查詢等功能,本章目錄,安徽工業(yè)大學計算機學院,296,思考題,1.什么是關系型數(shù)據(jù)庫？ 2. 簡述SQL中常用的Select 語句的基本格式和用法。 3. 簡述使用ADO數(shù)據(jù)控件訪問數(shù)據(jù)庫的步驟。 4. 什么是數(shù)據(jù)綁定？怎樣實現(xiàn)數(shù)據(jù)綁定？ 5. 在ADO中如何用代碼實現(xiàn)數(shù)據(jù)連接，創(chuàng)建一個記錄集對象？ 6在ADO中如何用代碼實現(xiàn)記錄指針的移動？ 7. 如何實現(xiàn)對記錄集的增、刪、改功能？ 8. 如果要顯示數(shù)據(jù)表內的照片，可使用哪些控件？,本章目錄,