第8章VA程序設(shè)計(jì)

1、vbavba8.1 8.1 基基 本本 概概 念念子程序子程序一個(gè)簡(jiǎn)單的一個(gè)簡(jiǎn)單的subsub過(guò)程過(guò)程sub結(jié)尾sub開(kāi)頭一、常用的一、常用的vbavba命令命令 1 1、變量聲明：、變量聲明： 在引用變量之前應(yīng)首先定義變量的數(shù)據(jù)類型。在引用變量之前應(yīng)首先定義變量的數(shù)據(jù)類型。a字符型變量字符型變量x,y為整型變量為整型變量給變量賦值的語(yǔ)句給變量賦值的語(yǔ)句2 2、打開(kāi)操作、打開(kāi)操作 3 3、關(guān)閉操作、關(guān)閉操作 4 4、輸出操作、輸出操作msgbox使用說(shuō)明使用說(shuō)明5 5、記錄操作、記錄操作docmd.gotorecord , , acfirst docmd.gotorecord , , acne

2、xt docmd.gotorecord , , acprevious docmd.gotorecord , , aclast8.2 vba8.2 vba的基本程序結(jié)構(gòu)的基本程序結(jié)構(gòu) 1 1、順序結(jié)構(gòu)：、順序結(jié)構(gòu)：功能：語(yǔ)句由上至下順序執(zhí)行。功能：語(yǔ)句由上至下順序執(zhí)行。語(yǔ)句語(yǔ)句1語(yǔ)句語(yǔ)句2語(yǔ)句語(yǔ)句3例：例：private sub command0_click()msgbox (“歡迎進(jìn)入文物查詢系統(tǒng)！歡迎進(jìn)入文物查詢系統(tǒng)！)docmd.openform “文物管理封面文物管理封面end sub2 2、分支（選擇）結(jié)構(gòu)、分支（選擇）結(jié)構(gòu) if if 條件語(yǔ)句條件語(yǔ)句 功能：功能：若滿足條件執(zhí)行若滿

3、足條件執(zhí)行then后面后面，否，否則執(zhí)行則執(zhí)行語(yǔ)句序列語(yǔ)句序列1條件語(yǔ)句序列語(yǔ)句序列2yesno 【實(shí)例【實(shí)例2 2】驗(yàn)證密碼】驗(yàn)證密碼進(jìn)入進(jìn)入密碼正確?彈出信息框彈出信息框yesno 事件驅(qū)動(dòng)程序代碼事件驅(qū)動(dòng)程序代碼進(jìn)入進(jìn)入密碼正確?彈出信息框彈出信息框yesno 【實(shí)例【實(shí)例2 2】若登錄時(shí)需要用戶名和密碼的情況若登錄時(shí)需要用戶名和密碼的情況dim atext1.setfocusif forms!登錄!text1 = and forms!登錄!text2 = 123456 then docmd.close docmd.openform else a = msgbox( if a 4 then quit else text1 = text2 = text1.setfocus end ifend if密碼用戶名進(jìn)