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