Access實驗總結

四、實驗總結

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

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

SELECTSC.Cno,SC.Sno,Student.Sname

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

（2）查詢農學院每位同學的成績信息，包括姓名、課程名和成績SELECTStudent.Major,Student.Sname,Course.Cname,SC.Grade

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

WHERE(((Student.Major)="農學"));

3．總結本次實驗完成情況和存在的問題。

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

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

實驗項目五

實驗項目名稱：宏、模塊的創(chuàng)建與操作教師評分：一、實驗目的和要求：1、熟悉和掌握在宏設計器中設計簡單宏。2、熟悉和掌握在宏設計器中設計宏組。3、熟悉和掌握在宏設計器中設計條件宏。4、熟悉和掌握在宏設計器中設計自動運行宏。5、熟悉和掌握VBA的常量、變量、運算符和表達式。6、熟悉和掌握常用的標準函數(shù)。7、熟悉和掌握VBA的程序結構：順序結構、選擇結構和循環(huán)結構。8、熟悉和掌握為窗體和控件事件編寫VBA程序代碼的方法。二、實驗任務：1、為“出貨信息”窗體中的“商品編號”和“客戶編號”字段文本框控件分別創(chuàng)建“查看商品名稱”宏和“查看客戶名稱”宏。當單擊“商品編號”或“客戶編號”字段文本框控件時，彈出消息框顯示對應的“商品名稱”或“客戶名稱”。2、為“退貨信息窗體”中的“查看退貨返款”命令按鈕創(chuàng)建“查看退貨返款”條件宏。當單擊“查看退貨返款”命令按鈕時，根據(jù)“商品類別”確定不同商品的退貨返款的比率，在彈出的信息框中顯示“出貨貨款”和“退貨返款”信息。具體規(guī)定如下：“商品類別”為“0001”和“0002”的商品退貨返款的比率為：0.8“商品類別”為“0003”、“0004”、“0006”、“0007”、“0008”、“0009”的商品退貨返款的比率為：0.9“商品類別”為“0005”的商品退貨返款的比率為：0.953、首先在窗體設計視圖中按照實踐指導書p73頁圖7-13創(chuàng)建“窗體管理”窗體，然后為“窗體管理”窗體中的各命令按鈕創(chuàng)建“窗體管理”宏組。當單擊命令按鈕時，打開相應的窗體功能。4、創(chuàng)建自動運行宏“autoexec”,使“窗體管理”窗體隨著“進銷存管理系統(tǒng)”數(shù)據(jù)庫一起打開。5、創(chuàng)建“進貨信息操作窗體”，為“清空記錄”、“查詢記錄”、“添加記錄”、“修改記錄”、“刪除記錄”和“關閉窗體”等命令按鈕編寫VBA程序代碼。三、實驗原理：1.宏的功能是什么。調用方法有哪些。（學生自行總結）2.宏操作命令如下：分類宏操作OpenDataAccessPageOpenFormOpenModule打開OpenQueryOpenReportOpenTable焦點GoToControl功能學生自行總結學生自行總結學生自行總結學生自行總結學生自行總結學生自行總結學生自行總結學生自行總結GoToPage學生自行總結SelectObject學生自行總結SendKeys設置值學生自行總結SetValue學生自行總結RepaintObject更新學生自行總結Requery學生自行總結ApplyFilter學生自行總結FindRecord學生自行總結FindNext學生自行總結GoToRecord學生自行總結RunApp學生自行總結記錄RunCode學生自行總結RunCommand學生自行總結RunMacro學生自行總結RunSQL學生自行總結StopAllMacro學生自行總結StopMacro學生自行總結Maximize學生自行總結Minimize窗口學生自行總結MoveSize學生自行總結Restore學生自行總結打印PrintOut學生自行總結Beep學生自行總結信息MsgBox學生自行總結SetWarnings學生自行總結復制CopyObject學生自行總結刪除DeleteObect學生自行總結重命名rename學生自行總結保存save學生自行總結close關閉學生自行總結quit學生自行總結outputto學生自行總結TransferDatabase導入導出TransferSpreadsheet學生自行總結學生自行總結TransferText3.結構化程序設計思想是什么。包括哪些程序控制結構。不同的過程如何調用，參數(shù)如何傳遞。（學生自行總結）4.面向對象程序設計基本思想是什么。核心是什么。（學生自行總結）5.ADO的對象集合是什么。請寫出VBA利用對象訪問數(shù)據(jù)庫的基本步驟。（學生自行總結）四、實驗操作步驟（可略）（參考課本上過程）注意：1、宏的實驗需要輸入的表達式參考實驗指導書的步驟部分，不要僅看圖，圖上的表達式未完整顯示。2、vba和模塊的實驗代碼中的控件名稱需要自行改動，請不要生搬硬套。五、實驗中遇到的問題（根據(jù)個人具體情況記載，選做)附：部分代碼，需要根據(jù)實際情況調整，直接照搬有可能運行不了宏實驗：查看商品名稱:="商品編號："&[商品編號]&""&"商品名稱："&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.經手人=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.經手人)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.經手人)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關閉窗體_Click()DoCmd.CloseacForm,"實驗8:進貨信息操作窗體"EndSubPrivateSub清空記錄_Click()Me.Text16=""Me.進貨編號=""Me.商品編號=""Me.進貨單價=""Me.進貨數(shù)量=""Me.供貨單位=""Me.進貨日期=""Me.存放位置=""Me.經手人=""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.經手人)rs.UpdateEndIfrs.Closecn.CloseSetrs=NothingSetcn=NothingEndSub

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

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

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

• 上一篇：Vb —SQL Server實訓總結報告
• 下一篇：oracle實訓總結