Access實驗總結(jié)

四、實驗總結(jié)

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

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

SELECTSC.Cno,SC.Sno,Student.Sname

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

（2）查詢農(nóng)學(xué)院每位同學(xué)的成績信息，包括姓名、課程名和成績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é)本次實驗完成情況和存在的問題。

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

擴展閱讀：access實驗報告(五)

實驗項目五

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

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

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

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

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