數(shù)據(jù)庫(kù)技術(shù)7PPT學(xué)習(xí)教案_第1頁(yè)
數(shù)據(jù)庫(kù)技術(shù)7PPT學(xué)習(xí)教案_第2頁(yè)
數(shù)據(jù)庫(kù)技術(shù)7PPT學(xué)習(xí)教案_第3頁(yè)
數(shù)據(jù)庫(kù)技術(shù)7PPT學(xué)習(xí)教案_第4頁(yè)
數(shù)據(jù)庫(kù)技術(shù)7PPT學(xué)習(xí)教案_第5頁(yè)
已閱讀5頁(yè),還剩38頁(yè)未讀 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

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

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

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

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

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

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

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

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

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

10、ic、Private、Const等。第20頁(yè)/共43頁(yè)2、賦值語(yǔ)句、賦值語(yǔ)句: 如如 a1=10Input為輸入函數(shù),其功能是彈出一個(gè)對(duì)話框,將輸入的內(nèi)容作為字符串。3、語(yǔ)句的書寫格式、語(yǔ)句的書寫格式(1)一條語(yǔ)句可分為多行,用“_”作為續(xù)行符。(2)一行寫多條語(yǔ)句時(shí),用“ :”分開(kāi)。第21頁(yè)/共43頁(yè)二、選擇結(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):按照給定的條件進(jìn)行分析和判斷,執(zhí)行不同代碼。1. If.Then.Else語(yǔ)句第22頁(yè)/共43頁(yè)第23頁(yè)/共43頁(yè)2. Select Case語(yǔ)句第24頁(yè)/共43頁(yè)3. With語(yǔ)句對(duì)

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

12、sum+INext i多次執(zhí)行某一條或語(yǔ)句序列時(shí),使用循環(huán)結(jié)構(gòu)。第26頁(yè)/共43頁(yè)2. Do.Loop 語(yǔ)句語(yǔ)句Do While|Until LoopDo Loop While|Until第27頁(yè)/共43頁(yè)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頁(yè)/共43頁(yè)第29頁(yè)/共43頁(yè)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頁(yè)/共43頁(yè)7.5 過(guò)程過(guò)程一、一、 子過(guò)程子過(guò)程過(guò)程是將VBA語(yǔ)句的聲明和執(zhí)行語(yǔ)句集合在一起,并有一個(gè)過(guò)程名的程序單位。有子過(guò)程、函數(shù)過(guò)程、屬性過(guò)程三種。第31頁(yè)/共43頁(yè)二、函數(shù)過(guò)程第32頁(yè)/共43頁(yè)三、變量的作用域1. 變量(或常量)的公共作用域Public與私有作用域Private2. 使用Static語(yǔ)句

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論