數(shù)據(jù)庫課程設(shè)計報告范例

1、江蘇城市職業(yè)學(xué)院信息工程系聯(lián)辦本科數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計報告設(shè)計題目：班級：學(xué)號：姓名：指導(dǎo)教師：完成日期：成績：摘要本系統(tǒng)為學(xué)生學(xué)籍管理系統(tǒng),是一個信息管理系統(tǒng),其開發(fā)主要包括數(shù)據(jù)庫地建立和維護以及前端應(yīng)用程序地開發(fā)兩個方面.b5E2RGbCAP經(jīng)過分析 ,我使用了 MICROSOFT 公司地 VISUALBASIC 6.0 開發(fā)工具 ,利用其提供地各種面向?qū)ο蟮亻_發(fā)工具, 開發(fā)了登錄模塊主要用于驗證用戶身份, 進行有效地操作 . p1EanqFDPw在我們所開發(fā)地學(xué)生學(xué)籍管理系統(tǒng)中創(chuàng)建了兩個用戶教師管理員和學(xué)生,通過身份驗證后方可進入 .本系統(tǒng)還包含查詢、插入、修改、刪除等基本操作,在整個

2、系統(tǒng)設(shè)計中充分利用了模塊化地設(shè)計思想和開發(fā)方法, 用戶在從主界面模塊在驗證后進入每個子模塊進行各個子系統(tǒng)地具體功能操作 . DXDiTa9E3d在短時間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進 ,直到形成一個滿意地可行系統(tǒng) .在下面地各章中我將以開發(fā)學(xué)生學(xué)籍管理系統(tǒng),談?wù)勂渚唧w開發(fā)過程和所涉及到地問題及解決方法.RTCrpUDGiT目錄第一章系統(tǒng)概述15PCzVD7HxA第二章系統(tǒng)數(shù)據(jù)庫設(shè)計部分2jLBHrnAILg2.1 需求分析2xHAQX74J0X需求描述 2LDAYtRyKfE數(shù)據(jù)流圖 3Zzz6ZB2Ltk數(shù)據(jù)詞典 4dvzfvkwMI12.2 數(shù)據(jù)庫

3、概念結(jié)構(gòu)設(shè)計5rqyn14ZNXI圖 5EmxvxOtOco實體及屬性地定義6SixE2yXPq52.3 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計66ewMyirQFL初始關(guān)系模式 6kavU42VRUs規(guī)范化處理 7y6v3ALoS892.4 數(shù)據(jù)庫物理結(jié)構(gòu)設(shè)計7M2ub6vSTnP2.5 數(shù)據(jù)庫實施 80YujCfmUCw數(shù)據(jù)庫各表結(jié)構(gòu) 8eUts8ZQVRd 關(guān)系圖9sQsAEJkW5T2.6 數(shù)據(jù)庫操作部分10GMsIasNXkA數(shù)據(jù)庫地插入操作10TIrRGchYzg數(shù)據(jù)庫地修改操作107EqZcWLZNX數(shù)據(jù)庫地刪除記錄操作11lzq7IGf02E第三章系統(tǒng)設(shè)計11zvpgeqJ1hk3.1 數(shù)據(jù)錄入、

4、修改、刪除界面設(shè)計13NrpoJac3v13.2 數(shù)據(jù)查詢與打印輸出設(shè)計141nowfTG4KI3.3 系統(tǒng)地維護、安全設(shè)計15fjnFLDa5Zo第四章總結(jié) 17tfnNhnE6e5主要參考文獻(xiàn) 18HbmVN777sL附錄一 19V7l4jRB8Hs附錄二 2383lcPA59W9第一章系統(tǒng)概述數(shù)據(jù)庫原理及應(yīng)用課程地學(xué)習(xí) ,其主要地目標(biāo)是能利用課程中學(xué)習(xí)到地數(shù)據(jù)庫知識與技術(shù)較好地開發(fā)設(shè)計出數(shù)據(jù)庫應(yīng)用系統(tǒng),去解決各行各業(yè)信息化處理地要求.本實驗主要在于鞏固學(xué)生對數(shù)據(jù)庫地基本原理和基礎(chǔ)理論地理解,掌握數(shù)據(jù)庫應(yīng)用系統(tǒng)地設(shè)計開發(fā)地基本方法 ,進一步提高學(xué)生地綜合運用所學(xué)地知識能力 .mZkklkz

5、aaP為了使數(shù)據(jù)庫地應(yīng)用系統(tǒng)開發(fā)設(shè)計合理、規(guī)范、有序、正確、高效進行,現(xiàn)在廣泛采用地是工程化 6 階段開發(fā)設(shè)計過程與方法 ,它們是需求分析階段、概念結(jié)構(gòu)設(shè)計階段、邏輯結(jié)構(gòu)設(shè)計階段、物理結(jié)構(gòu)設(shè)計階段、數(shù)據(jù)庫實施、數(shù)據(jù)庫系統(tǒng)運行與維護階段.我們按照以上幾點開發(fā)了學(xué)生學(xué)籍管理系統(tǒng)數(shù)據(jù)庫.AVktR43bpw學(xué)生學(xué)籍管理系統(tǒng)要求讀者較好地正我數(shù)據(jù)庫知識與技術(shù)外,還要求讀者掌握某種客戶端開發(fā)工具或語言 .這里是利用相對簡單易學(xué)易掌握地Visual Basic6.0 開發(fā)工具來實現(xiàn)示例系統(tǒng)地 .ORjBnOwcEd這次課程設(shè)計能順利通過是老師地細(xì)心指導(dǎo)和我們小組團結(jié)一致、努力地結(jié)果.在這次課程設(shè)計中每位同

6、學(xué)都積極參與各項環(huán)節(jié)地設(shè)計,但我們也有分工 .初步列出如下：韓信元是用 VB 制作前臺地界面；惠城旗和趙曉霞擔(dān)任地工作是對系統(tǒng)地需求分析、構(gòu)思數(shù)據(jù)流圖、把 E-R 圖轉(zhuǎn)化成關(guān)系模型并對其進行規(guī)范化處理、用SQL 語言建表、視圖以及文檔地初步編寫等 .劉方山和張熙磊地工作是負(fù)責(zé)畫數(shù)據(jù)流圖和E-R 圖,以及轉(zhuǎn)化初始關(guān)系模型 ,和內(nèi)容摘要等地編寫.徐冰是我們組地組長,除對我們所制作單個模塊審核外還擔(dān)任了WORD 文檔地總結(jié)排版 .這次數(shù)據(jù)庫地課程設(shè)計讓我們對數(shù)據(jù)庫地操作有了進一步地了解,受益匪淺.2MiJTy0dTT第二章系統(tǒng)數(shù)據(jù)庫設(shè)計部分2.1需求分析需求描述隨著學(xué)校地普及和人們文化水平地提高 ,

7、高效地教案管理系統(tǒng)越來越廣泛應(yīng)用于各類信息化學(xué)校 . 學(xué)生學(xué)籍管理系統(tǒng)要求實用性強、使用方便、效率高和安全可靠等特點 .gIiSpiue7A經(jīng)分析我們認(rèn)為學(xué)生學(xué)籍管理系統(tǒng)地具體要求為：1.能全面管理學(xué)校教案相關(guān)地各類主體,如院系信息、教師信息、班級信息、學(xué)生信息、課程信息、專業(yè)信息等uEh0U1Yfmh2 通過使用計算機能方便地維護<包括插入、刪除、修改）各信息表3能方便地實現(xiàn)基于多個表地連接查詢4系統(tǒng)具有操作方便、簡捷等特點因而 ,我們所開發(fā)地管理系統(tǒng)正是圍繞以上幾個方面進行地,在開發(fā)過程中充分考慮到本系統(tǒng)地應(yīng)用特點 ,并進行了大量地檢驗 ,證明其地確達(dá)到了設(shè)計地要求.IAg9qLsg

8、BX本文主要論述學(xué)生學(xué)籍管理系統(tǒng)地開發(fā)過程.數(shù)據(jù)流圖WwghWvVhPE標(biāo)準(zhǔn)查詢表輸入請求查 詢 信輸入請求輸出結(jié)果息處理輸出結(jié)果輸輸入出規(guī)則表請結(jié)學(xué)生求果正確信息管理系統(tǒng)錯個請求結(jié)果誤人信信息息查 詢 認(rèn)正確信息教務(wù)辦證信息規(guī)范待核檢對驗結(jié)信果息班主任圖 2.1數(shù)據(jù)流圖 <1）教師信息規(guī)范P輸輸入出請結(jié)求果更新結(jié)果更新請求asfpsfpi4k信息規(guī)范教查詢請求插入請求P1 查詢務(wù)辦查詢結(jié)果插入結(jié)果規(guī)范表修改結(jié)果修改請求查查詢詢結(jié)請果求刪除請求規(guī)范表管理系統(tǒng)規(guī)范表P2 插入插插入入請結(jié)求果P3 修改P4 刪除刪刪除除請結(jié)求果修修改改請結(jié)求果圖 2.2數(shù)據(jù)流圖 (2>2.1.3 數(shù)據(jù)

9、詞典表 2.1數(shù)據(jù)詞典數(shù)據(jù)元素數(shù)據(jù)類型長度數(shù)據(jù)來源系編號varchar50院系表系名varchar50院系表主任工號varchar50院系表電話varchar50院系表專業(yè)號varchar50專業(yè)表專業(yè)名varchar50專業(yè)表班號varchar50班級表班名varchar50班級表人數(shù)varchar50班級表教師號varchar50教師表姓名varchar50教師表性別varchar50教師表學(xué)號varchar50學(xué)生表姓名varchar50學(xué)生表性別varchar50學(xué)生表出生年月smalldatetime8學(xué)生表籍貫varchar50學(xué)生表名族varchar50學(xué)生表政治面貌varcha

10、r50學(xué)生表院系varchar50學(xué)生表專業(yè)班級varchar50學(xué)生表照片image16學(xué)生表電話varchar50學(xué)生表課號varchar50課程表課名varchar50課程表學(xué)分float8課程表類別varchar50課程表開課院系varchar50課程表任課老師varchar50課程表學(xué)時varchar50課程表成績varchar50選課表效果varchar50講授表2.2數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計圖 ooeyYZTjj1院系包含含有專業(yè)老師11nmn包含管理1n1n1nn講授班級1包含學(xué)生m選課課程n圖 2.3 系統(tǒng)實體及聯(lián)系圖出生年月專業(yè)班級照片性別院系電話姓名籍貫政治面貌學(xué)號姓名院系課號

11、成績主任工號成績系名電話系編號院系圖 2.4系統(tǒng)部分實體及其屬性課號學(xué)時課名任課老師類別開課院系學(xué)分選課工號課號效果講授圖 2.5系統(tǒng)主要聯(lián)系及其屬性實體及屬性地定義在此系統(tǒng)中實體有：院系、專業(yè)、班級、教師、學(xué)生、課程多對多聯(lián)系有：選課、講授2.3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計初始關(guān)系模式將 E-R 圖轉(zhuǎn)換成關(guān)系數(shù)據(jù)模式 ,其中 ,每個實體轉(zhuǎn)換成一個關(guān)系模式 ,多對多聯(lián)系轉(zhuǎn)換成獨立地關(guān)系模式 ,一對多聯(lián)系并入多端實體 ,得到以下初始關(guān)系模式： BkeGuInkxI院系 <系編號 ,系名 ,主任工號 ,電話）專業(yè) <專業(yè)號 ,專業(yè)名 ,系編號）班級 <班號 ,班名 ,人數(shù) ,專業(yè)號 , 教

12、師號）教師 <教師號 ,姓名 ,性別 ,系編號）學(xué)生 <學(xué)號 ,姓名 ,性別 ,出生年月 , 籍貫 ,民族 ,政治面貌 ,院系 ,電話 ,班號）課程 <課號 ,課名 ,講課學(xué)時 ,開課院系 ,任課老師 ,學(xué)分）選課 <學(xué)號 ,課號 ,成績）講授 <教師號 ,課號 ,效果）規(guī)范化處理經(jīng)過對初始關(guān)系模式地規(guī)范化處理 ,以下關(guān)系模式中不存在部分函數(shù)依賴和傳遞函數(shù)依賴 ,已經(jīng)達(dá)到 3NF.<=代表主碼 ,代表外碼） PgdO0sRlMo院系 <系編號 ,系名 ,主任工號 ,電話）專業(yè) <專業(yè)號 ,專業(yè)名 ,系編號）班級 <班號 ,班名 ,人數(shù) ,專

13、業(yè)號 ,教師號）教師 <教師號 ,姓名 ,性別 ,系編號）學(xué)生 <學(xué)號 ,姓名 ,性別 ,出生年月 , 籍貫 ,民族 ,政治面貌 ,院系 ,電話 ,班號）課程 <課號 ,課名 ,講課學(xué)時 ,開課院系 ,任課老師 ,學(xué)分）選課 <學(xué)號 ,課號 ,成績）講授 <教師號 ,課號 ,效果）2.4數(shù)據(jù)庫物理結(jié)構(gòu)設(shè)計為了加快數(shù)據(jù)查詢處理速度,為各個關(guān)系模式創(chuàng)建如下索引：院系：專業(yè)：班級：教師：學(xué)生：課程：選課：講授：2.5 數(shù)據(jù)庫實施數(shù)據(jù)庫各表結(jié)構(gòu)表 2.2院系表屬性名數(shù)據(jù)類型長度是否允許為空有無索引系編號varchar50不允許有系名varchar50允許無主任工號varc

14、har50允許無電話varchar50允許無表 2.3專業(yè)表屬性名數(shù)據(jù)類型長度是否允許為空有無索引專業(yè)號varchar50不允許有專業(yè)名varchar50允許無系編號varchar50不允許有表 2.4班級表屬性名數(shù)據(jù)類型長度是否允許為空有無索引班號varchar50不允許有班名varchar50允許無人數(shù)varchar50允許無專業(yè)號varchar50不允許有教師號varchar50不允許有表 2.5教師表屬性名數(shù)據(jù)類型長度是否允許為空有無索引教師號varchar50不允許有姓名varchar50允許無性別varchar50允許無系編號varchar50不允許有表 2.6學(xué)生表屬性名數(shù)據(jù)類型

15、長度是否允許為空有無索引學(xué)號varchar50不允許有姓名varchar50允許無性別varchar50允許無出生年月smalldatetime8允許無籍貫varchar50允許無名族varchar50允許無政治面貌varchar50允許無院系varchar50允許無專業(yè)班級varchar50允許無照片Image16允許無電話varchar50允許無班號varchar50不允許有表 2.7課程表屬性名數(shù)據(jù)類型長度是否允許為空有無索引課號varchar50不允許有課名varchar50允許無學(xué)時varchar50允許無類別varchar50允許無講課學(xué)時varchar50允許無開課院系varch

16、ar50允許無任課老師varchar50允許無學(xué)分varchar50允許無表 2.8選課表屬性名數(shù)據(jù)類型長度是否允許為空有無索引學(xué)號varchar50不允許有課號varchar50不允許有成績Float8允許無表 2.9講授表屬性名數(shù)據(jù)類型長度是否允許為空有無索引教師號varchar50不允許有課號varchar50不允許有效果Float8允許無關(guān)系圖通過設(shè)置各表地主鍵和外鍵,在各個關(guān)系間建立聯(lián)系 ,得到以下關(guān)系圖：圖 2.6關(guān)系圖2.6數(shù)據(jù)庫操作部分?jǐn)?shù)據(jù)庫地插入操作INSERTINTO < 表名 >(< 屬性列 1>,< 屬性列 2>>VALUES(

17、< 常量 1>,< 常量 2>> 。例如：在學(xué)生表中插入一個新同學(xué)地相關(guān)信息<注：學(xué)號是主碼 ,故不可以相同）INSERTINTO 學(xué)生表 (學(xué)號 ,姓名 ,性別 ,出生年月 ,籍貫 ,政治面貌 ,名族 ,院系 ,電話 >VALUES( 34,丁 一 ,女 ,1986 年1 月1 號 ,北 京 ,團 員 ,漢 族 ,信 息 工 程系 ,07978056>3cdXwckm15數(shù)據(jù)庫地修改操作UPDATE <表名 >SET<列名 >=<表達(dá)式 >WHERE< 條件 >。例如：在學(xué)生表中修改學(xué)號為地院系為

18、 人文科學(xué)系 .UPDATE 學(xué)生表SET 院系 =人文科學(xué)系WHERE 學(xué)號 =08060505101數(shù)據(jù)庫地刪除記錄操作DELETEFROM<表名 >WHERE< 條件 >。例如：刪除學(xué)號為 地相關(guān)信息DELETEFROM 學(xué)生表WHERE 學(xué)號 =08060505135第三章系統(tǒng)設(shè)計本章格式不規(guī)范基于 VISUAL BASIC 6.0 開發(fā)工具1：主窗體類型為“展示屏幕”, 命名為 frmSplash 如下圖所示：該窗體有兩個作用 , 一為系統(tǒng)啟動時地窗體 , 二為系統(tǒng)運行時地“關(guān)于 . ”窗體 , 而mbAbout即為標(biāo)識若 mbAbout為 true, 則表示

19、為系統(tǒng)啟動時地窗體若 mbAbout為 false, 則表示為系統(tǒng)運行時地“關(guān)于 . ”窗體2：接下來鼠標(biāo)單擊進入用戶權(quán)限登陸界面 , 其為“登陸對話框”地；類型 , 命名為 frmLogin. 窗體地界面如下圖所示： h8c52WOngM以上為老師地登陸界面 ,教師身份如 admin admin見數(shù)據(jù)庫地 Admin 表以上為其中之一地學(xué)生地登陸界面學(xué)生身份以學(xué)生名字為用戶名 , 學(xué)號為其密碼如韓信元08060505131見數(shù)據(jù)庫地 Student 表3：進入與 SQL server 2000地連接界面 . 其數(shù)據(jù)庫名為“ xin ”3.1 數(shù)據(jù)錄入、修改、刪除界面設(shè)計進入學(xué)生信息管理系統(tǒng)

20、. 其為“ frmStudent ”地窗體 , 如下圖：該窗體地流程圖如下圖所示：列出某班級的學(xué)生記錄查找學(xué)生記錄瀏覽學(xué)生記錄添加學(xué)生記錄學(xué)生記錄列表刪除當(dāng)前學(xué)生記錄編輯學(xué)生記錄以報表形式顯示學(xué)生記錄v4bdyGious在該界面內(nèi) , 可以進行修改 , 編輯 , 添加等操作 . 由于時間地限制 , 不足地地方是“以報表形式顯示學(xué)生記錄”沒完成 , 暫時實現(xiàn)不了 . 希望以后能夠完成這個版塊地功能 . J0bm4qMpJ93.2數(shù)據(jù)查詢與打印輸出設(shè)計單擊“自定義查詢”按鈕, 將會出現(xiàn)自定義查詢窗體frmFind. 窗體地設(shè)計界面如下圖所示：進入某個學(xué)生信息界面如下所示 , 其窗體為 frmVie

21、w. 在該窗體下 , 學(xué)生只許可查看自己地信息 , 而且不能進行修改 XVauA9grYP3.3系統(tǒng)地維護、安全設(shè)計與 SQL server 2000地具體連接如下圖所示：第四章總結(jié)經(jīng)過這些天地設(shè)計和開發(fā), 學(xué)生學(xué)籍管理系統(tǒng)基本開發(fā)完畢.本系統(tǒng)基本能夠完成學(xué)生學(xué)籍信息和學(xué)生地成績地查詢、插入、刪除、修改等.這次地課程設(shè)計是分組討論和制作地 .在制作地過程中 ,我學(xué)到地不僅是知識,我還認(rèn)識到許多事情.這次設(shè)計對我們地綜合能力是一次很好地鍛煉,使我地編程水平提高了一大步,同時也使我充分地認(rèn)識到合作地可貴 .bR9C6TJscw在我們所制作地學(xué)生學(xué)籍管理系統(tǒng)中 ,涉及到數(shù)據(jù)庫、 VB 等 ,前臺是用

22、 VB 制作地 ,其中包括主界面和一些按扭等 ,后臺用到地是我們所學(xué)地數(shù)據(jù)庫地知識 ,建立了基本表和角色等 ,權(quán)限在前臺已經(jīng)制作 ,故在后臺不再重復(fù) .最后按照老師地要求編寫成文檔 ,從中也對 WORD 地運用提高了一步 .但是該系統(tǒng)還有許多不盡如人意地地方 , 比如用戶界面與 SQL 語言地連接上并不是很完善 ,這是因為我們對 VB 不是很了解 .還有就是由于我們對數(shù)據(jù)庫知識地掌握有限和不牢固 ,角色和視圖地創(chuàng)建沒有想象中地完美 , 備份和還原也只是初步地形成 ,以致學(xué)生學(xué)籍管理系統(tǒng)只是達(dá)到了基本要求,有待進一步改善,希望老師給予批評 .pN9LBDdtrd主要參考文獻(xiàn)1 數(shù)據(jù)庫系統(tǒng)概論作者

23、：王珊薩師煊第四版高等教育出版社2006 年 2VisualBasic6.0 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航作者： 劉韜、駱娟、何旭洪3 數(shù)據(jù)庫原理及應(yīng)用實驗指導(dǎo)作者：錢雪忠陶向東北京郵電大學(xué)出版社2005DJ8T7nHuGT附錄一1用 SQL 語言分別建立院系表、專業(yè)表、教師表、班級表、學(xué)生、課程和選課表、講授表 .代碼如下：院系表CREATE Table 院系表(系編號 varchar(50> not null primary key(系編號 >,系名 varchar(50>,主任工號 varchar(50>,電話 varchar(50>>INSERT INTO

24、 院系表 VALUES('05',' 信息工程系 ','1','07978'>。專業(yè)表CREATE Table 專業(yè)表(專業(yè)號 varchar(50> not null primary key(系編號 >,專業(yè)名 varchar(50>,系編號 varchar(50>,foreign key(系編號 >references院系表 (系編號 >>教師表CREATE Table 教師表(教師號 varchar(50> not null primary key(教師號 >,姓名

25、 varchar(50>,性別 varchar(50>,系編號 varchar(50>,foreign key(系編號 >references院系表 (系編號 >>班級表CREATE Table 班級表(班號 varchar(50>not null primary key(班號 >,班名 varchar(50>,人數(shù) varchar(50>,專業(yè)號 varchar(50>,教師號 varchar(50>,>學(xué)生表CREATE Table 學(xué)生表(學(xué)號 varchar(50> not null primary k

26、ey(學(xué)號 >,姓名 varchar(50> not null,性別 varchar(50>,出生年月varchar(50>,籍貫 varchar(50>,民族 varchar(50>,政治面貌varchar(50>,院系 varchar(50>,專業(yè)班級varchar(50>,電話 varchar(50>>INSERT INTO 學(xué)生表 VALUES('08060505101','趙曉霞 ','女 ','1985','河北省 ','漢族 &

27、#39;,'預(yù)備黨員 ', ' 信息工程系 ','計算機 051','07978336522'>。QF81D7bvUAINSERT INTO 學(xué)生表 VALUES('08060505102','張熙磊 ','男 ','1985','河北省 ','蒙古族 ','團員 ', '信息工程系 ','計算機。 4B7a9QFw9hINSERT INTO 學(xué)生表 VALUES('08060505

28、105','惠城旗 ','男 ','1986','江蘇省 ','漢族 ','團員 ', '信息工程系 ','計算機。ix6iFA8xoXINSERT INTO 學(xué)生表 VALUES('08060505107','劉方山 ','男 ','1986','江西省 ','漢族 ','團員 ', '信息工程系 ','計算機 051',&

29、#39;0797'>。wt6qbkCyDEINSERT INTO 學(xué)生表 VALUES('08060505119','徐冰','男','1987','江西省 ','漢族 ','團員 ', ' 信息工程系 ','計算機 051','0797'>。Kp5zH46zRkINSERT INTO 學(xué)生表 VALUES('08060505131','韓信元 ','男 ','

30、1987','海南省 ','漢族 ','團員 ', '信息工程系 ','計算機 051','0797'>。Yl4HdOAA61INSERT INTO 學(xué)生表 VALUES('08060505135','張 三','男','1987','海南省 ','漢族 ','團員 ', ' 信息工程系 ','計算機 051','0797'&g

31、t;。ch4PJx4BlI課程表CREATE Table 課程表(課號 varchar(50> not null primary key(課號 >,課名 varchar(50>,類別 varchar(50>,學(xué)時 varchar(50> not null,開課院系varchar(50>,任課老師varchar(50>,學(xué)分 float(8>>INSERTINTO 課程表 VALUES('1','計算機導(dǎo)論 ','理工 ','72','信息工程系 ','曹

32、老師 ','4'>。qd3YfhxCzoINSERT INTO 課程表VALUES('2','C 語言','理工 ','72','信息工程系 ','徐老師 ','4.5'>。E836L11DO5INSERTINTO 課程表VALUES('3','C+','理工 ','72','信息工程系 ','陳老師 ','4'>。S42ehLvE

33、3MINSERTINTO 課程表 VALUES('4','數(shù)據(jù)結(jié)構(gòu)','理工 ','72','信息工程系 ','吳老師 ','5'>。501nNvZFisINSERTINTO 課程表 VALUES('5','數(shù)據(jù)庫','理工 ','72','信息工程系 ','曾老師 ','4.5'>。jW1viftGw9INSERTINTO 課程表 VALUES('6&

34、#39;,'計算機網(wǎng)絡(luò) ','理工 ','72','信息工程系 ','陳老師 ','4'>。xS0DOYWHLPINSERTINTO 課程表 VALUES('7','中國近代史 ','理工 ','72','人文科學(xué)系 ','黃老師 ','4'>。LOZMkIqI0w選課表CREATE Table 選課表(學(xué)號 varchar(50> not null ,課號 varcha

35、r(50> not null,成績float(8>,primary key(學(xué)號 ,課號 >>insert into 選課表 values('08060505101','5','92'>。insert into 選課表 values('08060505102','1','80'>。insert into 選課表 values('08060505105','2','80'>。insert into 選課表 val

36、ues('08060505107','7','85'>。insert into 選課表 values('08060505119','5','83'>。insert into 選課表 values('08060505131','6','90'>。insert into 選課表 values('08060505135','3','76'>。講授表CREATE Table 講授表(教師號

37、 varchar(50>not null,課號 varchar(50>not null,效果 varchar(50>,primary key(教師號 ,課號 >>2建立索引地代碼create unique index院系 _系編號 on 院系表 (系編號 > create unique index專業(yè) _專業(yè)號 on 專業(yè)表 (專業(yè)號 > create unique index班級 _班號 on 班級表 (班號 > create unique index教師 _教師號 on 教師表 (教師號 > create unique index學(xué)生

38、_學(xué)號 on 學(xué)生表 (學(xué)號 > create unique index課程 _課號 on 課程表 (課號 >附錄二用 VB 建立地界面代碼1：窗體 frmLogin 地地代碼如下：Option Explicit'表示當(dāng)前用戶登錄所選擇地身份 ,即用戶類型 , 0-表示教務(wù)管理人員； 1-表示學(xué)生 Dim mnUserType As IntegerPrivate Sub cmdCancel_Click(>Unload MeEnd SubPrivate Sub cmdOK_Click(>'取得用戶輸入地用戶名和密碼Dim user As String, p

39、wd As Stringuser = txtUserpwd = txtPwd'根據(jù)不同地身份 ,選擇不同地表用以查詢Dim r As New ADODB.RecordsetSet r = DataEnv.rssqlSeekDim strSQL As StringSelect Case mnUserTypeCase 0: 若'身份為管理員strSQL = "select * from admin where name='" & user & "' and pwd='" & pwd &&

40、quot;'" ZKZUQsUJedCase 1: 若'身份為學(xué)生strSQL = "select * from student where name='" & user & "' and serial='" & pwd &"'" dGY2mcoKtTEnd SelectOn Error Resume Next'查詢 DataEnv.rssqlSeek地狀態(tài) ,如果已經(jīng)打開 ,則先關(guān)閉If r.State = adStateOpen Th

41、en r.Closer.Open strSQL根'據(jù) strSQL 地內(nèi)容刷新 DataEnv.rssqlSeekrCYbSWRLIA'用戶密碼錯誤地次數(shù) ,如果錯誤次數(shù)超過 3 次,則退出系統(tǒng) Static nTryCount As IntegerIf r.EOF Then'登錄失敗MsgBox " 對不起 ,無此用戶或者密碼不正確！請重新輸入！", vbCritical, " 錯誤 "txtUser.SetFocustxtUser.SelStart = 0txtUser.SelLength = Len(txtUser>n

42、TryCount = nTryCount + 1If nTryCount >= 3 ThenMsgBox "您無權(quán)操作本系統(tǒng) !再見！ ", vbCritical, " 無權(quán)限 "Unload MeEnd IfElse登'陸成功'顯示 MDI 窗體 , 并將用戶類型和用戶名傳到MDI 窗體中地 mnUserType, msUserName中 FyXjoFlMWhLoad MDIMainWith MDIMain.mnUserType = mnUserType.msUserName = pwd.ShowEnd WithUnload Me

43、End IfEnd Sub2：窗體“ frmStudent”地學(xué)生信息管理系統(tǒng)地地代碼如下：添加地代碼： Private Sub cmdAdd_Click(>'添加記錄fraSeek.Enabled = FalsefraBrowse.Enabled = FalsegrdScan.Enabled = FalsetxtBirthday.Text = "1987-01-01"fraInfo.Enabled = TruefraBrowse.Enabled = FalsecmdAdd.Enabled = FalsecmdEdit.Enabled = FalsecmdDe

44、lete.Enabled = FalsecmdUpdate.Enabled = TruecmdReport.Caption = "取消 "cmdReport.Enabled = TruembClose = False不'能關(guān)閉窗口End Sub刪除地代碼：Private Sub cmdDelete_Click(>'如果出錯 ,則顯示錯誤代碼On Error GoTo errHandlerIf MsgBox(" 要刪除記錄 ?", vbYesNo + vbQuestion + vbDefaultButton2, "確認(rèn) &q

45、uot;> = vbYesThenTuWrUpPObX'通過在 DataEnv.Con 中執(zhí)行 SQL 命令 ,來刪除記錄7qWAq9jPqEllVIWTNQFk'刷新用戶導(dǎo)航地網(wǎng)格控件Call RefreshGridEnd IfExit SuberrHandler:MsgBox Err.Description, vbCritical, " 錯誤 "End Sub編輯地代碼：Private Sub cmdEdit_Click(>'編輯記錄之前 ,需要設(shè)置其他控件地Enabled 屬性fraSeek.Enabled = FalsefraBr

46、owse.Enabled = FalsegrdScan.Enabled = FalsefraInfo.Enabled = TruecmdAdd.Enabled = FalsecmdEdit.Enabled = FalsecmdDelete.Enabled = FalsecmdUpdate.Enabled = TruecmdReport.Caption = "取消 " ''更改 cmdReport 標(biāo)題 cmdReport.Enabled = TruembClose = False 出'于編輯狀態(tài) ,則用戶不能關(guān)閉窗口 End Sub更新地代碼：Private Sub cmdUpdate_Click(>'更新所添加或者修改地記錄On Error GoTo errHandler:Dim str As Stringstr = txtSerial.TextWith DataEnv.rsStudent.Fields("Serial"> = txtSerial.Text.Fields("name"> = txtName.Text.Fields("sex"> = cboSex.Text.Fields(