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

目錄第一章 系統(tǒng)概述 11.1 系統(tǒng)開發(fā)的背景 11.2系統(tǒng)開發(fā)的意義 1第二章系統(tǒng)需求分析 22.1系統(tǒng)功能要求 22.2 需求分析概述 22.3 系統(tǒng)層次劃分 32.4 系統(tǒng)數(shù)據(jù)流圖 32.5 數(shù)據(jù)字典 4第三章 系統(tǒng)總體設(shè)計目標(biāo) 103.1 系統(tǒng)總體設(shè)計目標(biāo) 103.2 系統(tǒng)概念設(shè)計 103.2.1 概念模式（E-R圖）103.2.2 關(guān)系模式123.2.3關(guān)系模式規(guī)范化說明133.2.4 系統(tǒng)數(shù)據(jù)庫表結(jié)構(gòu)13第四章 數(shù)據(jù)庫系統(tǒng)實(shí)現(xiàn)164.1系統(tǒng)實(shí)現(xiàn)工具簡介164.2 學(xué)生信息管理系統(tǒng)數(shù)據(jù)庫實(shí)現(xiàn)16結(jié)束語 26參考文獻(xiàn)27第一章 系統(tǒng)概述1.1 系統(tǒng)開發(fā)的背景隨著學(xué)校規(guī)模的不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息也成 倍增加。面對龐大的信息量，傳統(tǒng)的人工方式管理會導(dǎo)致學(xué)生信息管理上的混 亂，人力與物力過多浪費(fèi)，管理費(fèi)用的增加，從而使學(xué)校管理人員的負(fù)擔(dān)過重， 影響整個學(xué)校的運(yùn)作和控制管理，因此，必須制定一套合理、有效，規(guī)范和實(shí) 用的學(xué)生信息管理系統(tǒng)，對學(xué)生信息進(jìn)行集中統(tǒng)一的管理。通過這樣的系統(tǒng)， 可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計和快速的查詢，從而減少管理方面的工作 量。另一方面，IT產(chǎn)業(yè)和In terne t獲得了飛速發(fā)展，計算機(jī)應(yīng)用已滲透到了 各個領(lǐng)域，引起信息管理的革命，實(shí)現(xiàn)了信息的自動化處理，提高了處理的及 時性和正確性。提高學(xué)生信息管理的工作效率，作到信息的規(guī)范管理，科學(xué)統(tǒng)計和快速查 詢，讓該系統(tǒng)更好的為學(xué)校，社會服務(wù)。1.2 系統(tǒng)開發(fā)的意義學(xué)生信息管理作為計算機(jī)應(yīng)用的一個分支，有著手工管理無法比擬的優(yōu)點(diǎn)， 如檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等 這些優(yōu)點(diǎn)能夠極大地提高學(xué)生信息管理的效率。因此，開發(fā)一套能夠?yàn)橛脩籼?供充足的信息和快捷的查詢手段的學(xué)生信息管理系統(tǒng)，將是非常必要的，也是 十分及時的。通過對管理系統(tǒng)模型的研究，提出一套構(gòu)造學(xué)生信息管理系統(tǒng)模塊的方法， 并利用數(shù)據(jù)庫，信息系統(tǒng)分析學(xué)的知識，結(jié)合其它學(xué)校管理業(yè)務(wù)知識，建立起 相關(guān)數(shù)據(jù)模型，利用面向?qū)ο箝_發(fā)工具對其進(jìn)行設(shè)計與開發(fā)，建立一套有效的 學(xué)生信息管理系統(tǒng)，可以減少工作量，將管理工作科學(xué)化，規(guī)范化，提高學(xué)校 管理的工作質(zhì)量和工作效率。第二章 系統(tǒng)需求分析2.1 系統(tǒng)功能要求主要功能：（1）學(xué)生信息管理：對學(xué)生基本信息的增加、修改和刪除（2）學(xué)生查詢：對學(xué)生基本信息和成績的查詢（3）學(xué)生選課：用于學(xué)生選擇課程學(xué)習(xí)（4）學(xué)生成績：對學(xué)生各科成績的添加、修改和刪除等管理（5）打?。河脕泶蛴W(xué)生的基本信息和成績2.2 需求分析概述隨著學(xué)校的普及和人們文化水平的提高，高效的教學(xué)管理系統(tǒng)越來越廣泛應(yīng) 用于各類信息化學(xué)校。學(xué)生學(xué)籍管理系統(tǒng)要求實(shí)用性強(qiáng)、使用方便、效率高和安 全可靠等特點(diǎn)。經(jīng)分析我認(rèn)為學(xué)生信息管理系統(tǒng)的具體要求為：1、能全面管理學(xué)生的各類信息，如學(xué)生信息管理，學(xué)生查詢，學(xué)生選課，學(xué)生 成績和打印等五項(xiàng)功能。2、通過使用計算機(jī)能方便的維護(hù)（包括插入、刪除、修改）各信息表3、能方便的實(shí)現(xiàn)基于多個表的連接查詢4、系統(tǒng)具有操作方便、簡捷等特點(diǎn)因而，所開發(fā)的管理系統(tǒng)正是圍繞以上幾個方面進(jìn)行的，在開發(fā)過程中充分 考慮到本系統(tǒng)的應(yīng)用特點(diǎn)，并進(jìn)行了大量的檢驗(yàn)，證明其的確達(dá)到了設(shè)計的要求。2.3 系統(tǒng)層次劃分系統(tǒng)層次劃分如圖 2.1 所示圖 2.1 系統(tǒng)層次劃分圖2.4 系統(tǒng)數(shù)據(jù)流圖數(shù)據(jù)流圖是在對系統(tǒng)分析調(diào)查的基礎(chǔ)上，以系統(tǒng)的科學(xué)性、管理的合理性 技術(shù)的可行性角度出發(fā)，將信息處理功能和彼此之間的聯(lián)系自頂向下、逐層分 解，從邏輯上精確地描述應(yīng)具有的數(shù)據(jù)加工功能、數(shù)據(jù)輸入、數(shù)據(jù)輸出、數(shù)據(jù) 存儲及數(shù)據(jù)的來源和去向。學(xué)生信息管理系統(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ù)流編號：D01數(shù)據(jù)流名稱：輸入請求 簡述：向系統(tǒng)管理人員提交輸入請求 數(shù)據(jù)流來源：查詢信息管理 數(shù)據(jù)流去向：系統(tǒng)管理人員 數(shù)據(jù)項(xiàng)組成：學(xué)生姓名+學(xué)號+請求信息數(shù)據(jù)流量：約20張/日高峰流量：約 50 張/日數(shù)據(jù)流編號：D02數(shù)據(jù)流名稱：輸出結(jié)果 簡述：向查詢信息處理輸出結(jié)果 數(shù)據(jù)流來源：系統(tǒng)管理人員 數(shù)據(jù)流去向：查詢信息處理 數(shù)據(jù)項(xiàng)組成：學(xué)生姓名+學(xué)號+查詢信息數(shù)據(jù)流量：約20張/日高峰流量：約50張/日數(shù)據(jù)流編號：D02數(shù)據(jù)流名稱：請求結(jié)果 簡述：向系統(tǒng)管理人員提交請求結(jié)果 數(shù)據(jù)流來源：添加修改信息處理模塊 數(shù)據(jù)流去向：系統(tǒng)管理人員 數(shù)據(jù)項(xiàng)組成：學(xué)生姓名+學(xué)號+請求結(jié)果數(shù)據(jù)流量：約20張/日高峰流量：約50張/日數(shù)據(jù)流編號：D04數(shù)據(jù)流名稱：正確信息 簡述：向添加修改信息處理模塊輸出正確信息 數(shù)據(jù)流來源：系統(tǒng)管理人員 數(shù)據(jù)流去向：添加修改信息處理模塊 數(shù)據(jù)項(xiàng)組成：學(xué)生姓名+學(xué)號+正確信息數(shù)據(jù)流量：約20張/日高峰流量：約50張/日數(shù)據(jù)流編號：D05數(shù)據(jù)流名稱：刪除請求 簡述：向系統(tǒng)管理人員提交信息刪除請求 數(shù)據(jù)流來源：刪除信息模塊數(shù)據(jù)流去向：系統(tǒng)管理人員 數(shù)據(jù)項(xiàng)組成：學(xué)生姓名+學(xué)號+刪除請求 數(shù)據(jù)流量：約20 張/日高峰流量：約50 張/日數(shù)據(jù)流編號：D06數(shù)據(jù)流名稱：刪除結(jié)果 簡述：向刪除信息處理模塊輸出刪除結(jié)果 數(shù)據(jù)流來源：系統(tǒng)管理人員 數(shù)據(jù)流去向：刪除信息處理模塊 數(shù)據(jù)項(xiàng)組成：學(xué)生姓名+學(xué)號+刪除結(jié)果 數(shù)據(jù)流量：約20 張/日高峰流量：約50 張/日2）處理邏輯的描述處理邏輯編號：P1 處理邏輯名稱：查詢信息處理簡述：學(xué)生對自己的基本信息和成績進(jìn)行查詢 輸入的數(shù)據(jù)流：輸出結(jié)果 處理描述：根據(jù)管理人員輸出結(jié)果使用戶可以查詢所需要的信息 輸出的數(shù)據(jù)流：輸入請求處理頻率：5 次/日處理邏輯編號：P2處理邏輯名稱：添加、修改信息處理簡述：通過請求結(jié)果對學(xué)生的基本信息和成績進(jìn)行添加、修改操作 輸入的數(shù)據(jù)流：請求結(jié)果 處理描述：完善學(xué)生的基本信息和成績的管理，使之更準(zhǔn)確有效 輸出的數(shù)據(jù)流：正確信息處理頻率：5 次/日處理邏輯編號：P3處理邏輯名稱：刪除信息處理 簡述：通過請求結(jié)果對學(xué)生的基本信息和成績刪除操作 輸入的數(shù)據(jù)流：刪除請求處理描述：對于錯誤信息或者失效信息進(jìn)行刪除操作 輸出的數(shù)據(jù)流：刪除結(jié)果處理頻率：5 次/日處理邏輯編號：P4處理邏輯名稱：選課處理簡述：學(xué)生根據(jù)自己的時間和喜好對課程進(jìn)行選擇性學(xué)習(xí) 處理描述：完成學(xué)生的課程選擇處理頻率：5 次/日處理邏輯編號：P5處理邏輯名稱：錄入學(xué)生信息 簡述：將學(xué)生的基本信息錄入該系統(tǒng) 處理描述：對學(xué)生的信息進(jìn)行錄入 處理頻率：5 次/日處理邏輯編號：P6處理邏輯名稱：錄入學(xué)生成績 簡述：將學(xué)生的考試成績錄入該系統(tǒng)處理描述：對學(xué)生的成績進(jìn)行錄入處理頻率：5次/日(3) 數(shù)據(jù)存儲的描述數(shù)據(jù)存儲編號：F1數(shù)據(jù)存儲名稱：學(xué)生信息基本表簡述：包含學(xué)生所有的基本信息數(shù)據(jù)存儲組成：學(xué)生姓名+學(xué)生學(xué)號+性別+年齡+出生年月+身份證號碼+ 籍貫+政治面貌+社會關(guān)系+家庭住址+聯(lián)系方式 關(guān)鍵字：學(xué)生學(xué)號+姓名相關(guān)處理：P2, P3, P5數(shù)據(jù)存儲編號：F2數(shù)據(jù)存儲名稱：學(xué)生成績表 簡述：學(xué)生選修所有成績的匯總表 數(shù)據(jù)存儲組成：課程號+課程名+任課教師+上課地點(diǎn)+上課周次+考試成績 關(guān)鍵字：課程號+課程名相關(guān)處理：P2, P3, P6數(shù)據(jù)存儲編號：F3數(shù)據(jù)存儲名稱：課程存儲簡述：對學(xué)生所選的課程進(jìn)行存儲數(shù)據(jù)存儲組成：學(xué)生姓名+學(xué)生學(xué)號+所選課程+課程教師+課程所在教室 關(guān)鍵字：學(xué)生學(xué)號+所選課程+課程教師+上課地點(diǎn)相關(guān)處理：P4(4) 外部實(shí)體的描述外部實(shí)體編號：S01外部實(shí)體名稱：學(xué)生簡述：是該系統(tǒng)中進(jìn)行信息和成績查詢的用戶外部實(shí)體編號：S02外部實(shí)體名稱：系統(tǒng)管理人員簡述：系統(tǒng)管理人員對學(xué)生信息進(jìn)行添加、修改和刪除操作輸出的數(shù)據(jù)流：輸出結(jié)果，正確信息，刪除結(jié)果第三章 系統(tǒng)總體設(shè)計目標(biāo)3.1 系統(tǒng)總體設(shè)計目標(biāo)隨著科學(xué)技術(shù)的不斷提高,計算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深 刻認(rèn)識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機(jī) 應(yīng)用的一部分,使用計算機(jī)對學(xué)生信息進(jìn)行管理,具有著手工管理所無法比擬的 優(yōu)點(diǎn).例如:檢索迅速、查找方便、易修改、可靠性高、存儲量大、數(shù)據(jù)處理快 捷、保密性好、壽命長、成本低、便于打印等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生 信息管理的效率,也是學(xué)生信息管理的科學(xué)化、正規(guī)化管理,與世界接軌的重要 條件。因此，開發(fā)這樣一套管理軟件成為很有必要的事情。使之減輕系統(tǒng)管理 人員的負(fù)擔(dān)，充分發(fā)揮電腦的作用。 學(xué)生信息管理系統(tǒng)是學(xué)生管理工作中不可缺少的部分 ,它的內(nèi)容對于學(xué)校和學(xué) 生來說都至關(guān)重要,所以學(xué)生信息管理系統(tǒng)應(yīng)該能夠?yàn)楣芾碚呋蚴褂谜咛峁┏?足的信息和快捷的數(shù)據(jù)處理手段。對學(xué)生信息和成績進(jìn)行錄入、查詢、修改、 增加、刪除等功能，而且可以實(shí)現(xiàn)選課功能。高效性通過系統(tǒng)的實(shí)用，能夠改 變舊的學(xué)生信息管理模式，使對學(xué)生的信息和成績進(jìn)行查詢、增加、修改和刪 除以及具備選課的功能。便于學(xué)校的管理和學(xué)生的查詢。3.2 系統(tǒng)概念設(shè)計所要實(shí)現(xiàn)的功能設(shè)計，可能建立它們之間的關(guān)系，進(jìn)而實(shí)現(xiàn)邏輯結(jié)構(gòu)功能。學(xué)生信息管理信息系統(tǒng)可以劃分的實(shí)體有：院系類別信息實(shí)體、班級信息 實(shí)體、專業(yè)信息實(shí)體、學(xué)生信息實(shí)體、教師信息實(shí)體和課程信息實(shí)體。3.2.1概念模式（E-R圖）1、E-R 圖（1）班級實(shí)體圖如圖 3.1 所示4）課程實(shí)體圖如圖3.4所示圖 3.4 課程實(shí)體圖(5) 系統(tǒng)E-R圖圖3.5所示班級1n學(xué)生mn圖3.5系統(tǒng)E-R圖2、系統(tǒng)E-R圖說明(1) 一個班級包括若干名學(xué)生(2) 一個學(xué)生可以選修多門課程，一個課程可以被多個學(xué)生選修(3) 一個教師可以講授多門課程，一門課程可以被多名教師講授3.2.2 關(guān)系模式班級(班號，班名，人數(shù))學(xué)生(學(xué)號，姓名，性別，出生年月)課程(課程號，課程名，學(xué)分，開課學(xué)期)教師(教師號，姓名，性別)選修（學(xué)號，課程號，成績）講授（教師號，課程號，上課時間，上課地點(diǎn)）3.2.3 關(guān)系模式規(guī)范化說明（1）班級表的主屬性是班號，經(jīng)分析班級模式在滿足第一范式的基礎(chǔ)上還滿足 第二范式，并且它的任何一個非主屬性都不傳遞依賴于主屬性班號，因此也滿 足第三范式。（2）學(xué)生表的主屬性是學(xué)號，經(jīng)分析學(xué)生模式在滿足第一范式的基礎(chǔ)上還滿足 第二范式，并且它的任何一個非主屬性都不傳遞依賴于主屬性學(xué)號，因此也滿 足第三范式。（3）課程表的主屬性是課程號，經(jīng)分析課程模式在滿足第一范式的基礎(chǔ)上還滿 足第二范式，并且它的任何一個非主屬性都不傳遞依賴于主屬性課程號，因此 也滿足第三范式。（4）教師表的主屬性是教師號，經(jīng)分析教師模式在滿足第一范式的基礎(chǔ)上還滿 足第二范式，并且它的任何一個非主屬性都不傳遞依賴于主屬性教師號，因此 也滿足第三范式。（5）選修表的主屬性是學(xué)號和課程號，經(jīng)分析選修模式在滿足第一范式的基礎(chǔ) 上還滿足第二范式，并且它的任何一個非主屬性都不傳遞依賴于主屬性學(xué)號和 課程號，因此也滿足第三范式。（6）講授表的主屬性是教師號和課程號，經(jīng)分析班級模式在滿足第一范式的基 礎(chǔ)上還滿足第二范式，并且它的任何一個非主屬性都不傳遞依賴于主屬性，因 此也滿足第三范式。3.2.4 系統(tǒng)數(shù)據(jù)庫表結(jié)構(gòu)1) 表 31 數(shù)據(jù)庫索引表表名中文名class班級表student學(xué)生表course課程表teacher教師表xuanxiu選修表jiangshou講授表2) 表3-2 班級表字段名字段類型長度字段值約束對應(yīng)中文名數(shù)據(jù)列舉BHVarchar10Not null班號082202HBMVarchar20Not null班名信管RSVarchar10Not null人數(shù)403)表3-3 學(xué)生表字段名字段類型長度字段值約束對應(yīng)中文名數(shù)據(jù)列舉SNVarchar20Not null學(xué)號200822040235SNAMEVarchar10Not null姓名張樂SEXVarchar4Not null性別女BIRTHVarchar10Not null出生年月1989.104)表3-4 課程表字段名字段類型長度字段值約束對應(yīng)中文名數(shù)據(jù)列舉CNVarchar20Not null課程號080021CNAMEVarchar10Not null課程名管理信息系統(tǒng)XFVarchar4Not null學(xué)分5TIMEVarchar20Not null開課學(xué)期10-11學(xué)年第一學(xué)期5)表3-5 教師表字段名字段類型長度字段值約束對應(yīng)中文名數(shù)據(jù)列舉TNVarchar20Not null教師號030010TNVarchar10Not null姓名武妍SEXVarchar10Not null性別女6) 表3-6 選修表字段名字段類型長度字段值約束對應(yīng)中文名數(shù)據(jù)列舉SNVarchar20Not null學(xué)號200822040235CNVarchar20Not null課程號080021CJVarchar10Not null成績857)表 3-7 講授表字段名字段類型長度字段值約束對應(yīng)中文名數(shù)據(jù)列舉TNVarchar20Not null教師號030010CNVarchar20Not null課程號080021SHIJIANVarchar10Not null上課時間第二節(jié)課PLACEVarchar10Not null上課地點(diǎn)18樓1階第四章數(shù)據(jù)庫系統(tǒng)實(shí)現(xiàn)4.1系統(tǒng)實(shí)現(xiàn)工具簡介SQL Server 2000 簡介：SQL Server是一個關(guān)系數(shù)據(jù)庫管理系統(tǒng)，它最初是由Microsoft Sybase和 Ashton-Tate三家公司共同開發(fā)的于1988年推出了第一個OS/2版本在 Windows NT推出后Microsoft與Sybase在SQL Server的開發(fā)上就分道揚(yáng)鑣 了 Microsoft將SQL Server移植到Windows NT。系統(tǒng)上專注于開發(fā)推廣SQL Server的Windows NT版本Sybase則較專注于SQL Server在UNIX操作系統(tǒng) 上的應(yīng)用。SQL Server 2000是Microsoft公司推出的SQL Server數(shù)據(jù)庫管理系統(tǒng) 的最新版本，該版本繼承了 SQL Server 7.0版本的優(yōu)點(diǎn)，同時又比它增加了 許多更先進(jìn)的功能，具有使用方便、可伸縮性、與相關(guān)軟件集成程度高等優(yōu)點(diǎn)， 可跨越從運(yùn)行Microsoft Windows 98的膝上型電腦到運(yùn)行Microsoft Windows 2000的大型多處理器的服務(wù)器等多種平臺使用。4.2學(xué)生信息管理系統(tǒng)數(shù)據(jù)庫實(shí)現(xiàn)1.用SQL語言分別建立班級表、學(xué)生、課程、教師表。代碼如下：(1)班級表CREATE Table 班級表(班號 varchar(10)not null primary key(班號)，班名 varchar(20),人數(shù) varchar(10),)希表“班級表円中的數(shù)據(jù).誼置是“學(xué)生營息管理"中、"(local)"上班號班名人數(shù)8Z2024008230140$8240240|*(2)學(xué)生表CREATE Table 學(xué)生表學(xué)號 varchar(20) not null primary key(學(xué)號),姓名 varchar(lO) not null,性別 varchar(4),出生年月 varchar(10), )侖表“學(xué)生表“中的隸據(jù)，住置是“學(xué)生常息管理"中、"(local)"上學(xué)號姓名性別出生年月_ 200822040235張一樂1989.051989. 1Z200822040222桑夢媛2 200822040238越睫旨(3)課程CREATE Table 課程表(課程號 varchar(20) not null primary key(課程號),課程名 varchar(10),學(xué)分 varchar(4)開課學(xué)期varchar(20),)侖表“課程表"中內(nèi)數(shù)據(jù)，應(yīng)置是"學(xué)生信息管理”中、"(local) - ±凜翟號課程茗開諒學(xué)癡080021管理信息4第二學(xué)期LI8LILI22經(jīng)濟(jì)學(xué)4第一學(xué)期$080023運(yùn)籌學(xué)3第二學(xué)期(4)教師表CREATE Table 教師表(教師號 varchar(20) not null primary key(教師號), 姓名 varchar(10),性別 varchar(lO),)濡表。報師表1中的數(shù)據(jù)，位置是“學(xué)生惜息管理"中、-(local)- ±教師號姓名性別030010030011李小波.030012女12、原代碼設(shè)計(1) 登陸界面源代碼Option ExplicitDim stuflag As Boolean '標(biāo)記用戶是否為學(xué)生Public LoginSucceeded As BooleanPrivate Sub cmdCancel_Click()'設(shè)置全局變量為false'不提示失敗的登錄LoginSucceeded = FalseMe.HideEnd SubPrivate Sub cmdOK_Click()'檢查正確的密碼Dim num1 As IntegerDim num2 As IntegerIf Len(txtUserName.Text) > 0 And Len(txtPassword) > 0 And stuflag = False Then '管理人員Adodc1.Item(0).CommandType = adCmdTextAdodc1.Item(0).RecordSource = "select * from wjuser where uname='" & Trim(txtUserName.Text) & "'And upasw='" & Trim(txtPassword.Text) & "'"Adodc1.Item(0).Refreshnum1 = Adodc1.Item(0).Recordset.RecordCountElse'學(xué)生Adodc1.Item(1).CommandType = adCmdTextAdodc1.Item(1).RecordSource = "select sname spasw from wjstudent where sname= '" & Trim(txtUserName.Text) & "'And spasw" & Trim(txtPassword.Text) & "'"Adodc1.Item(1).Refreshnum2 = Adodcl.Item(l).Recordset.RecordCount End IfIf numl <= 0 And num2 <= 0 ThenMsgBox "無效的密碼，請重試!",，"登錄"txtPassword.SetFocusSendKeys "Home+End"ElseLoginSucceeded = TrueMe.HideMDIForm1.ShowEnd IfEnd SubPrivate Sub Option1_Click(Index As Integer)If Index = 0 ThenIf stuflag = False Then stuflag = TrueEnd IfElseIf stuflag = True Then stuflag = FalseEnd IfEnd IfEnd Sub圖5.1系統(tǒng)登陸界面(2) 添加用戶界面源代碼Private Sub Command1_Click()'添加用戶Adodd.Recordset.AddNewEnd SubPrivate Sub Command2_Click()'更新Adodc1.Recordset.Fields("uname") = Trim(Text1.Text)Adodc1.Recordset.Fields("upasw") = Trim(Text2.Text)Adodcl.Recordset.UpdateMsgBox "添加成功!",，"提示"End Sub忝加成功!i圖5.2用戶添加界面(3) 用戶密碼修改界面源代碼Private Sub Command1_Click()Command2.Enabled = False '使取消按鈕不可用If Len(Text4.Text) <> 0 Then查看輸入用戶是否存在Adodcl.CommandType = adCmdTextAdodcl.RecordSource = "select * from wjuser where uname='" Trim(Textl.Text) & "'"Adodcl.RefreshIf Adodcl.Recordset.RecordCount <= 0 ThenMsgBox "沒有該用戶!，請重新輸入",，"提示"ElseIf Len(Textl.Text) <> 0 Then查看舊密碼是否正確Adodcl.CommandType = adCmdTextAdodcl.RecordSource = "select * from wjuser where upasw='" Trim(Text4.Text) & "'"Adodcl.RefreshIf Adodcl.Recordset.RecordCount <= 0 ThenMsgBox "密碼不正確，請重新輸入!",，"提示"ElseIf Len(Text2.Text) <> 0 Then '確認(rèn)密碼并修改If Len(Text3.Text) <> 0 ThenIf Text2.Text <> Text3.Text ThenMsgBox "您的輸入不一致，請重新確認(rèn)!"，"提示"ElseAdodcl.Recordset.Fields("upasw")Trim(Text3.Text)Adodcl.Recordset.Update MsgBox "修改成功",，"提示"End IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()'取消Command1.Enabled = False'使修改按鈕不可用Adodc1.Recordset.CancelUpdateEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub設(shè)有謬用尸!請重新輸入圖5.3密碼修改界面(4) 學(xué)生密碼修改界面源代碼Private Sub Command1_Click()'修改Command2.Enabled = False '使取消按鈕不可用If Len(Text4.Text) <> 0 Then查看輸入學(xué)號是否存在Adodcl.CommandType = adCmdTextAdodcl.RecordSource = "select * from wjstudent where sno='" &Trim(Text4.Text) & "'"Adodc1.RefreshIf Adodc1.Recordset.RecordCount <= 0 ThenMsgBox "沒有該學(xué)號!,請重新輸入", , "提示"ElseIf Len(Text1.Text) <> 0 Then '查看舊密碼是否正確 Adodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from wjstudent where spasw='" & Trim(Text1.Text) & "'"Adodc1.RefreshIf Adodc1.Recordset.RecordCount <= 0 Then MsgBox "密碼不正確,請重新輸入!", , "提示"ElseIf Len(Text2.Text) <> 0 Then '確認(rèn)密碼并修改If Len(Text3.Text) <> 0 ThenIf Text2.Text <> Text3.Text ThenMsgBox "您的輸入不一致,請重新確認(rèn)!", , "提示" ElseAdodc1.Recordset.Fields("spasw")Trim(Text3.Text)Adodc1.Recordset.UpdateMsgBox "修改成功", , "提示"End IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click() '取消Adodc1.Recordset.CancelUpdateCommand1.Enabled = False'使修改按鈕不可用End SubPrivate Sub Command3_Click() '退出Unload MeEnd Sub密碼不正確，諸重新輸入!W：J圖5.4學(xué)生密碼修改界面(5)信息查詢源代碼Dim nameflag As Boolean '標(biāo)記是否按姓名查詢Private Sub Commandl_Click()'個人信息查詢Dim searchSQL As StringAdodd.CommandType = adCmdTextIf nameflag = False ThensearchSQL = "select * from wjstudent where sno ='" & Trim(Text1.Text) & "'"'按學(xué)號查詢ElsesearchSQL = "select *from wjstudent where sname ='" & Trim(Text1.Text) & "'"'按姓名查詢End IfAdodd.RecordSource = searchSQLAdodd.RefreshIf Adodd.Recordset.RecordCount <= 0 ThenMsgBox "不存在此紀(jì)錄!請重新輸入",，"警告"End IfEnd SubPrivate Sub Command2_Click()'退出查詢信息窗體Unload MeEnd SubPrivate Sub Option1_Click(Index As Integer)'選擇查詢標(biāo)準(zhǔn)nameflag = FalseIf Index = 0 ThenIf nameflag = True Thennameflag = FalseEnd IfEnd IfIf Index = 1 ThenIf nameflag = False Then nameflag = TrueEnd IfEnd IfEnd Sub圖5.5信息查詢界面(6)成績查詢源代碼Private Sub Commandl_Click()Dim str As StringAdodd.CommandType = adCmdTextAdodc1.RecordSource = "select * from wjsc where sno ='" & Trim(Text1.Text)& "'and psenior='" & Trim(Combo1.Text) & "'"'按學(xué)號查詢 Adodd.RefreshIf Adodd.Recordset.RecordCount <= 0 ThenMsgBox "不存在此紀(jì)錄!請重新輸入",，"警告"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub圖5.6成績查詢界面結(jié)束語通過這次的實(shí)驗(yàn)，我對數(shù)據(jù)庫在生活中的廣泛應(yīng)用有了更深的體會，同時 也加深了對 SQL2000 的認(rèn)識，了解了相關(guān)的 VB 知識，尤其對數(shù)據(jù)庫與開發(fā)程序 的鏈接有了進(jìn)一步的認(rèn)識。這次課程設(shè)計我最大的收獲并不是對書本知識的鞏 固，而是通過實(shí)驗(yàn)我的自學(xué)能力得到了很好的鍛煉，實(shí)踐能力也提高了不少。 只憑上課對這門學(xué)科的學(xué)習(xí)還是不夠的，在設(shè)計的開始階段進(jìn)展很慢。但是通 過網(wǎng)上查資料，與同學(xué)討論，互相學(xué)習(xí)漸漸的把理論知識與實(shí)踐相結(jié)合。后來 的設(shè)計也就沒有那么摸不著門路了。當(dāng)然，在這次課程設(shè)計中我還有很多沒有解決的問題：不會使用存儲過程 返回結(jié)果給變量；也沒能掌握兩個表以上的查詢功能，只能基于單表的查詢， 添加，刪除等，以至功能不是很完善。對于這一點(diǎn)我有很大的遺憾，如果可以 實(shí)現(xiàn)的話，相信我可以實(shí)現(xiàn)更加完善的功能。如實(shí)現(xiàn)對班級專業(yè)的成績統(tǒng)計， 實(shí)現(xiàn)靈活的成績查詢等等?？偨Y(jié)以上，這次課程設(shè)計，我收獲很多。不管怎樣，今后我會更加努力學(xué) 習(xí)這門課程，不斷提高自己。參考文獻(xiàn)1 陶宏才.數(shù)據(jù)庫原理及設(shè)計.清華大學(xué)出版社.2002年2 范立南. SQL Server 2000 實(shí)用教程.清華大學(xué)出版社.1999年3 李香敏. SQL Server 2000 編程員指南.北京希望電子出版社.2000年4 黃梯云.管理信息系統(tǒng).高等教育出版社.2009年5 王珊，薩師煊.數(shù)據(jù)庫系統(tǒng)概論.高等教育出版社.2006年