Access實(shí)驗(yàn)總結(jié)

四、實(shí)驗(yàn)總結(jié)

1．簡(jiǎn)述三個(gè)表之間的聯(lián)系；

SC表通過.Cno,Sno把student和course聯(lián)系到一起。2．寫出數(shù)據(jù)庫查詢中對(duì)應(yīng)的SQL語句（實(shí)驗(yàn)內(nèi)容5-6）；（1）查詢有哪些學(xué)生選修了“001”號(hào)課程

SELECTSC.Cno,SC.Sno,Student.Sname

FROMStudentINNERJOINSCONStudent.Sno=SC.SnoWHERE(((SC.Cno)="001"));

（2）查詢農(nóng)學(xué)院每位同學(xué)的成績(jī)信息，包括姓名、課程名和成績(jī)SELECTStudent.Major,Student.Sname,Course.Cname,SC.Grade

FROMStudentINNERJOIN(CourseINNERJOINSCONCourse.Cno=SC.Cno)ONStudent.Sno=SC.Sno

WHERE(((Student.Major)="農(nóng)學(xué)"));

3．總結(jié)本次實(shí)驗(yàn)完成情況和存在的問題。

在老師的嚴(yán)厲教導(dǎo)和自己的仔細(xì)耐心學(xué)習(xí)下，總算鄒鄒巴巴完成實(shí)驗(yàn)。問題是不能理解SQL語句，更別提自己直接書寫SQL語句了。

擴(kuò)展閱讀：access實(shí)驗(yàn)報(bào)告(五)

實(shí)驗(yàn)項(xiàng)目五

實(shí)驗(yàn)項(xiàng)目名稱：宏、模塊的創(chuàng)建與操作教師評(píng)分：一、實(shí)驗(yàn)?zāi)康暮鸵�求�?、熟悉和掌握在宏設(shè)計(jì)器中設(shè)計(jì)簡(jiǎn)單宏。2、熟悉和掌握在宏設(shè)計(jì)器中設(shè)計(jì)宏組。3、熟悉和掌握在宏設(shè)計(jì)器中設(shè)計(jì)條件宏。4、熟悉和掌握在宏設(shè)計(jì)器中設(shè)計(jì)自動(dòng)運(yùn)行宏。5、熟悉和掌握VBA的常量、變量、運(yùn)算符和表達(dá)式。6、熟悉和掌握常用的標(biāo)準(zhǔn)函數(shù)。7、熟悉和掌握VBA的程序結(jié)構(gòu)：順序結(jié)構(gòu)、選擇結(jié)構(gòu)和循環(huán)結(jié)構(gòu)。8、熟悉和掌握為窗體和控件事件編寫VBA程序代碼的方法。二、實(shí)驗(yàn)任務(wù)：1、為“出貨信息”窗體中的“商品編號(hào)”和“客戶編號(hào)”字段文本框控件分別創(chuàng)建“查看商品名稱”宏和“查看客戶名稱”宏。當(dāng)單擊“商品編號(hào)”或“客戶編號(hào)”字段文本框控件時(shí)，彈出消息框顯示對(duì)應(yīng)的“商品名稱”或“客戶名稱”。2、為“退貨信息窗體”中的“查看退貨返款”命令按鈕創(chuàng)建“查看退貨返款”條件宏。當(dāng)單擊“查看退貨返款”命令按鈕時(shí)，根據(jù)“商品類別”確定不同商品的退貨返款的比率，在彈出的信息框中顯示“出貨貨款”和“退貨返款”信息。具體規(guī)定如下：“商品類別”為“0001”和“0002”的商品退貨返款的比率為：0.8“商品類別”為“0003”、“0004”、“0006”、“0007”、“0008”、“0009”的商品退貨返款的比率為：0.9“商品類別”為“0005”的商品退貨返款的比率為：0.953、首先在窗體設(shè)計(jì)視圖中按照實(shí)踐指導(dǎo)書p73頁圖7-13創(chuàng)建“窗體管理”窗體，然后為“窗體管理”窗體中的各命令按鈕創(chuàng)建“窗體管理”宏組。當(dāng)單擊命令按鈕時(shí)，打開相應(yīng)的窗體功能。4、創(chuàng)建自動(dòng)運(yùn)行宏“autoexec”,使“窗體管理”窗體隨著“進(jìn)銷存管理系統(tǒng)”數(shù)據(jù)庫一起打開。5、創(chuàng)建“進(jìn)貨信息操作窗體”，為“清空記錄”、“查詢記錄”、“添加記錄”、“修改記錄”、“刪除記錄”和“關(guān)閉窗體”等命令按鈕編寫VBA程序代碼。三、實(shí)驗(yàn)原理：1.宏的功能是什么。調(diào)用方法有哪些。（學(xué)生自行總結(jié)）2.宏操作命令如下：分類宏操作OpenDataAccessPageOpenFormOpenModule打開OpenQueryOpenReportOpenTable焦點(diǎn)GoToControl功能學(xué)生自行總結(jié)學(xué)生自行總結(jié)學(xué)生自行總結(jié)學(xué)生自行總結(jié)學(xué)生自行總結(jié)學(xué)生自行總結(jié)學(xué)生自行總結(jié)學(xué)生自行總結(jié)GoToPage學(xué)生自行總結(jié)SelectObject學(xué)生自行總結(jié)SendKeys設(shè)置值學(xué)生自行總結(jié)SetValue學(xué)生自行總結(jié)RepaintObject更新學(xué)生自行總結(jié)Requery學(xué)生自行總結(jié)ApplyFilter學(xué)生自行總結(jié)FindRecord學(xué)生自行總結(jié)FindNext學(xué)生自行總結(jié)GoToRecord學(xué)生自行總結(jié)RunApp學(xué)生自行總結(jié)記錄RunCode學(xué)生自行總結(jié)RunCommand學(xué)生自行總結(jié)RunMacro學(xué)生自行總結(jié)RunSQL學(xué)生自行總結(jié)StopAllMacro學(xué)生自行總結(jié)StopMacro學(xué)生自行總結(jié)Maximize學(xué)生自行總結(jié)Minimize窗口學(xué)生自行總結(jié)MoveSize學(xué)生自行總結(jié)Restore學(xué)生自行總結(jié)打印PrintOut學(xué)生自行總結(jié)Beep學(xué)生自行總結(jié)信息MsgBox學(xué)生自行總結(jié)SetWarnings學(xué)生自行總結(jié)復(fù)制CopyObject學(xué)生自行總結(jié)刪除DeleteObect學(xué)生自行總結(jié)重命名rename學(xué)生自行總結(jié)保存save學(xué)生自行總結(jié)close關(guān)閉學(xué)生自行總結(jié)quit學(xué)生自行總結(jié)outputto學(xué)生自行總結(jié)TransferDatabase導(dǎo)入導(dǎo)出TransferSpreadsheet學(xué)生自行總結(jié)學(xué)生自行總結(jié)TransferText3.結(jié)構(gòu)化程序設(shè)計(jì)思想是什么。包括哪些程序控制結(jié)構(gòu)。不同的過程如何調(diào)用，參數(shù)如何傳遞。（學(xué)生自行總結(jié)）4.面向?qū)ο蟪绦蛟O(shè)計(jì)基本思想是什么。核心是什么。（學(xué)生自行總結(jié)）5.ADO的對(duì)象集合是什么。請(qǐng)寫出VBA利用對(duì)象訪問數(shù)據(jù)庫的基本步驟。（學(xué)生自行總結(jié)）四、實(shí)驗(yàn)操作步驟（可略）（參考課本上過程）注意：1、宏的實(shí)驗(yàn)需要輸入的表達(dá)式參考實(shí)驗(yàn)指導(dǎo)書的步驟部分，不要僅看圖，圖上的表達(dá)式未完整顯示。2、vba和模塊的實(shí)驗(yàn)代碼中的控件名稱需要自行改動(dòng)，請(qǐng)不要生搬硬套。五、實(shí)驗(yàn)中遇到的問題（根據(jù)個(gè)人具體情況記載，選做)附：部分代碼，需要根據(jù)實(shí)際情況調(diào)整，直接照搬有可能運(yùn)行不了宏實(shí)驗(yàn)：查看商品名稱:="商品編號(hào)："&[商品編號(hào)]&""&"商品名稱："&DLookUp("商品名稱","商品信息表","商品編號(hào)=[forms]![出貨信息窗體]![商品編號(hào)]")“條件”列第一行：DLookUp("商品類別","商品信息表","商品編號(hào)=[forms]![退貨信息窗體]![商品編號(hào)]")="0001"OrDLookUp("商品類別","商品信息表","商品編號(hào)=[forms]![退貨信息窗體]![商品編號(hào)]")="0002"“消息”：="出貨貨款："&[Forms]![退貨信息窗體]![退貨數(shù)量]*DLookUp("出貨單價(jià)","出貨信息表","商品編號(hào)=[forms]![退貨信息窗體]![商品編號(hào)]")&""&"退貨貨款："&[Forms]![退貨信息窗體]![退貨數(shù)量]*DLookUp("出貨單價(jià)","出貨信息表","商品編號(hào)=[forms]![退貨信息窗體]![商品編號(hào)]")*.8“條件”列第二行：DLookUp("商品類別","商品信息表","商品編號(hào)=[forms]![退貨信息窗體]![商品編號(hào)]")="0003"OrDLookUp("商品類別","商品信息表","商品編號(hào)=[forms]![退貨信息窗體]![商品編號(hào)]")="0004"“消息”：="出貨貨款："&[Forms]![退貨信息窗體]![退貨數(shù)量]*DLookUp("出貨單價(jià)","出貨信息表","商品編號(hào)=[forms]![退貨信息窗體]![商品編號(hào)]")&""&"退貨貨款："&[Forms]![退貨信息窗體]![退貨數(shù)量]*DLookUp("出貨單價(jià)","出貨信息表","商品編號(hào)=[forms]![退貨信息窗體]![商品編號(hào)]")*.9VBA和模塊實(shí)驗(yàn)：OptionCompareDatabasePrivateSub查詢記錄_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlstrAsStringSetcn=CurrentProject.ConnectionIfIsNull(Me.Text16)Then""Text16"為本窗體中"請(qǐng)輸入進(jìn)貨編號(hào)"文本框的"名稱"屬性值MsgBox"請(qǐng)輸入進(jìn)貨編號(hào)，進(jìn)貨編號(hào)不能為空！",vbOKOnly+vbCritical,"提示"Me.Text16.SetFocusExitSubElsesqlstr="select*from進(jìn)貨信息表where進(jìn)貨編號(hào)=""&Me.Text16&"""rs.Opensqlstr,cn,adOpenDynamic,adLockOptimistic,adCmdTextIfNotrs.EOFThenMe.進(jìn)貨編號(hào)=Trim(rs(0))Me.商品編號(hào)=Trim(rs(1))Me.進(jìn)貨單價(jià)=Trim(rs(2))Me.進(jìn)貨數(shù)量=Trim(rs(3))Me.供貨單位=Trim(rs(4))Me.進(jìn)貨日期=Trim(rs(5))Me.存放位置=Trim(rs(6))Me.經(jīng)手人=Trim(rs(7))ElseMsgBox"該進(jìn)貨編號(hào)不存在,請(qǐng)重新輸入！",vbOKOnly+vbInformation,"提示"Me.Text16=""EndIfEndIfrs.Closecn.CloseSetrs=NothingSetcn=NothingEndSubPrivateSub修改記錄_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlstrAsStringSetcn=CurrentProject.ConnectionIfIsNull(Me.進(jìn)貨編號(hào))AndIsNull(Me.商品編號(hào))AndIsNull(Me.進(jìn)貨單價(jià))And_IsNull(Me.進(jìn)貨數(shù)量)AndIsNull(Me.供貨單位)And_IsNull(Me.進(jìn)貨日期)AndIsNull(Me.存放位置)AndIsNull(Me.經(jīng)手人)Then""Text16"為本窗體中"請(qǐng)輸入進(jìn)貨編號(hào)"文本框的"名稱"屬性值MsgBox"每個(gè)字段都不能為空！",vbOKOnly+vbCritical,"提示"Me.進(jìn)貨編號(hào).SetFocusExitSubElsesqlstr="select*from進(jìn)貨信息表where進(jìn)貨編號(hào)=""&Me.Text16&"""rs.Opensqlstr,cn,adOpenDynamic,adLockOptimistic,adCmdTextrs(0)=Trim(Me.進(jìn)貨編號(hào))rs(1)=Trim(Me.商品編號(hào))rs(2)=Trim(Me.進(jìn)貨單價(jià))rs(3)=Trim(Me.進(jìn)貨數(shù)量)rs(4)=Trim(Me.供貨單位)rs(5)=Trim(Me.進(jìn)貨日期)rs(6)=Trim(Me.存放位置)rs(7)=Trim(Me.經(jīng)手人)rs.UpdateEndIfrs.Closecn.CloseSetrs=NothingSetcn=NothingEndSubPrivateSub刪除記錄_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlstrAsStringSetcn=CurrentProject.ConnectionIfIsNull(Me.Text16)Then""Text16"為本窗體中"請(qǐng)輸入進(jìn)貨編號(hào)"文本框的"名稱"屬性值MsgBox"請(qǐng)輸入進(jìn)貨編號(hào)，進(jìn)貨編號(hào)不能為空！",vbOKOnly+vbCritical,"提示"Me.Text16.SetFocusExitSubElsesqlstr="select*from進(jìn)貨信息表where進(jìn)貨編號(hào)=""&Me.Text16&"""rs.Opensqlstr,cn,adOpenDynamic,adLockOptimistic,adCmdTextIfNotrs.EOFThenrs.DeleteElseMsgBox"該進(jìn)貨編號(hào)不存在,請(qǐng)重新輸入！",vbOKOnly+vbInformation,"提示"Me.Text16=""EndIfEndIfrs.Closecn.CloseSetrs=NothingSetcn=NothingEndSubPrivateSub關(guān)閉窗體_Click()DoCmd.CloseacForm,"實(shí)驗(yàn)8:進(jìn)貨信息操作窗體"EndSubPrivateSub清空記錄_Click()Me.Text16=""Me.進(jìn)貨編號(hào)=""Me.商品編號(hào)=""Me.進(jìn)貨單價(jià)=""Me.進(jìn)貨數(shù)量=""Me.供貨單位=""Me.進(jìn)貨日期=""Me.存放位置=""Me.經(jīng)手人=""EndSubPrivateSub添加記錄_Click()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlstrAsStringSetcn=CurrentProject.ConnectionIfIsNull(Me.進(jìn)貨編號(hào))Then""Text16"為本窗體中"請(qǐng)輸入進(jìn)貨編號(hào)"文本框的"名稱"屬性值MsgBox"請(qǐng)輸入進(jìn)貨編號(hào)，進(jìn)貨編號(hào)不能為空！",vbOKOnly+vbCritical,"提示"Me.進(jìn)貨編號(hào).SetFocusExitSubElsesqlstr="select*from進(jìn)貨信息表"rs.Opensqlstr,cn,adOpenDynamic,adLockOptimistic,adCmdTextrs.MoveLastrs.AddNewrs(0)=Trim(Me.進(jìn)貨編號(hào))rs(1)=Trim(Me.商品編號(hào))rs(2)=Trim(Me.進(jìn)貨單價(jià))rs(3)=Trim(Me.進(jìn)貨數(shù)量)rs(4)=Trim(Me.供貨單位)rs(5)=Trim(Me.進(jìn)貨日期)rs(6)=Trim(Me.存放位置)rs(7)=Trim(Me.經(jīng)手人)rs.UpdateEndIfrs.Closecn.CloseSetrs=NothingSetcn=NothingEndSub

友情提示：本文中關(guān)于《Access實(shí)驗(yàn)總結(jié)》給出的范例僅供您參考拓展思維使用，Access實(shí)驗(yàn)總結(jié)：該篇文章建議您自主創(chuàng)作。

來源：網(wǎng)絡(luò)整理 免責(zé)聲明：本文僅限學(xué)習(xí)分享，如產(chǎn)生版權(quán)問題，請(qǐng)聯(lián)系我們及時(shí)刪除。

《Access實(shí)驗(yàn)總結(jié)》由互聯(lián)網(wǎng)用戶整理提供,轉(zhuǎn)載分享請(qǐng)保留原作者信息,謝謝!
鏈接地址：http://m.seogis.com/gongwen/625170.html

• 上一篇：Vb —SQL Server實(shí)訓(xùn)總結(jié)報(bào)告
• 下一篇：oracle實(shí)訓(xùn)總結(jié)