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

1、精選優(yōu)質(zhì)文檔-傾情為你奉上目錄專心-專注-專業(yè) 第一章 系統(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)計(jì)和快速的查詢，從而減少管理方面的工作量。另一方面，IT產(chǎn)業(yè)和Internet獲得了飛速發(fā)展，計(jì)算機(jī)應(yīng)用已滲透到了各個領(lǐng)域，引起信息管理的革命，

2、實(shí)現(xiàn)了信息的自動化處理，提高了處理的及時性和正確性。提高學(xué)生信息管理的工作效率，作到信息的規(guī)范管理，科學(xué)統(tǒng)計(jì)和快速查詢，讓該系統(tǒng)更好的為學(xué)校，社會服務(wù)。1.2系統(tǒng)開發(fā)的意義學(xué)生信息管理作為計(jì)算機(jī)應(yīng)用的一個分支，有著手工管理無法比擬的優(yōu)點(diǎn)，如檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生信息管理的效率。因此，開發(fā)一套能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄蔚膶W(xué)生信息管理系統(tǒng)，將是非常必要的，也是十分及時的。通過對管理系統(tǒng)模型的研究，提出一套構(gòu)造學(xué)生信息管理系統(tǒng)模塊的方法，并利用數(shù)據(jù)庫，信息系統(tǒng)分析學(xué)的知識，結(jié)合其它學(xué)校管理業(yè)務(wù)知識，建立起相關(guān)數(shù)據(jù)模

3、型，利用面向?qū)ο箝_發(fā)工具對其進(jìn)行設(shè)計(jì)與開發(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)、使用方便、效率高和安全可

4、靠等特點(diǎn)。經(jīng)分析我認(rèn)為學(xué)生信息管理系統(tǒng)的具體要求為：1、能全面管理學(xué)生的各類信息，如學(xué)生信息管理，學(xué)生查詢，學(xué)生選課，學(xué)生成績和打印等五項(xiàng)功能。2、通過使用計(jì)算機(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è)計(jì)的要求。2.3 系統(tǒng)層次劃分系統(tǒng)層次劃分如圖2.1所示基本信息增加成績查詢基本信息管理打印學(xué)生成績管理學(xué)生選課學(xué)生查詢基本信息刪除成績刪除成績修改成績添加基本信息查詢基本信息修改學(xué)生信息管理系統(tǒng)

5、圖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所示： P1F2 P6查詢信息 處理錄入學(xué)生成績 學(xué)生成績表學(xué)生 S-01 輸入 輸出 P2系統(tǒng)管理人員 請求 結(jié)果 正確信息 添加修改信息處理 P4 選課 請求 S-02 選課處理 P5 刪 刪 請求結(jié)果錄入學(xué)生信息 除 除 F3 請 結(jié)

6、F1 P3課程存儲 求 果 學(xué)生信息基本表刪除信息處理 圖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)管

7、理人員提交請求結(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張/日 高峰流量：

8、約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ù)流

9、：請求結(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

10、次/日 處理邏輯編號：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，

11、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è)計(jì)目標(biāo)3.1 系統(tǒng)總體設(shè)計(jì)目標(biāo) 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人

12、類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(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é)

13、生信息和成績進(jìn)行錄入、查詢、修改、增加、刪除等功能，而且可以實(shí)現(xiàn)選課功能。高效性通過系統(tǒng)的實(shí)用，能夠改變舊的學(xué)生信息管理模式，使對學(xué)生的信息和成績進(jìn)行查詢、增加、修改和刪除以及具備選課的功能。便于學(xué)校的管理和學(xué)生的查詢。3.2 系統(tǒng)概念設(shè)計(jì)所要實(shí)現(xiàn)的功能設(shè)計(jì)，可能建立它們之間的關(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所示 班級人數(shù)班號班名 圖 3.1 班級實(shí)體圖（2）教師實(shí)體圖如圖3.2所示 教師姓名性別教師號

14、 圖 3.2 教師實(shí)體圖 （3）學(xué)生實(shí)體圖如圖3.3所示 姓名學(xué)號 出生年月性別 學(xué)生 圖 3.3 學(xué)生實(shí)體圖（4）課程實(shí)體圖如圖3.4所示課程名課程號 課程開課學(xué)期學(xué)分 圖 3.4 課程實(shí)體圖（5） 系統(tǒng)E-R圖圖3.5所示 班級 1 R1 n 學(xué)生 m 成績 選修 n 教師 講授 課程 m n 上課時間上課地點(diǎn) 圖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é)號，姓名，性別，出生年月）課程（課程號，課程名

15、，學(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ǔ)上還滿足第二范式，并且它的任何一個非主屬性都不傳遞依賴于主屬性課程號，因此也滿足第三范式

16、。（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é)生表

17、 course 課程表 teacher 教師表 xuanxiu 選修表 jiangshou 講授表 （2） 表3-2 班級表字段名字段類型 長度字段值約束對應(yīng)中文名 數(shù)據(jù)列舉 BHVarchar10Not null 班號H BMVarchar20Not null 班名信管 RSVarchar10Not null 人數(shù)40 （3） 表3-3 學(xué)生表 字段名字段類型 長度字段值約束對應(yīng)中文名 數(shù)據(jù)列舉 SNVarchar20Not null 學(xué)號5 SNAMEVarchar10Not null 姓名張一樂 SEXVarchar4Not null 性別女 BIRTHVarchar10Not null

18、 出生年月1989.10（4） 表3-4 課程表字段名字段類型 長度字段值約束對應(yīng)中文名 數(shù)據(jù)列舉 CNVarchar20Not null 課程號 CNAMEVarchar10Not null 課程名管理信息系統(tǒng) XFVarchar4Not null 學(xué)分5 TIMEVarchar20Not null 開課學(xué)期10-11學(xué)年第二學(xué)期（5） 表3-5 教師表字段名字段類型 長度字段值約束對應(yīng)中文名 數(shù)據(jù)列舉 TNVarchar20Not null 教師號 TNVarchar10Not null 姓名武妍 SEXVarchar10Not null 性別女 （6） 表3-6 選修表 字段名字段類型

19、長度字段值約束對應(yīng)中文名 數(shù)據(jù)列舉 SNVarchar20Not null 學(xué)號5 CNVarchar20Not null 課程號 CJVarchar10Not null 成績85 （7） 表 3-7 講授表 字段名字段類型 長度字段值約束對應(yīng)中文名 數(shù)據(jù)列舉 TNVarchar 20Not null 教師號 CNVarchar 20Not null 課程號SHIJIANVarchar 10Not null 上課時間第二節(jié)課PLACEVarchar 10Not null 上課地點(diǎn)18樓1階 第四章 數(shù)據(jù)庫系統(tǒng)實(shí)現(xiàn)4.1系統(tǒng)實(shí)現(xiàn)工具簡介 SQL Server 2000簡介：SQL Server

20、是一個關(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)的最新版本，該版本繼承

21、了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),) （2）學(xué)生表CREATE Tab

22、le 學(xué)生表(學(xué)號 varchar(20) not null primary key(學(xué)號),姓名 varchar(10) not null,性別 varchar(4),出生年月 varchar(10),)（3）課程表CREATE Table 課程表(課程號 varchar(20) not null primary key(課程號),課程名 varchar(10),學(xué)分 varchar(4)開課學(xué)期 varchar(20),)（4）教師表CREATE Table 教師表(教師號 varchar(20) not null primary key(教師號),姓名 varchar(10),性別 va

23、rchar(10),)2、 原代碼設(shè)計(jì)（1）登陸界面源代碼Option ExplicitDim stuflag As Boolean '標(biāo)記用戶是否為學(xué)生Public LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() '設(shè)置全局變量為 false '不提示失敗的登錄 LoginSucceeded = False Me.HideEnd SubPrivate Sub cmdOK_Click() '檢查正確的密碼 Dim num1 As Integer Dim num2 As Integer If Len(t

24、xtUserName.Text) > 0 And Len(txtPassword) > 0 And stuflag = False Then '管理人員 Adodc1.Item(0).CommandType = adCmdText Adodc1.Item(0).RecordSource = "select * from wjuser where uname='" & Trim(txtUserName.Text) & "'And upasw='" & Trim(txtPassword.Te

25、xt) & "'" Adodc1.Item(0).Refresh num1 = Adodc1.Item(0).Recordset.RecordCount Else '學(xué)生 Adodc1.Item(1).CommandType = adCmdText Adodc1.Item(1).RecordSource = "select sname spasw from wjstudent where sname= '" & Trim(txtUserName.Text) & "'And spasw=&#

26、39;" & Trim(txtPassword.Text) & "'" Adodc1.Item(1).Refresh num2 = Adodc1.Item(1).Recordset.RecordCount End If If num1 <= 0 And num2 <= 0 Then MsgBox "無效的密碼，請重試!", , "登錄" txtPassword.SetFocus SendKeys "Home+End" Else LoginSucceeded = True

27、 Me.Hide MDIForm1.Show End IfEnd SubPrivate Sub Option1_Click(Index As Integer)If Index = 0 Then If stuflag = False Then stuflag = True End IfElse If stuflag = True Then stuflag = False End IfEnd IfEnd Sub 圖5.1 系統(tǒng)登陸界面(2)添加用戶界面源代碼Private Sub Command1_Click() '添加用戶Adodc1.Recordset.AddNewEnd SubPri

28、vate Sub Command2_Click() '更新Adodc1.Recordset.Fields("uname") = Trim(Text1.Text)Adodc1.Recordset.Fields("upasw") = Trim(Text2.Text)Adodc1.Recordset.UpdateMsgBox "添加成功!", , "提示"End Sub 圖5.2 用戶添加界面(3)用戶密碼修改界面源代碼Private Sub Command1_Click()Command2.Enabled =

29、False '使取消按鈕不可用If Len(Text4.Text) <> 0 Then '查看輸入用戶是否存在 Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select * from wjuser where uname='" & Trim(Text1.Text) & "'" Adodc1.Refresh If Adodc1.Recordset.RecordCount <= 0 Then MsgBox "沒有該用戶!

30、,請重新輸入", , "提示" Else If Len(Text1.Text) <> 0 Then '查看舊密碼是否正確 Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select * from wjuser where upasw='" & Trim(Text4.Text) & "'" Adodc1.Refresh If Adodc1.Recordset.RecordCount <= 0 Then Msg

31、Box "密碼不正確,請重新輸入!", , "提示" Else If Len(Text2.Text) <> 0 Then '確認(rèn)密碼并修改 If Len(Text3.Text) <> 0 Then If Text2.Text <> Text3.Text Then MsgBox "您的輸入不一致,請重新確認(rèn)!", , "提示" Else Adodc1.Recordset.Fields("upasw") = Trim(Text3.Text) Adodc1.

32、Recordset.Update MsgBox "修改成功", , "提示" End If End If End If End If End If End IfEnd IfEnd SubPrivate Sub Command2_Click() '取消Command1.Enabled = False '使修改按鈕不可用Adodc1.Recordset.CancelUpdateEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub 圖5.3 密碼修改界面(4)學(xué)生密碼修改界面源代碼Private

33、 Sub Command1_Click() '修改Command2.Enabled = False '使取消按鈕不可用If Len(Text4.Text) <> 0 Then '查看輸入學(xué)號是否存在 Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select * from wjstudent where sno='" & Trim(Text4.Text) & "'" Adodc1.Refresh If Adodc1.Recor

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

35、esh If Adodc1.Recordset.RecordCount <= 0 Then MsgBox "密碼不正確,請重新輸入!", , "提示" Else If Len(Text2.Text) <> 0 Then '確認(rèn)密碼并修改 If Len(Text3.Text) <> 0 Then If Text2.Text <> Text3.Text Then MsgBox "您的輸入不一致,請重新確認(rèn)!", , "提示" Else Adodc1.Recordset.

36、Fields("spasw") = Trim(Text3.Text) Adodc1.Recordset.Update MsgBox "修改成功", , "提示" End If End If End If End If End If End IfEnd IfEnd SubPrivate Sub Command2_Click() '取消Adodc1.Recordset.CancelUpdateCommand1.Enabled = False '使修改按鈕不可用End SubPrivate Sub Command3_Clic

37、k() '退出Unload MeEnd Sub 圖5.4 學(xué)生密碼修改界面(5)信息查詢源代碼Dim nameflag As Boolean '標(biāo)記是否按姓名查詢Private Sub Command1_Click() '個人信息查詢Dim searchSQL As StringAdodc1.CommandType = adCmdTextIf nameflag = False Then searchSQL = "select * from wjstudent where sno ='" & Trim(Text1.Text) &

38、 "'" '按學(xué)號查詢Else searchSQL = "select *from wjstudent where sname ='" & Trim(Text1.Text) & "'" '按姓名查詢End IfAdodc1.RecordSource = searchSQLAdodc1.RefreshIf Adodc1.Recordset.RecordCount <= 0 Then MsgBox "不存在此紀(jì)錄!請重新輸入", , "警告"End IfEnd SubPrivate Sub Command2_Click() '退出查詢信息窗體Unload MeEnd SubPri