學生信息管理系統(tǒng) 數(shù)據(jù)庫課程設計

《學生信息管理系統(tǒng) 數(shù)據(jù)庫課程設計》由會員分享，可在線閱讀，更多相關《學生信息管理系統(tǒng) 數(shù)據(jù)庫課程設計（28頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、目錄 第一章 系統(tǒng)概述 1 1.1 系統(tǒng)開發(fā)的背景 1 1.2系統(tǒng)開發(fā)的意義 1 第二章系統(tǒng)需求分析 2 2.1系統(tǒng)功能要求 2 2.2 需求分析概述 2 2.3 系統(tǒng)層次劃分 3 2.4 系統(tǒng)數(shù)據(jù)流圖 3 2.5 數(shù)據(jù)字典 4 第三章 系統(tǒng)總體設計目標 10 3.1 系統(tǒng)總體設計目標 10 3.2 系統(tǒng)概念設計 10 3.2.1 概念模式（E-R圖） 10 3.2.2 關系模式 12 3.2.3關系模式規(guī)范化說明 13 3.2.4 系統(tǒng)數(shù)據(jù)庫表結構 13 第四章 數(shù)據(jù)庫系統(tǒng)實現(xiàn) 16 4.1系統(tǒng)實現(xiàn)工具簡介 16 4.2 學生信息

2、管理系統(tǒng)數(shù)據(jù)庫實現(xiàn) 16 結束語 26 參考文獻 27 第一章 系統(tǒng)概述 1.1 系統(tǒng)開發(fā)的背景 隨著學校規(guī)模的不斷擴大，學生數(shù)量急劇增加，有關學生的各種信息也成 倍增加。面對龐大的信息量，傳統(tǒng)的人工方式管理會導致學生信息管理上的混 亂，人力與物力過多浪費，管理費用的增加，從而使學校管理人員的負擔過重， 影響整個學校的運作和控制管理，因此，必須制定一套合理、有效，規(guī)范和實 用的學生信息管理系統(tǒng)，對學生信息進行集中統(tǒng)一的管理。通過這樣的系統(tǒng)， 可以做到信息的規(guī)范管理、科學統(tǒng)計和快速的查詢，從而減少管理方面的工作 量。另一方面，IT產(chǎn)業(yè)和In terne t獲得了飛速發(fā)展，計算機應用已

3、滲透到了 各個領域，引起信息管理的革命，實現(xiàn)了信息的自動化處理，提高了處理的及 時性和正確性。 提高學生信息管理的工作效率，作到信息的規(guī)范管理，科學統(tǒng)計和快速查 詢，讓該系統(tǒng)更好的為學校，社會服務。 1.2 系統(tǒng)開發(fā)的意義 學生信息管理作為計算機應用的一個分支，有著手工管理無法比擬的優(yōu)點， 如檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等 這些優(yōu)點能夠極大地提高學生信息管理的效率。因此，開發(fā)一套能夠為用戶提 供充足的信息和快捷的查詢手段的學生信息管理系統(tǒng)，將是非常必要的，也是 十分及時的。 通過對管理系統(tǒng)模型的研究，提出一套構造學生信息管理系統(tǒng)模塊的方法， 并利用數(shù)

4、據(jù)庫，信息系統(tǒng)分析學的知識，結合其它學校管理業(yè)務知識，建立起 相關數(shù)據(jù)模型，利用面向對象開發(fā)工具對其進行設計與開發(fā)，建立一套有效的 學生信息管理系統(tǒng)，可以減少工作量，將管理工作科學化，規(guī)范化，提高學校 管理的工作質(zhì)量和工作效率。 第二章 系統(tǒng)需求分析 2.1 系統(tǒng)功能要求 主要功能： （1） 學生信息管理：對學生基本信息的增加、修改和刪除 （2） 學生查詢：對學生基本信息和成績的查詢 （3） 學生選課：用于學生選擇課程學習 （4） 學生成績：對學生各科成績的添加、修改和刪除等管理 （5） 打?。河脕泶蛴W生的基本信息和成績 2.2 需求分析概述 隨著學校的普及和人們文化水平

5、的提高，高效的教學管理系統(tǒng)越來越廣泛應 用于各類信息化學校。學生學籍管理系統(tǒng)要求實用性強、使用方便、效率高和安 全可靠等特點。 經(jīng)分析我認為學生信息管理系統(tǒng)的具體要求為： 1、能全面管理學生的各類信息，如學生信息管理，學生查詢，學生選課，學生 成績和打印等五項功能。 2、通過使用計算機能方便的維護（包括插入、刪除、修改）各信息表 3、能方便的實現(xiàn)基于多個表的連接查詢 4、系統(tǒng)具有操作方便、簡捷等特點 因而，所開發(fā)的管理系統(tǒng)正是圍繞以上幾個方面進行的，在開發(fā)過程中充分 考慮到本系統(tǒng)的應用特點，并進行了大量的檢驗，證明其的確達到了設計的要求。 2.3 系統(tǒng)層次劃分 系統(tǒng)層次劃分如圖

6、 2.1 所示 圖 2.1 系統(tǒng)層次劃分圖 2.4 系統(tǒng)數(shù)據(jù)流圖 數(shù)據(jù)流圖是在對系統(tǒng)分析調(diào)查的基礎上，以系統(tǒng)的科學性、管理的合理性 技術的可行性角度出發(fā)，將信息處理功能和彼此之間的聯(lián)系自頂向下、逐層分 解，從邏輯上精確地描述應具有的數(shù)據(jù)加工功能、數(shù)據(jù)輸入、數(shù)據(jù)輸出、數(shù)據(jù) 存儲及數(shù)據(jù)的來源和去向。學生信息管理系統(tǒng)經(jīng)過劃分出各子系統(tǒng)及其各自的 功能，以及相互聯(lián)系，繪制出數(shù)據(jù)流圖如圖 2.2 所示： 圖2.2 系統(tǒng)數(shù)據(jù)流程圖 2.5 數(shù)據(jù)字典 （1）數(shù)據(jù)流的描述 數(shù)據(jù)流編號：D—01 數(shù)據(jù)流名稱：輸入請求 簡述：向系統(tǒng)管理人員提交輸入請求 數(shù)據(jù)流來源：查詢信息管理 數(shù)

7、據(jù)流去向：系統(tǒng)管理人員 數(shù)據(jù)項組成：學生姓名+學號+請求信息 數(shù)據(jù)流量：約20張/日 高峰流量：約 50 張/日 數(shù)據(jù)流編號：D—02 數(shù)據(jù)流名稱：輸出結果 簡述：向查詢信息處理輸出結果 數(shù)據(jù)流來源：系統(tǒng)管理人員 數(shù)據(jù)流去向：查詢信息處理 數(shù)據(jù)項組成：學生姓名+學號+查詢信息 數(shù)據(jù)流量：約20張/日 高峰流量：約50張/日 數(shù)據(jù)流編號：D—02 數(shù)據(jù)流名稱：請求結果 簡述：向系統(tǒng)管理人員提交請求結果 數(shù)據(jù)流來源：添加修改信息處理模塊 數(shù)據(jù)流去向：系統(tǒng)管理人員 數(shù)據(jù)項組成：學生姓名+學號+請求結果 數(shù)據(jù)流量：約20張/日 高峰流量：約50張/日 數(shù)據(jù)流編號：D—04 數(shù)據(jù)

8、流名稱：正確信息 簡述：向添加修改信息處理模塊輸出正確信息 數(shù)據(jù)流來源：系統(tǒng)管理人員 數(shù)據(jù)流去向：添加修改信息處理模塊 數(shù)據(jù)項組成：學生姓名+學號+正確信息 數(shù)據(jù)流量：約20張/日 高峰流量：約50張/日 數(shù)據(jù)流編號：D—05 數(shù)據(jù)流名稱：刪除請求 簡述：向系統(tǒng)管理人員提交信息刪除請求 數(shù)據(jù)流來源：刪除信息模塊 數(shù)據(jù)流去向：系統(tǒng)管理人員 數(shù)據(jù)項組成：學生姓名+學號+刪除請求 數(shù)據(jù)流量：約20 張/日 高峰流量：約50 張/日 數(shù)據(jù)流編號：D—06 數(shù)據(jù)流名稱：刪除結果 簡述：向刪除信息處理模塊輸出刪除結果 數(shù)據(jù)流來源：系統(tǒng)管理人員 數(shù)據(jù)流去向：刪除信息處理模塊 數(shù)據(jù)項組成：學生

9、姓名+學號+刪除結果 數(shù)據(jù)流量：約20 張/日 高峰流量：約50 張/日 2）處理邏輯的描述 處理邏輯編號：P1 處理邏輯名稱：查詢信息處理 簡述：學生對自己的基本信息和成績進行查詢 輸入的數(shù)據(jù)流：輸出結果 處理描述：根據(jù)管理人員輸出結果使用戶可以查詢所需要的信息 輸出的數(shù)據(jù)流：輸入請求 處理頻率：5 次/日 處理邏輯編號：P2 處理邏輯名稱：添加、修改信息處理 簡述：通過請求結果對學生的基本信息和成績進行添加、修改操作 輸入的數(shù)據(jù)流：請求結果 處理描述：完善學生的基本信息和成績的管理，使之更準確有效 輸出的數(shù)據(jù)流：正確信息 處理頻率：5 次/日 處理邏輯編號：P3 處理

10、邏輯名稱：刪除信息處理 簡述：通過請求結果對學生的基本信息和成績刪除操作 輸入的數(shù)據(jù)流：刪除請求 處理描述：對于錯誤信息或者失效信息進行刪除操作 輸出的數(shù)據(jù)流：刪除結果 處理頻率：5 次/日 處理邏輯編號：P4 處理邏輯名稱：選課處理 簡述：學生根據(jù)自己的時間和喜好對課程進行選擇性學習 處理描述：完成學生的課程選擇 處理頻率：5 次/日 處理邏輯編號：P5 處理邏輯名稱：錄入學生信息 簡述：將學生的基本信息錄入該系統(tǒng) 處理描述：對學生的信息進行錄入 處理頻率：5 次/日 處理邏輯編號：P6 處理邏輯名稱：錄入學生成績 簡述：將學生的考試成績錄入該系統(tǒng) 處理描述：對學生的成

11、績進行錄入 處理頻率：5次/日 (3) 數(shù)據(jù)存儲的描述 數(shù)據(jù)存儲編號：F1 數(shù)據(jù)存儲名稱：學生信息基本表 簡述：包含學生所有的基本信息 數(shù)據(jù)存儲組成：學生姓名+學生學號+性別+年齡+出生年月+身份證號碼+ 籍貫+政治面貌+社會關系+家庭住址+聯(lián)系方式 關鍵字：學生學號+姓名 相關處理：P2, P3, P5 數(shù)據(jù)存儲編號：F2 數(shù)據(jù)存儲名稱：學生成績表 簡述：學生選修所有成績的匯總表 數(shù)據(jù)存儲組成：課程號+課程名+任課教師+上課地點+上課周次+考試成績 關鍵字：課程號+課程名 相關處理：P2, P3, P6 數(shù)據(jù)存儲編號：F3 數(shù)據(jù)存儲名稱：課程存儲 簡述：對學生所選的

12、課程進行存儲 數(shù)據(jù)存儲組成：學生姓名+學生學號+所選課程+課程教師+課程所在教室 關鍵字：學生學號+所選課程+課程教師+上課地點 相關處理：P4 (4) 外部實體的描述 外部實體編號：S—01 外部實體名稱：學生 簡述：是該系統(tǒng)中進行信息和成績查詢的用戶 外部實體編號：S—02 外部實體名稱：系統(tǒng)管理人員 簡述：系統(tǒng)管理人員對學生信息進行添加、修改和刪除操作 輸出的數(shù)據(jù)流：輸出結果，正確信息，刪除結果 第三章 系統(tǒng)總體設計目標 3.1 系統(tǒng)總體設計目標 隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深 刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越

13、重要的作用。作為計算機 應用的一部分,使用計算機對學生信息進行管理,具有著手工管理所無法比擬的 優(yōu)點.例如:檢索迅速、查找方便、易修改、可靠性高、存儲量大、數(shù)據(jù)處理快 捷、保密性好、壽命長、成本低、便于打印等。這些優(yōu)點能夠極大地提高學生 信息管理的效率,也是學生信息管理的科學化、正規(guī)化管理,與世界接軌的重要 條件。因此，開發(fā)這樣一套管理軟件成為很有必要的事情。使之減輕系統(tǒng)管理 人員的負擔，充分發(fā)揮電腦的作用。 學生信息管理系統(tǒng)是學生管理工作中不可缺少的部分 ,它的內(nèi)容對于學校和學 生來說都至關重要,所以學生信息管理系統(tǒng)應該能夠為管理者或使用者提供充 足的信息和快捷的數(shù)據(jù)處理手段。對學生信息和成

14、績進行錄入、查詢、修改、 增加、刪除等功能，而且可以實現(xiàn)選課功能。高效性通過系統(tǒng)的實用，能夠改 變舊的學生信息管理模式，使對學生的信息和成績進行查詢、增加、修改和刪 除以及具備選課的功能。便于學校的管理和學生的查詢。 3.2 系統(tǒng)概念設計 所要實現(xiàn)的功能設計，可能建立它們之間的關系，進而實現(xiàn)邏輯結構功能。 學生信息管理信息系統(tǒng)可以劃分的實體有：院系類別信息實體、班級信息 實體、專業(yè)信息實體、學生信息實體、教師信息實體和課程信息實體。 3.2.1概念模式（E-R圖） 1、E-R 圖 （1）班級實體圖如圖 3.1 所示 4）課程實體圖如圖3.4所示 圖 3.4 課程實體圖

15、 (5) 系統(tǒng)E-R圖圖3.5所示 班級 1 n 學生 m n 圖3.5系統(tǒng)E-R圖 2、系統(tǒng)E-R圖說明 (1) 一個班級包括若干名學生 (2) 一個學生可以選修多門課程，一個課程可以被多個學生選修 (3) 一個教師

16、可以講授多門課程，一門課程可以被多名教師講授 3.2.2 關系模式 班級(班號，班名，人數(shù)) 學生(學號，姓名，性別，出生年月) 課程(課程號，課程名，學分，開課學期) 教師(教師號，姓名，性別) 選修（學號，課程號，成績） 講授（教師號，課程號，上課時間，上課地點） 3.2.3 關系模式規(guī)范化說明 （1） 班級表的主屬性是班號，經(jīng)分析班級模式在滿足第一范式的基礎上還滿足 第二范式，并且它的任何一個非主屬性都不傳遞依賴于主屬性班號，因此也滿 足第三范式。 （2） 學生表的主屬性是學號，經(jīng)分析學生模式在滿足第一范式的基礎上還滿足 第二范式，并且它的任何一個非主屬性都不傳遞依賴

17、于主屬性學號，因此也滿 足第三范式。 （3） 課程表的主屬性是課程號，經(jīng)分析課程模式在滿足第一范式的基礎上還滿 足第二范式，并且它的任何一個非主屬性都不傳遞依賴于主屬性課程號，因此 也滿足第三范式。 （4） 教師表的主屬性是教師號，經(jīng)分析教師模式在滿足第一范式的基礎上還滿 足第二范式，并且它的任何一個非主屬性都不傳遞依賴于主屬性教師號，因此 也滿足第三范式。 （5） 選修表的主屬性是學號和課程號，經(jīng)分析選修模式在滿足第一范式的基礎 上還滿足第二范式，并且它的任何一個非主屬性都不傳遞依賴于主屬性學號和 課程號，因此也滿足第三范式。 （6） 講授表的主屬性是教師號和課程號，經(jīng)分析班級模式在

18、滿足第一范式的基 礎上還滿足第二范式，并且它的任何一個非主屬性都不傳遞依賴于主屬性，因 此也滿足第三范式。 3.2.4 系統(tǒng)數(shù)據(jù)庫表結構 1) 表 3—1 數(shù)據(jù)庫索引表 表名 中文名 class 班級表 student 學生表 course 課程表 teacher 教師表 xuanxiu 選修表 jiangshou 講授表 2) 表3-2 班級表 字段名 字段類型 長度 字段值約束 對應中文名 數(shù)據(jù)列舉 BH Varchar 10 Not null 班號 082202H BM Varchar 20 Not null 班

19、名 信管 RS Varchar 10 Not null 人數(shù) 40 3) 表3-3 學生表 字段名 字段類型 長度 字段值約束 對應中文名 數(shù)據(jù)列舉 SN Varchar 20 Not null 學號 200822040235 SNAME Varchar 10 Not null 姓名 張樂 SEX Varchar 4 Not null 性別 女 BIRTH Varchar 10 Not null 出生年月 1989.10 4) 表3-4 課程表 字段名 字段類型 長度 字段值約束 對應中文名

20、 數(shù)據(jù)列舉 CN Varchar 20 Not null 課程號 080021 CNAME Varchar 10 Not null 課程名 管理信息系統(tǒng) XF Varchar 4 Not null 學分 5 TIME Varchar 20 Not null 開課學期 10-11學年第一學期 5) 表3-5 教師表 字段名 字段類型 長度 字段值約束 對應中文名 數(shù)據(jù)列舉 TN Varchar 20 Not null 教師號 030010 TN Varchar 10 Not null 姓名 武妍 SEX

21、 Varchar 10 Not null 性別 女 6) 表3-6 選修表 字段名 字段類型 長度 字段值約束 對應中文名 數(shù)據(jù)列舉 SN Varchar 20 Not null 學號 200822040235 CN Varchar 20 Not null 課程號 080021 CJ Varchar 10 Not null 成績 85 7) 表 3-7 講授表 字段名 字段類型 長度 字段值約束 對應中文名 數(shù)據(jù)列舉 TN Varchar 20 Not null 教師號 030010 CN

22、Varchar 20 Not null 課程號 080021 SHIJIAN Varchar 10 Not null 上課時間 第二節(jié)課 PLACE Varchar 10 Not null 上課地點 18樓1階 第四章 數(shù)據(jù)庫系統(tǒng)實現(xiàn) 4.1系統(tǒng)實現(xiàn)工具簡介 SQL Server 2000 簡介： SQL Server是一個關系數(shù)據(jù)庫管理系統(tǒng)，它最初是由Microsoft Sybase和 Ashton-Tate三家公司共同開發(fā)的于1988年推出了第一個OS/2版本在 Windows NT推出后Microsoft與Sybase在SQL Server的開

23、發(fā)上就分道揚鑣 了 Microsoft將SQL Server移植到Windows NT。系統(tǒng)上專注于開發(fā)推廣SQL Server的Windows NT版本Sybase則較專注于SQL Server在UNIX操作系統(tǒng) 上的應用。 SQL Server 2000是Microsoft公司推出的SQL Server數(shù)據(jù)庫管理系統(tǒng) 的最新版本，該版本繼承了 SQL Server 7.0版本的優(yōu)點，同時又比它增加了 許多更先進的功能，具有使用方便、可伸縮性、與相關軟件集成程度高等優(yōu)點， 可跨越從運行Microsoft Windows 98的膝上型電腦到運行Microsoft Windows 2000的大

24、型多處理器的服務器等多種平臺使用。 4.2學生信息管理系統(tǒng)數(shù)據(jù)庫實現(xiàn) 1.用SQL語言分別建立班級表、學生、課程、教師表。代碼如下： (1)班級表 CREATE Table 班級表 ( 班號 varchar(10)not null primary key(班號)， 班名 varchar(20), 人數(shù) varchar(10), ) 希表“班級表円中的數(shù)據(jù).誼置是“學生營息管理"中、"(local)"上 班號 班名 人數(shù) □8Z202 40 082301 40 $ □82402 40| * (2)學生表 C

25、REATE Table 學生表 學號 varchar(20) not null primary key(學號), 姓名 varchar(lO) not null, 性別 varchar(4), 出生年月 varchar(10), ) 侖表“學生表“中的隸據(jù)，住置是“學生常息管理"中、"(local)"上 學號 姓名 性別 出生年月 _ 200822040235 張一樂 1989.05 1989. 1Z 200822040222 桑夢媛 2 200822040238 越睫旨 (3)課程 CREATE Table 課程表 ( 課程號 varcha

26、r(20) not null primary key(課程號), 課程名 varchar(10), 學分 varchar(4) 開課學期varchar(20), ) 侖表“課程表"中內(nèi)數(shù)據(jù)，應置是"學生信息管理”中、"(local) - ± 凜翟號 課程茗 開諒學癡 080021 管理信息 4 第二學期 LI8LILI22 經(jīng)濟學 4 第一學期 $ 080023 運籌學 3 第二學期 (4)教師表 CREATE Table 教師表 ( 教師號 varchar(20) not null primary ke

27、y(教師號), 姓名 varchar(10), 性別 varchar(lO), ) 濡表。報師表1■中的數(shù)據(jù)，位置是“學生惜息管理"中、-(local)- ± 教師號 姓名 性別 030010 030011 李小波 .0 □30012 女1 2、原代碼設計 (1) 登陸界面 源代碼 Option Explicit Dim stuflag As Boolean '標記用戶是否為學生 Public LoginSucceeded As Boolean Private Sub cmdCancel_Click()

28、'設置全局變量為false '不提示失敗的登錄 LoginSucceeded = False Me.Hide End Sub Private Sub cmdOK_Click() '檢查正確的密碼 Dim num1 As Integer Dim num2 As Integer If Len(txtUserName.Text) > 0 And Len(txtPassword) > 0 And stuflag = False Then '管理人員 Adodc1.Item(0).CommandType = adCmdText Adodc1.Item(0).RecordSource

29、 = "select * from wjuser where uname='" & Trim(txtUserName.Text) & "'And upasw='" & Trim(txtPassword.Text) & "'" Adodc1.Item(0).Refresh num1 = Adodc1.Item(0).Recordset.RecordCount Else '學生 Adodc1.Item(1).CommandType = adCmdText Adodc1.Item(1).RecordSource = "select sname spasw from wjstudent wh

30、ere sname= '" & Trim(txtUserName.Text) & "'And spasw—" & Trim(txtPassword.Text) & "'" Adodc1.Item(1).Refresh num2 = Adodcl.Item(l).Recordset.RecordCount End If If numl <= 0 And num2 <= 0 Then MsgBox "無效的密碼，請重試!",，"登錄" txtPassword.SetFocus SendKeys "{Home}+{End}" Else LoginSucceeded = True M

31、e.Hide MDIForm1.Show End If End Sub Private Sub Option1_Click(Index As Integer) If Index = 0 Then If stuflag = False Then stuflag = True End If Else If stuflag = True Then stuflag = False End If End If End Sub 圖5.1系統(tǒng)登陸界面 (2) 添加用戶界面 源代碼 Private Sub Command1_Click()'添加用戶 Adodd.Rec

32、ordset.AddNew End Sub Private Sub Command2_Click()'更新 Adodc1.Recordset.Fields("uname") = Trim(Text1.Text) Adodc1.Recordset.Fields("upasw") = Trim(Text2.Text) Adodcl.Recordset.Update MsgBox "添加成功!",，"提示" End Sub 忝加成功! i 圖5.2用戶添加界面 (3) 用戶密碼修改界面 源代碼 Private Sub Command1_Click() Comma

33、nd2.Enabled = False '使取消按鈕不可用 If Len(Text4.Text) <> 0 Then查看輸入用戶是否存在 Adodcl.CommandType = adCmdText Adodcl.RecordSource = "select * from wjuser where uname='" Trim(Textl.Text) & "'" Adodcl.Refresh If Adodcl.Recordset.RecordCount <= 0 Then MsgBox "沒有該用戶!，請重新輸入",，"提示" Else If Len(Textl.Text) <

34、> 0 Then查看舊密碼是否正確 Adodcl.CommandType = adCmdText Adodcl.RecordSource = "select * from wjuser where upasw='" Trim(Text4.Text) & "'" Adodcl.Refresh If Adodcl.Recordset.RecordCount <= 0 Then MsgBox "密碼不正確，請重新輸入!",，"提示" Else If Len(Text2.Text) <> 0 Then '確認密碼并修改 If Len(Text3.Text) <> 0 Then If

35、Text2.Text <> Text3.Text Then MsgBox "您的輸入不一致，請重新確認!"，，"提示" Else Adodcl.Recordset.Fields("upasw") Trim(Text3.Text) Adodcl.Recordset.Update MsgBox "修改成功",，"提示" End If End If End If End If End If End If End If End Sub Private Sub Command2_Click()'取消 Command1.Enabled = False '使修改按鈕不可用 A

36、dodc1.Recordset.CancelUpdate End Sub Private Sub Command3_Click() Unload Me End Sub 設有謬用尸!』請重新輸入 圖5.3密碼修改界面 (4) 學生密碼修改界面 源代碼 Private Sub Command1_Click()'修改 Command2.Enabled = False '使取消按鈕不可用 If Len(Text4.Text) <> 0 Then查看輸入學號是否存在 Adodcl.CommandType = adCmdText Adodcl.RecordSource =

37、 "select * from wjstudent where sno='" & Trim(Text4.Text) & "'" Adodc1.Refresh If Adodc1.Recordset.RecordCount <= 0 Then MsgBox "沒有該學號!,請重新輸入", , "提示" Else If Len(Text1.Text) <> 0 Then '查看舊密碼是否正確 Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select * from wjstudent where spasw='" & Tr

38、im(Text1.Text) & "'" Adodc1.Refresh If Adodc1.Recordset.RecordCount <= 0 Then MsgBox "密碼不正確,請重新輸入!", , "提示" Else If Len(Text2.Text) <> 0 Then '確認密碼并修改 If Len(Text3.Text) <> 0 Then If Text2.Text <> Text3.Text Then MsgBox "您的輸入不一致,請重新確認!", , "提示" Else Adodc1.Recordset.Fields("spasw") Trim(Tex

39、t3.Text) Adodc1.Recordset.Update MsgBox "修改成功", , "提示" End If End If End If End If End If End If End If End Sub Private Sub Command2_Click() '取消 Adodc1.Recordset.CancelUpdate Command1.Enabled = False '使修改按鈕不可用 End Sub Private Sub Command3_Click() '退出 Unload Me End Sub 密碼不正確，諸重新輸入!

40、 W：：：J 圖5.4學生密碼修改界面 (5)信息查詢 源代碼 Dim nameflag As Boolean '標記是否按姓名查詢 Private Sub Commandl_Click()'個人信息查詢 Dim searchSQL As String Adodd.CommandType = adCmdText If nameflag = False Then searchSQL = "select * from wjstudent where sno ='" & Trim(Text1.Text) & "'"'按學號查詢 Else searchSQL = "selec

41、t *from wjstudent where sname ='" & Trim(Text1.Text) & "'"'按姓名查詢 End If Adodd.RecordSource = searchSQL Adodd.Refresh If Adodd.Recordset.RecordCount <= 0 Then MsgBox "不存在此紀錄!請重新輸入",，"警告" End If End Sub Private Sub Command2_Click()'退出查詢信息窗體 Unload Me End Sub Private Sub Option1_Click(Index

42、As Integer)'選擇查詢標準 nameflag = False If Index = 0 Then If nameflag = True Then nameflag = False End If End If If Index = 1 Then If nameflag = False Then nameflag = True End If End If End Sub 圖5.5信息查詢界面 (6)成績查詢 源代碼 Private Sub Commandl_Click() Dim str As String Adodd.CommandType =

43、 adCmdText Adodc1.RecordSource = "select * from wjsc where sno ='" & Trim(Text1.Text) & "'and psenior='" & Trim(Combo1.Text) & "'"'按學號查詢 Adodd.Refresh If Adodd.Recordset.RecordCount <= 0 Then MsgBox "不存在此紀錄!請重新輸入",，"警告" End If End Sub Private Sub Command2_Click() Unload Me End Sub 圖5

44、.6成績查詢界面 結束語 通過這次的實驗，我對數(shù)據(jù)庫在生活中的廣泛應用有了更深的體會，同時 也加深了對 SQL2000 的認識，了解了相關的 VB 知識，尤其對數(shù)據(jù)庫與開發(fā)程序 的鏈接有了進一步的認識。這次課程設計我最大的收獲并不是對書本知識的鞏 固，而是通過實驗我的自學能力得到了很好的鍛煉，實踐能力也提高了不少。 只憑上課對這門學科的學習還是不夠的，在設計的開始階段進展很慢。但是通 過網(wǎng)上查資料，與同學討論，互相學習漸漸的把理論知識與實踐相結合。后來 的設計也就沒有那么摸不著門路了。 當然，在這次課

45、程設計中我還有很多沒有解決的問題：不會使用存儲過程 返回結果給變量；也沒能掌握兩個表以上的查詢功能，只能基于單表的查詢， 添加，刪除等，以至功能不是很完善。對于這一點我有很大的遺憾，如果可以 實現(xiàn)的話，相信我可以實現(xiàn)更加完善的功能。如實現(xiàn)對班級專業(yè)的成績統(tǒng)計， 實現(xiàn)靈活的成績查詢等等。 總結以上，這次課程設計，我收獲很多。不管怎樣，今后我會更加努力學 習這門課程，不斷提高自己。 參考文獻 [1] 陶宏才.數(shù)據(jù)庫原理及設計.清華大學出版社.2002年 [2] 范立南. SQL Server 2000 實用教程.清華大學出版社.1999年 [3] 李香敏. SQL Server 2000 編程員指南.北京希望電子出版社.2000年 [4] 黃梯云.管理信息系統(tǒng).高等教育出版社.2009年 [5] 王珊，薩師煊.數(shù)據(jù)庫系統(tǒng)概論.高等教育出版社.2006年