access教學管理數據庫應用系統(tǒng)設計方案-資料下載頁
2025-05-05 22:59本頁面
【正文】 迪. Access數據庫技術與應用案例匯編[M]. 北京: 清華大學出版社, 2011.[2] 紹麗萍. 信息系統(tǒng)開發(fā)實踐實驗教程[M]. 北京: 電子工業(yè)出版社. 2007.[3] 紹麗萍,王偉嶺,朱紅巖. Access數據庫技術與應用[M] 北京: 清華大學出版社. 2007.[4] 米紅娟,李海燕. Access2007數據庫應用教程[M]. 北京: 科學出版社, 2012 附錄1Option Compare DatabasePrivate Sub Combo4_BeforeUpdate(Cancel As Integer)End SubPrivate Sub Combo4_Change() 39。生成學生的成績 Dim rs As Recordset Set rs = Dim sCourseCode As String Dim sClassCode As String Dim sYear As String Dim sTerm As String sCourseCode = (2) 39。 (課程編號) sClassCode = (3) 39。 (班級編號) sYear = (4) sTerm = (5) = 學年： + sYear = 學期： + sTerm = 班級： + (6) = 課程： + (7) If sCourseCode = Or sClassCode = Then Exit Sub End If Dim sSQL As String sSQL = INSERT INTO 成績(學號,課程編號) SELECT 學號,39。 + sCourseCode + 39。 FROM 學生 WHERE 班級編號=39。 + sClassCode + 39。 sSQL = sSQL + AND 學號 NOT IN(SELECT 學號 FROM 成績 WHERE 課程編號=39。 + sCourseCode + 39。) 39。屏蔽警告 False sSQL 39。允許警告 True 39。過濾數據 = 班級編號=39。 + (3) + 39。 AND 課程編號=39。 + (2) + 39。 = TrueEnd SubPrivate Sub Form_Load() 39。窗體剛剛打開時不顯示數據 = 1=2 = TrueEnd Sub 附錄2Option Compare DatabasePrivate Sub cboClass_AfterUpdate()End SubPrivate Sub cboClass_BeforeUpdate(Cancel As Integer)End SubPrivate Sub cboClass_Change() Dim sSQL As String sSQL = TRANSFORM Sum() AS 分數之總計 sSQL = sSQL + SELECT , sSQL = sSQL + FROM 課程 INNER JOIN (學生 INNER JOIN 成績 ON =) ON = sSQL = sSQL + WHERE (() = 39。 + Trim((0)) + 39。) sSQL = sSQL + GROUP BY , , sSQL = sSQL + PIVOT = Table/Query = sSQL 39。計算列表的列數 = Val((7)) + 2End Sub22
公司管理相關推薦
鄂ICP備17016276號-1