數(shù)據(jù)庫技術(shù)7PPT學(xué)習(xí)教案

1、數(shù)據(jù)庫技術(shù)數(shù)據(jù)庫技術(shù)7 為什么要使用為什么要使用VBA： 1、編寫包含特別復(fù)雜的表達式時、編寫包含特別復(fù)雜的表達式時(如用如用IIF函函數(shù)數(shù) 不能實現(xiàn)時不能實現(xiàn)時)。 2、要執(zhí)行、要執(zhí)行Access標(biāo)準(zhǔn)宏不支持的操作。如標(biāo)準(zhǔn)宏不支持的操作。如事事 務(wù)處理（即務(wù)處理（即COMMIT,ROLLBACK）。）。 3、動態(tài)數(shù)據(jù)交換，動態(tài)數(shù)據(jù)交換，DDE操作。操作。 4、同時打開兩個以上數(shù)據(jù)庫時。、同時打開兩個以上數(shù)據(jù)庫時。 5、應(yīng)用程序文檔化。、應(yīng)用程序文檔化。6、建立用戶自定義函數(shù)時。、建立用戶自定義函數(shù)時。7、顯示詳細的出錯信息。、顯示詳細的出錯信息。8、創(chuàng)建或操作對象。、創(chuàng)建或操作對象。第1頁/

2、共43頁7.1 程序設(shè)計的概念如單擊、雙擊、鼠標(biāo)按下等事件。如單擊、雙擊、鼠標(biāo)按下等事件。第2頁/共43頁一、基本知識一、基本知識1、VBA基本語法基本語法（1）常用語句：如循環(huán)、選擇語句等（2）語句的基本成分：變量、常量、函數(shù) 、運算符及表達式等。（3）程序的控制結(jié)構(gòu)：如模塊、過程2、對象的概念、對象的概念 窗體、報表、控件、表、查詢等。3、程序的運行方式、程序的運行方式 事件發(fā)生后，對該事件的響應(yīng)時執(zhí)行程序。第3頁/共43頁二、程序設(shè)計的一般方法二、程序設(shè)計的一般方法1.選擇事件并打開VBE（VISUAL BASIC EDIT ） 選擇事件屬性，點擊事件生成器2. 輸入VBA代碼第4頁/共

3、43頁3.運行程序 在窗體視圖界面，產(chǎn)生事件，即可運行程序。三、對象及對象的集合三、對象及對象的集合Access的對象有表、查詢、窗體、報表及各種控件等。所有的同類對象構(gòu)成對象集合，如所有的窗體構(gòu)成窗體對象集。對象集合也可作為一個控件對待。對象的屬性：描述該對象的各方面的性質(zhì)。對象的方法：對象所能執(zhí)行的行為。第5頁/共43頁方法方法屬性屬性Database對象對象 Name、QueryTimeOut Updatable CollatingOrder Connect Transactions、 Version OpenRecordset CreateProperty CreateQueryDef

4、 CreateRelation CreateTableDef Execute 、Close 第6頁/共43頁屬性與方法的引用：對象對象.屬性屬性對象對象.方法方法Docmd . OpenForm “Orders” OpenForm為方法，Orders為參數(shù)其他方法有：SelectObject，DeleteObject ，Close，OpenQuery，F(xiàn)indRecord等第7頁/共43頁7.2 VBE用戶界面第8頁/共43頁第9頁/共43頁7.3 數(shù)據(jù)類型數(shù)據(jù)類型一、數(shù)據(jù)類型一、數(shù)據(jù)類型第10頁/共43頁1 1、表示數(shù)值型數(shù)據(jù)的符號、表示數(shù)值型數(shù)據(jù)的符號 整型：%長整型：&單精度：！ 雙精度

5、：、布爾型數(shù)據(jù)的值、布爾型數(shù)據(jù)的值 TRUE -1 FALSE 03 3、日期型時間變量的值、日期型時間變量的值 #1JAN98#4 4、VariantVariant數(shù)據(jù)類型數(shù)據(jù)類型 定義變量時未指定類型，則默認為Variant類型。5 5、變量的初始化、變量的初始化 定義變量時未指定類型，則默認為Variant類型。第11頁/共43頁二、變量和常量二、變量和常量變量的作用：存儲臨時值、計算結(jié)果等變量可以是整型、字符串型日期型等，也可以是數(shù)據(jù)庫中的任意對象，如表、查詢、窗體等。1、變量的聲明、變量的聲明先定義，后使用在VBE窗口中，選“工具”菜單中的“選項”，選中“要求聲明變量”。則在VBE最

6、上方出現(xiàn)下面說明：OPTION EXPLICITDim i as Intger ; Dim name as String;Dim i, j, k as Intger ; i=10; name=“zhang”第12頁/共43頁2、變量聲明語句的位置、變量聲明語句的位置變量的作用范圍與聲明語句的位置有關(guān)（1）過程級別的變量：在過程中或函數(shù)中定義的變量且只能用在此過程中或函數(shù)中。如圖中的sum、value。（2）模塊級別的變量：在所有的過程的上部，如a1。（3）全局變量：用Public聲明，如圖中的name。第13頁/共43頁3、常量的聲明、常量的聲明常量的作用范圍與聲明語句的位置有關(guān)，與變量相同。

7、如： Public Const PI=3.1415926; Const Mystr=“hello” , Mydouble as Double=3.4567第14頁/共43頁三、數(shù)據(jù)類型轉(zhuǎn)換三、數(shù)據(jù)類型轉(zhuǎn)換第15頁/共43頁四、數(shù)組四、數(shù)組數(shù)組是有相同數(shù)據(jù)類型的元素按一定順序組成的序列，在內(nèi)存中連續(xù)存放。數(shù)組中的每個元素都是變量，可以通過下標(biāo)來引用。1、數(shù)組的聲明Dim a(364) as Integer;數(shù)組有a(0), a(1), a(2), , a(364)共365個元素，默認下標(biāo)從0開始。數(shù)組下標(biāo)的指定數(shù)組下標(biāo)的指定（1）Option Base 1; 指定下標(biāo)從1開始 Dim a(364

8、) as Integer; a(1), a(2), , a(364)（2）Dim a( 2 to 364) as Integer；指定下標(biāo)范圍第16頁/共43頁2、數(shù)組元素的引用 a(3) =10；3、多維數(shù)組Dim a(1 to 5, 1 to 10) as Integer; 定義 a 為 5行、10列的二維數(shù)組第17頁/共43頁五、用戶自定義數(shù)據(jù)類型五、用戶自定義數(shù)據(jù)類型稱記錄類型，有基本數(shù)據(jù)類型組成，由用戶自定義。第18頁/共43頁Dim Myhome As AddressMyhome . Street = “Green Road”Myhome . Zipcode = “100081”M

9、yhome . Phone = “12345678” ；每個成員分別賦值With Myhome . Street = “Green Road” . Zipcode = “100081” . Phone = “12345678” Endwith第19頁/共43頁7.4 VBA常用語句常用語句一、語句分類及書寫一、語句分類及書寫一條語句是一條完整的命令，可包含關(guān)鍵字、運算符、變量、常量和表達式等?？煞譃?種類型：1、聲明語句：如、聲明語句：如 Dim a1 as Integer 命名和定義過程、變量、數(shù)組以及常數(shù)，同時定義了它們的作用范圍。其它用來聲明的關(guān)鍵字還有ReDim、Static、Publ

10、ic、Private、Const等。第20頁/共43頁2、賦值語句、賦值語句: 如如 a1=10Input為輸入函數(shù)，其功能是彈出一個對話框，將輸入的內(nèi)容作為字符串。3、語句的書寫格式、語句的書寫格式（1）一條語句可分為多行，用“_”作為續(xù)行符。（2）一行寫多條語句時，用“ ：”分開。第21頁/共43頁二、選擇結(jié)構(gòu)二、選擇結(jié)構(gòu)三種基本結(jié)構(gòu)：順序結(jié)構(gòu)、選擇分支結(jié)構(gòu)、循環(huán)結(jié)構(gòu)順序結(jié)構(gòu)、選擇分支結(jié)構(gòu)、循環(huán)結(jié)構(gòu)選擇結(jié)構(gòu)：按照給定的條件進行分析和判斷，執(zhí)行不同代碼。1. If.Then.Else語句第22頁/共43頁第23頁/共43頁2. Select Case語句第24頁/共43頁3. With語句對

11、某個對象執(zhí)行一系列語句時，可以不必重復(fù)指出對象的名稱。Mylabel.height=2000 不使用With語句Mylabel.width=2000Mylabel.caption=“This is Mylabel”With EndwithWith Mylabel 使用With語句 .height=2000 .width=2000 .caption=“This is Mylabel”Endwith第25頁/共43頁三、循環(huán)結(jié)構(gòu)三、循環(huán)結(jié)構(gòu)1. For . Next 語句Dim sum , i as IntegerSum=0For i=1 to 10 step 1 ；step 1 可省略 sum=

12、sum+INext i多次執(zhí)行某一條或語句序列時，使用循環(huán)結(jié)構(gòu)。第26頁/共43頁2. Do.Loop 語句語句Do While|Until LoopDo Loop While|Until第27頁/共43頁Dim sum , i as IntegerSum=0Do sum=sum+i i=i+1Loop while i11Dim sum , i as IntegerSum=0Do while i11 sum=sum+i i=i+1Loop 第28頁/共43頁第29頁/共43頁Option compare databasePrivate form_load()Dim db as database

13、Dim recname as recordsetDim strname as fieldDim myname(3) as stringDim inti as integerSet db=currentdb()Set recname=db.openrecordset(“名單”)Set strname=recname!姓名Inti=0Do until recname.eof Myname(inti)=strname Inti=inti+1 Recname.movenextLoopMe.姓名列表.rowsourcetype=“值列表”Me.姓名列表. rowsource=myname(0)For inti=1 to 3 Me.姓名列表. rowsource= Me.姓名列表. rowsource & ” ; ” & myname(i)Next IEnd exit第30頁/共43頁7.5 過程過程一、一、 子過程子過程過程是將VBA語句的聲明和執(zhí)行語句集合在一起，并有一個過程名的程序單位。有子過程、函數(shù)過程、屬性過程三種。第31頁/共43頁二、函數(shù)過程第32頁/共43頁三、變量的作用域1. 變量(或常量)的公共作用域Public與私有作用域Private2. 使用Static語句