信息管理系統(tǒng)實驗指導(dǎo)書5

實驗五宏實驗類型： 驗證性 實驗課時：2學(xué)時指導(dǎo)教師：_時間：_年_月—日課次：第 節(jié)教學(xué)周次：第—周―、實驗?zāi)康恼莆蘸甑膭?chuàng)建掌握宏的運行二、實驗內(nèi)容及要求創(chuàng)建宏運行宏宏的創(chuàng)建、運行創(chuàng)建并運行只有一個操作的宏要求：在“人事管理.accdb”數(shù)據(jù)庫中創(chuàng)建宏，功能是打印預(yù)覽“南航人文學(xué)院員工工資發(fā)放記錄報表”。操作步驟：齊在“人事管理.accdb”數(shù)據(jù)庫中，選擇“創(chuàng)建”選項卡一一“宏與代碼”組，單擊“宏”按鈕 ,進入宏設(shè)計窗口。OpenForrnOpenQueryOpenReportOpenTable-PririiObjectPriritPr^viewQuitAccessOpenForrnOpenQueryOpenReportOpenTable-PririiObjectPriritPr^viewQuitAccessRefreshoE3DpcnRepoctX鬆釣崩咖就11￡麺薛殊T湄打碗V窗匚獻耀T圖5-1宏設(shè)計器組合框及操作參數(shù)的設(shè)置在“添加新操作”列第1行選擇“OpenReport”操作，“操作參數(shù)”區(qū)中的“報表名稱”選“南航人文學(xué)院員工工資發(fā)放記錄報表”，“視圖”選擇“打印預(yù)覽”。如圖5-1所示。單擊“保存”按鈕，“宏名稱”文本框中輸入“預(yù)覽報表宏”。單擊“運行”按鈕，運行宏。創(chuàng)建并運行操作序列宏要求：創(chuàng)建宏，功能是打開“員工信息”表，打開表前要發(fā)出“嘟嘟”聲；再關(guān)閉“員工信息”表，關(guān)閉前要用消息框提示操作。操作步驟：（1） 在“人事管理.accdb”數(shù)據(jù)庫中，選擇“創(chuàng)建”選項卡一一“代碼與宏”組，單擊“宏”按鈕，進入宏設(shè)計窗口。（2） 在“添加新操作”列的第1行，選擇“Beep”操作。（3） 在“添加新操作”列的第2行，選擇“OpenTable”操作，“操作參數(shù)”區(qū)中的“表名稱”選擇“員工信息”表。（4） 在“添加新操作”列的第3行，選擇“MsgBox”操作?！安僮鲄?shù)”區(qū)中的“消息”框中輸入“關(guān)閉表嗎？”。（5） 在“添加新操作”列的第4行，選擇“RunMenuCommand”操作，再選擇“Close”操作如圖5-2所示。BeepOpenTable-表容和員工信息視圏舞表Me&sageBox:肖皂關(guān)詡表嗎孑笈唏嶷聲曇-RunM&nuCommand命令Clote勵Q新燥件圖5-2宏設(shè)計視圖（6） 單擊“保存”按鈕，“宏名稱”文本框中輸入“操作序列宏”。（7） 單擊“運行”按鈕，運行宏。創(chuàng)建并運行條件操作宏在“人事管理”數(shù)據(jù)庫中，創(chuàng)建一個登錄驗證宏，使用命令按鈕運行該宏時，對用戶所輸入的密碼進行驗證，只有輸入的密碼為“123456”才能打開啟動窗體，否則，彈出消息框，提示用戶輸入的系統(tǒng)密碼錯誤。操作步驟如下：（1）首先使用窗體設(shè)計視圖，創(chuàng)建一個外圍登錄窗體。外圍登錄窗體包括一個文本框，用來輸入密碼。一個命令按鈕用來驗證密碼（此命令按鈕留待后面再進行創(chuàng)建）以及窗體標題，該登錄窗體的創(chuàng)建結(jié)果，如圖5-3所示。屬性表 ▼X所逛內(nèi)容時類型：命令按鈕梧式站2尋件梧式站2尋件具他全部壬-1-獲得嵐F富書舞I宏組左去組,Eubl孟咫下宏 |C&mmandS圖5-3登錄窗體設(shè)計視圖及“確定”按鈕單擊事件選擇在“創(chuàng)建”選項卡的“宏與代碼”組中，單擊“宏”按鈕，打開“宏設(shè)計器”在添加新操作組合框中，輸人“IF”，單擊條件表達式文本框右側(cè)的按鈕。打開“表達式生成器”對話框，在“表達式元素”窗格中，展開“人事管理/Forms/所有窗體”,選中“外圍登錄”窗體。在“表達式類別”窗格中，雙擊“TextO”，在表達式值中輸入“〈＞123456”，如圖5-4所示。單擊“確定”按鈕，返回到“宏設(shè)計器”中。圖5-4“表達式設(shè)計器”對話框在“添加新操作”組合框中單擊下拉箭頭，在打開的列表中選擇“MessageBox”，在“操作參數(shù)”窗格的“消息”行中輸人“密碼錯誤！請重新輸人系統(tǒng)密碼!”，在類型組合框中，選擇“警告!”，其他參數(shù)默認。如圖5-7所示重復(fù)步驟(2)和(3)，設(shè)置第2個IF。在IF的條件表達式中輸人條件：[Forms]![外圍登錄]![Text0]=""123456""”。在添加新操作組合框中，選擇“Closewindows"，其他參數(shù)分別為“窗體、驗證密碼、否”。設(shè)計結(jié)果如圖5-5所示。

在添加新操作中，選擇“OpenForm”，各參數(shù)分別為“員工信息、窗體、普通”，設(shè)置的結(jié)果，如圖5-5所示。保存宏名稱為“外圍登錄驗證”。打開“驗證密碼”窗體切換到設(shè)計視圖中，選中“確定”按鈕，在屬性窗口中“事件”選項卡,“單擊”項選“登陸驗證”。如圖5-7所示?！鮅fForms![^?tt]!n'extO]<>"123456"□IfForms![^?tt]!n'extO]<>"123456"ThenMessageBox消息密碼錯誤！請重新抜人葩密碼！發(fā)韓韓聲是日If[Forms]! 1|TextO]='123456"Then/'i\ClG5-eWindow對蠡類型窗低對魚名稱登錄裔鈦躁存否OpenForm窗庫名稱迤課I靖視囹窗體艇名稱當案件窗口欖式普通EndIf EndIf圖5-5登錄驗證宏的設(shè)計視圖選“窗體”對象，打開“登錄窗體”窗體，分別輸入正確的密碼、錯誤的密碼，單擊“確定”按鈕，查看結(jié)果。創(chuàng)建自動運行宏要求：當用戶打開數(shù)據(jù)庫后，系統(tǒng)彈出登錄窗口。操作步驟：在“創(chuàng)建”選項卡的“宏與代碼”組中，單擊“宏”按鈕，打開“宏設(shè)計器”在“添加新操作”組合框中單擊下拉箭頭，在打開的列表中選擇“openform”，在“窗體名稱”參數(shù)中選擇“登錄”，其他參數(shù)默認。如圖5-6所示保存宏，宏名為“AutoExec”。關(guān)閉數(shù)據(jù)庫。重新打開“人事管理.accdb”數(shù)據(jù)庫，宏自動執(zhí)行，彈出登錄窗口。日OpenForm日OpenForm蹴[]新擾作圖5-6自動運行宏設(shè)計視圖

實驗六模塊與VBA程序設(shè)計實驗類型：驗證性實驗課時：丄學(xué)時指導(dǎo)教師：_時間：_年_月—日課次：第 節(jié)教學(xué)周次：第—周―、實驗?zāi)康恼莆战藴誓K及窗體模塊的方法熟悉VBA開發(fā)環(huán)境及數(shù)據(jù)類型掌握常量、變量、函數(shù)及其表達式的用法4?掌握程序設(shè)計的順序結(jié)構(gòu)、分支結(jié)構(gòu)、循環(huán)結(jié)構(gòu)5.了解VBA的過程及參數(shù)傳遞6.掌握變量的定義方法和不同的作用域和生存期二、實驗內(nèi)容及要求1?創(chuàng)建標準模塊與窗體模塊常量、變量、函數(shù)及表達式的使用數(shù)據(jù)類型、輸入、輸出函數(shù)及程序的順序結(jié)構(gòu)選擇結(jié)構(gòu)if語句及SelectCase語句的使用DoWhile循環(huán)、For循環(huán)語句的使用VBA過程、過程的參數(shù)傳遞、變量的作用域和生存期三、實驗步驟案例一：創(chuàng)建公用模塊在“人事管理.accdb”數(shù)據(jù)庫中創(chuàng)建一個通用模塊以建立數(shù)據(jù)庫的連接和用戶登錄等，保存為“公共模塊”。操作步驟：打開“人事管理.accdb”數(shù)據(jù)庫，選擇“創(chuàng)建”選項卡一一“宏與代碼”組一一單擊“模塊”按鈕，打開VBA編輯器。如圖6-1所示。倉槿塊Visual宏與代碼圖6-1倉槿塊Visual宏與代碼圖6-1打開VBA編輯器在代碼窗口中輸入如下內(nèi)容：OptionCompareDatabaseOptionExplicitPubliccheckAsBoolean'通過字符串StrQuery所引用的SQL語句返回一個ADO.Recordset對象PublicFunctionGetRs(ByValStrQueryAsString)AsADODB.RecordsetDimrsAsNewADODB.RecordsetDimconnAsNewADODB.ConnectionOnErrorGoToGetRS_ErrorSetconn=CurrentProject.Connectionrs.OpenStrQuery,conn,adOpenKeyset,adLockOptimisticSetGetRs=rsGetRS_Exit:Setrs=NothingSetconn=NothingExitFunctionGetRS_Error:MsgBox(Err.Description)ResumeGetRS_ExitEndFunction單擊“保存”按鈕，輸入模塊名“公共模塊”單擊“確定”按鈕即可。案例二：編寫“登錄”窗體代碼1?給窗體添加“加載”事件過程操作步驟：用設(shè)計視圖打開“登錄”窗體。下拉列表框,表，如圖-2設(shè)置窗體的記錄源。在窗體的“屬性表”窗格中，單擊“所選內(nèi)容的類型：窗體”選擇“窗體”選項。切換到“數(shù)據(jù)”選項卡，在“記錄源”行的下拉列表框中選擇“管理員所示。下拉列表框,表，如圖-2JE性去肝述內(nèi)容柴矣型；mT記錄源全業(yè)工怪計輙則tn載時的歸遷詐fflseaE忙戢時的徉字方式軟莊續(xù)上浬企業(yè)工賈發(fā)放記聶交叉袁2塵業(yè)工放記最交夏卻企業(yè)工資岌枚記尋卻左企業(yè)tn載時的歸遷詐fflseaE忙戢時的徉字方式軟莊續(xù)上浬鍛別工沒團旻圖6-2打開登錄窗體的屬性表

將“屬性表”中的選項卡切換到“事件”在“加載”行中選中“事件過程”選項，并單擊右邊的省略號按鈕，如圖6-3所示。屈性兼 *所逛內(nèi)客的類型：搐式窗體 [V成左當前禺書癖]▼???羊擊叔琳嶄其他|知圖6-3給窗體添加“加載”事件過程進入VBA編輯器，自動新建一個名稱為“Form_Load()”的Sub過程。輸入如下VBA代碼，為窗體添加“加載”事件過程。PrivateSubForm_Load()'最小化數(shù)據(jù)庫窗體并初始化該窗體.OnErrorGoToForm_Open_ErrDoCmd.SelectObjectacForm,"主切換面板"，TrueDoCmd.Minimizecheck=FalseForm_Open_Exit:ExitSubForm_Open_Err:MsgBoxErr.DescriptionResumeForm_Open_ExitEndSub保存后，單擊工具欄中的“視圖MicrosoftofficeAccess”按鈕廚，返回Access。為“OK”按鈕添加事件過程操作步驟：在“登錄”窗體的“設(shè)計視圖”中單擊“確定”按鈕，以選中OK按鈕控件。將OK按鈕控件的屬性表窗格切換到“事件”選項卡，在“單擊”行中選擇“事件過程”選項,并單擊右邊的省略號按鈕，如圖6-4所示。圖6-4圖6-4給OK按鈕添加事件過程系統(tǒng)進入VBA編輯器，并自動新建一個名稱為“OK_Click()”的Sub過程。在代碼窗口中輸入以下VBA代碼：PrivateSubOK_Click()OnErrorGoToErr_OK_ClickDimstrSQLAsStringDimrsAsNewADODB.RecordsetIfIsNull(Me.UserName)OrMe.UserName=""ThenDoCmd.BeepMsgBox("請輸入用戶名稱！")ElseIfIsNull(Me.Password)OrMe.Password=""ThenDoCmd.BeepMsgBox("請輸入密碼！")ElsestrSQL="SELECT*FROM管理員WHERE用戶名='"&Me.UserName&"'and密碼='"&Me.Password&"'"Setrs=GetRs(strSQL)Ifrs.EOFThenDoCmd.BeepMsgBox("用戶名或密碼錯誤！")Me.UserName=""Me.Password=""Me.UserName.SetFocusExitSubElseDoCmd.Closecheck=TrueDoCmd.OpenForm("主切換面板")EndIfEndIfSetrs=NothingExit_OK_Click:ExitSubErr_OK_Click:MsgBox(Err.Description)Debug.PrintErr.DescriptionResumeExit_OK_ClickEndSub保存該VBA編碼，就為OK按鈕控件添加了“單擊”事件過程。3.為“Cancel”按鈕添加事件過程。操作步驟：在“登錄”窗體的“設(shè)計視圖”中單擊“取消”按鈕，以選中Cancel按鈕控件。將Cancel按鈕控件的屬性表窗格切換到“事件”選項卡，在“單擊”行中選擇“事件過程”選項，并單擊右邊的省略號按鈕，如圖6-5所示。系統(tǒng)進入VBA編輯器，并自動新建一個名稱為“Cancel_Click()”的Sub過程。在代碼窗口中輸入以下VBA代碼：PrivateSubCancel_Click()

check=FalseDoCmd.CloseEndSub保存該VBA編碼，就為Cancel按鈕控件添加了“單擊”事件過程。屈性麥 xCiancel▼闞娠Wt其他|鋼-I-鼠飯按下進入退出圖6-5給Cancel按鈕添加事件過程案例三：編寫“主切換面板”窗體代碼1.為“主切換面板”窗體上的“Btnl”按鈕控件添加“單擊”事件過程操作步驟：選擇“主切換面板”窗體對象，右鍵單擊選擇“設(shè)計視圖”命令，進入該窗體的設(shè)計視圖。在“屬性表”空格中，選擇“數(shù)據(jù)”選項卡，單擊“記錄源”行的小箭頭，在彈出的下拉列表中選擇“WwitchboardItems”表，如圖6-6所示。圖6-6設(shè)置主切換面板窗體的記錄源

單擊btnl按鈕，選擇“屬性表”中“事件”選項卡，在“單擊”行的屬性框中輸入“=HandleButtonClick(l)”，以添加“btnl”按鈕“單擊事件”的響應(yīng)程序。依次為btn2-btn8按鈕控件設(shè)置單擊屬性“=HandleButtonClick(2)”至到“=HandleButtonClick(8)”。在該窗體的設(shè)計視圖“主體”節(jié)任意位置右擊，彈出快捷菜單，選擇“事件生成器”如圖6-7所示。亙；Tab舷序(Ih，盤埴充/背訟CD ?—1寄卜埴充/背冕色B?F 1tt網(wǎng)格(Ki」i；直面頁眉須腳囲凰窗體真1煩腳凹雪雇性曰 |圖6-7選擇事件生成器在“選擇生成器”的對話框中選擇“代碼生成器”單擊“確定”后進入VBA編輯器，如圖6-8所示。圖6-8選擇代碼生成器(6)刪除系統(tǒng)自動生成的“主體_Click()”過程代碼，新建一個新的Function函數(shù)HandleButtonClick,代碼如下：PrivateFunctionHandleButtonClick(intbtnAsInteger)'處理按鈕click事件ConstconCmdGotoSwitchboard=1ConstconCmdNewForm=2ConstconCmdOpenReport=3ConstconCmdExitApplication=4ConstconCmdRunMacro=8ConstconCmdRunCode=9ConstconCmdOpenPage=10ConstconErrDoCmdCancelled=2501DimrsAsADODB.RecordsetDimstrSQLAsStringOnErrorGoToHandleButtonClick_ErrSetrs=CreateObject("ADODB.Recordset")strSQL="SELECT*FROM[SwitchboardItems]"strSQL=strSQL&"WHERE[SwitchboardID]="&Me![SwitchboardID]&"AND[ItemNumber]="&intbtnSetrs=GetRs(strSQL)If(rs.EOF)ThenMsgBox"讀取SwitchboardItems表時出錯。"rs.CloseSetrs=NothingExitFunctionEndIfSelectCasers![Command]'進入另一個切換面板CaseconCmdGotoSwitchboardMe.Filter="[ItemNumber]=0AND[SwitchboardID]="&rs![Argument]'打開一個新窗體CaseconCmdNewFormDoCmd.OpenFormrs![Argument]'打開報表CaseconCmdOpenReportDoCmd.OpenReportrs![Argument],acPreview'退出應(yīng)用程序CaseconCmdExitApplicationCloseCurrentDatabase'運行宏.CaseconCmdRunMacroDoCmd.RunMacrors![Argument]'運行代碼.CaseconCmdRunCodeApplication.Runrs![Argument]'打開一個數(shù)據(jù)存取頁面CaseconCmdOpenPageDoCmd.OpenDataAccessPagers![Argument]'未定義的選項.CaseElseMsgBox"未知選項。"EndSelect'Closetherecordsetandthedatabase.rs.CloseHandleButtonClick_Exit:OnErrorResumeNextSetrs=NothingExitFunctionHandleButtonClick_Err:If(Err=conErrDoCmdCancelled)ThenResumeNextElseMsgBox"執(zhí)行命令時出錯?！?vbCriticalResumeHandleButtonClick_ExitEndIfEndFunction(7)單擊保存按鈕保存代碼，完成“主切換面板”上“按鈕”控件的“單擊”消息事件。2?為“主切換面板”窗體添加“成為當前”事件過程操作步驟：選擇“屬性表”中“窗體”對象，在“事件”選項卡中選擇“成為當前”單擊下拉列表框，選擇“事件過程”選項，如圖6-9所示。圖6-9選擇成為當前屬性單擊“成為當前”右邊的省略號按鈕，進入VBA編輯器，系統(tǒng)自動建立一個“Form_Current()”過程，寫入以下代碼：PrivateSubForm_Current()'更新標題并顯示列表.Me.Caption=Nz(Me![ItemText],"")FillbtnsEndSub上述代碼中的“Fillbtns”是另外一個過程，其功能是為實現(xiàn)“主切換面板”上的控件數(shù)量和控件標題等信息，代碼如下：PrivateSubFillbtns()'顯示切換框中的列表'按鈕數(shù)量.ConstconNumButtonsAsInteger=8DimrsAsNewADODB.RecordsetDimstrSQLAsStringDimintbtnAsIntegerMe![btnl].SetFocusForintbtn=2ToconNumButtonsMe("btn"&intbtn).Visible=FalseMe("lbl"&intbtn).Visible=FalseNextintbtn'打開表SwitchboardItemsstrSQL="SELECT*FROM[SwitchboardItems]"strSQL=strSQL&”WHERE[ItemNumber]>0AND[SwitchboardID]="&Me![SwitchboardID]strSQL=strSQL&”O(jiān)RDERBY[ItemNumber];"Setrs=GetRs(strSQL)If(rs.EOF)ThenMe![lbll].Caption="此切換面板頁上無項目?！盓lseWhile(Not(rs.EOF))Me("btn"&rs![ItemNumber]).Visible=TrueMe("lbl"&rs![ItemNumber]).Visible=TrueMe("lbl"&rs![ItemNumber]).Caption=rs![ItemText]rs.MoveNextWendEndIf'關(guān)閉數(shù)據(jù)集合和數(shù)據(jù)庫rs.CloseSetrs=NothingEndSub3?為“主切換面板”窗體添加“加載”事件過程操作步驟：選擇“屬性表”中“窗體”對象，在“事件”選項卡中選擇“加載”單擊下拉列表框，選擇“事件過程”選項，如圖6-10所示。成為當刖劃題寸“單擊更新后圖6-10選擇“加載”屬性（2）單擊“加載”右邊的省略號按鈕，進入VBA編輯器，系統(tǒng)自動建立一個“Form_Load（）”過程,寫入以下代碼：PrivateSubForm_Load（）IfNotcheckThenMsgBox（"請先登錄！”）DoCmd.CloseDoCmd.OpenForm（"登錄"）EndIfEndSub4?為“主切換面板”窗體添加“打開”事件過程操作步驟：選擇“屬性表”中“窗體”對象，在“事件”選項卡中選擇“打開”單擊下拉列表框，選擇“事件過程”選項，如圖6-11所示。圖6-11選擇“打開”屬性單擊“打開”右邊的省略號按鈕，進入VBA編輯器，系統(tǒng)自動建立一個“Form_Open()”過程,該過程使得用戶在打開主切換面板時有默認的選擇值，代碼如下：PrivateSubForm_Open(CancelAsInteger)OnErrorGoToForm_Open_Err'顯示默認的選項.Me.Filter="[ItemNumber]=0AND[Argument]=默認'"Me.FilterOn=TrueForm_Open_Exit:ExitSubForm_Open_Err:MsgBoxErr.DescriptionResumeForm_Open_ExitEndSub案例四：編寫“員工考勤記錄查詢”窗體代碼1?向“員工考勤記錄查詢”窗體添加“加載”事件過程操作步驟：打開“員工考勤記錄查詢”窗體，切換到“設(shè)計視圖”，如圖6-12所示。圖6-12用“設(shè)計視圖”打開“員工考勤記錄查詢”窗體

選擇“屬性表”中“窗體”類型，單擊“數(shù)據(jù)”選項卡，在“記錄源”行的下拉列表框中選擇“員工考勤記錄查詢”選項，如圖6-13所示。窗施 卜他曲呂TT呂TT資彌班兄ffl&U人尿簽已記錄企匹資馳?口栽時的篩選器排序依摒血栽時的卻侑方式企虹瓷融企業(yè)工資發(fā)啟記錄困企匹貴馳疑加班記錄期！圖6-13設(shè)定“記錄源”屬性切換屬性表選項卡到“事件”，在“加載”行中選擇“事件過程”選項，并單擊右邊的省略號按鈕，如圖6-14所示。圖6-14設(shè)定“加載”屬性(4)進入VBA編輯器窗口，自動新建一個名稱為“Form_Load()”的Sub過程，輸入以下代碼:PrivateSubForm_Load()IfNotcheckThenMsgBox("請先登錄！”)DoCmd.CloseDoCmd.OpenForm（"登錄"）EndIfEndSub（5）保存后切換回設(shè)計視圖。2.為“考勤查詢”按鈕添加單擊事件操作步驟：（1） 在“員工考勤記錄查詢”窗體的“設(shè)計視圖”中單擊“考勤查詢”按鈕。（2） 選擇“屬性表”中“事件”選項卡，在“單擊”行中選擇“事件過程”選項，如圖6-15所示。圖6-15設(shè)定“考勤查詢”的“單擊”屬性（3） 點擊右邊的省略號按鈕，進入VBA編輯器，系統(tǒng)自動創(chuàng)建一個名稱為“考勤查詢_Click（）”的Sub過程，輸入代碼如下：PrivateSub考勤查詢_Click（）IfIsNull（［員工號］）OrIsNull（［開開始時間］）OrIsNull（［結(jié)束時間］）ThenMsgBox"您必須輸入員工號、開始時間和結(jié)束時間。"DoCmd.GoToControl"開始時間"ElseIf［開始時間］>［結(jié)束時間］ThenMsgBox"結(jié)束時間必須大于開始時間。"DoCmd.GoToControl"開始時間"ElseDoCmd.OpenReport"員工考勤記錄查詢報表"，acViewPreview,,,acWindowNormalMe.Visible=FalseEndIfEndIfEndSub（4） 保存后切換回設(shè)計視圖。3?為“取消”按鈕添加單擊事件操作步驟：（1） 在“員工考勤記錄查詢”窗體的“設(shè)計視圖”中單擊“取消”按鈕。（2） 選擇“屬性表”中“事件”選項卡，在“單擊”行中選擇“事件過程”選項，如圖6-16所示。

圖6-16設(shè)定“取消”的“單擊”屬性點擊右邊的省略號按鈕，進入VBA編輯器，系統(tǒng)自動創(chuàng)建一個名稱為“取消_Click()”的Sub過程，輸入代碼如下：Pr