數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告學(xué)籍管理系統(tǒng)

1、目 錄1項(xiàng)目計(jì)劃- 1 -1.1系統(tǒng)開(kāi)發(fā)目的- 1 -1.2背景說(shuō)明- 1 -1.3項(xiàng)目確立- 1 -1.4應(yīng)用范圍- 2 -1.5參考資料- 2 -2邏輯分析與詳細(xì)分析- 2 -2.1系統(tǒng)功能- 2 -2.2流程圖- 5 -2.3用戶類型與職能- 6 -2.4統(tǒng)開(kāi)發(fā)步驟- 7 -2.5系統(tǒng)環(huán)境需求- 7 -2.6系統(tǒng)安全問(wèn)題- 7 -3學(xué)生信息管理系統(tǒng)概念設(shè)計(jì)文檔- 7 -3.1系統(tǒng)ER圖- 8 -4邏輯設(shè)計(jì)文檔- 8 -4.1系統(tǒng)關(guān)系模型- 8 -4.2系統(tǒng)數(shù)據(jù)庫(kù)表結(jié)構(gòu)- 9 -5物理設(shè)計(jì)文檔- 12 -6操作界面截圖- 17 -7主要代碼- 26 -7.1數(shù)據(jù)庫(kù)連接代碼- 26 -7.2

2、數(shù)據(jù)庫(kù)斷開(kāi)代碼- 28 -7.3照片管理模塊代碼- 28 -顯示圖象函數(shù)代碼- 28 -保存圖象函數(shù)代碼- 30 -8小結(jié)- 31 -1 項(xiàng)目計(jì)劃1.1 系統(tǒng)開(kāi)發(fā)目的（1）利用本系統(tǒng)實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化，規(guī)范化和自動(dòng)化；（2）提高學(xué)生管理工作的效率，減少管理方面的工作量；1.2 背景說(shuō)明隨著人類社會(huì)進(jìn)入信息時(shí)代,計(jì)算機(jī)越來(lái)越多地活躍在社會(huì)各個(gè)領(lǐng)域:管理,網(wǎng)絡(luò),計(jì)算,控制,多媒體等.并且在某些方面成為不可缺少的工具,尤其在管理方面,管理軟件的出現(xiàn)使大量繁瑣復(fù)雜的問(wèn)題變得簡(jiǎn)單易行. 現(xiàn)今學(xué)校的規(guī)模不斷擴(kuò)大,學(xué)生數(shù)量急劇增加,有關(guān)學(xué)生的各種信息量也成倍增長(zhǎng).面對(duì)龐大的信息量,需要有學(xué)生信息管理系

3、統(tǒng)來(lái)提高學(xué)生管理工作的效率.通過(guò)這樣的系統(tǒng),可以做到信息的規(guī)范管理,科學(xué)統(tǒng)計(jì)和快速的查詢,從而減少管理方面的工作量. 1.3 項(xiàng)目確立針對(duì)現(xiàn)今學(xué)校管理學(xué)生信息的特點(diǎn)，我們小組經(jīng)過(guò)研究，決定開(kāi)發(fā)一項(xiàng)學(xué)生信息管理系統(tǒng)。該學(xué)生信息管理系統(tǒng)用Visual Basic來(lái)設(shè)計(jì)界面,以SQL Server為后臺(tái)數(shù)據(jù)庫(kù),采用面向?qū)ο蟮恼Z(yǔ)言編程,實(shí)現(xiàn)對(duì)學(xué)生信息的基本管理。本系統(tǒng)主要包括院系信息的管理功能，學(xué)生基本信息管理功能，學(xué)生照片管理功能，學(xué)生主要教育經(jīng)歷信息管理功能，學(xué)生獎(jiǎng)罰管理功能，學(xué)生學(xué)籍變動(dòng)管理功能，課程設(shè)置管理功能，學(xué)生成績(jī)管理功能，系統(tǒng)用戶管理功能，系統(tǒng)日志管理功能和用戶操作權(quán)限控制功能等，其中

4、每項(xiàng)信息管理功能模塊都包括對(duì)信息的錄入，修改，刪除和查詢。該系統(tǒng)充分考慮用戶的操作簡(jiǎn)便性,實(shí)現(xiàn)快捷操作. 為了安全考慮,我還在進(jìn)入系統(tǒng)之前加上了登錄模塊。其中學(xué)生照片管理是本系統(tǒng)中較有特色的部分。1.4 應(yīng)用范圍本系統(tǒng)具有很強(qiáng)的實(shí)用性，各大，中，小學(xué)校可以根據(jù)自身情況稍加修及可應(yīng)用與本校的學(xué)生信息管理中。1.5 參考資料數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)與實(shí)例 李曉黎、張巍編 人民郵電出版社Visual Basic信息系統(tǒng)開(kāi)發(fā)實(shí)例精選 賽奎春編 機(jī)械工業(yè)出版社Visual Basic程序設(shè)計(jì)教程 劉炳文編 清華大學(xué)出版社數(shù)據(jù)庫(kù)應(yīng)用實(shí)例完全解析王穎、李明業(yè)編 人民郵電出版社Visual Basic 6.0程序設(shè)

5、計(jì)劉新民,蔡瓊,白康生編清華大學(xué)出版社2004 Visual Basic數(shù)據(jù)庫(kù)開(kāi)發(fā)入門(mén)與范例解析郭勝,夏邦貴編 機(jī)械工業(yè)出版社2004.1 Visual Basic實(shí)例教程王彬華,李建華編 電子科技大學(xué)出版社2004.4 Visual Basic數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航(第二版)劉韜,駱娟,何旭洪編人民郵電出版社2003.8 Visual Basic數(shù)據(jù)庫(kù)開(kāi)發(fā)自學(xué)教程孫越編人民郵電出版社2003.7 2 邏輯分析與詳細(xì)分析2.1 系統(tǒng)功能該學(xué)生信息管理系統(tǒng)用Visual Basic來(lái)設(shè)計(jì)界面,以SQL Server為后臺(tái)數(shù)據(jù)庫(kù),采用面向?qū)ο蟮恼Z(yǔ)言編程,實(shí)現(xiàn)對(duì)學(xué)生信息的基本管理。本系統(tǒng)的主要 任務(wù)

6、是實(shí)現(xiàn)對(duì)學(xué)校各院系和所有學(xué)生的系統(tǒng)管理，功能主要如下：1.院系信息管理功能： 院系信息的錄入，包括院系編號(hào)，院系名稱，院系職能描述和上級(jí)院系等信息；院系信息的修改；院系信息的刪除；院系信息的查詢2.學(xué)生基本信息管理功能：學(xué)生基本信息的錄入，包括院系編號(hào)，姓名，性別，生日，所在院系等信息；學(xué)生基本信息的修改；學(xué)生基本信息的刪除；學(xué)生基本信息的查詢3.學(xué)生照片管理功能（照片的存儲(chǔ)和管理與其他基本信息不同）學(xué)生照片的錄入，將指定的圖象文本存儲(chǔ)到數(shù)據(jù)庫(kù)中；學(xué)生照片的修改；學(xué)生照片的刪除；學(xué)生照片的顯示4學(xué)生主要教育經(jīng)理信息管理功能學(xué)生主要教育經(jīng)歷信息的錄入，包括開(kāi)始日期，截至日期，所在學(xué)校，職務(wù)等信息

7、；學(xué)生主要教育經(jīng)歷信息的修改；學(xué)生主要教育經(jīng)歷信息的刪除；學(xué)生主要教育經(jīng)歷信息的查詢5學(xué)生獎(jiǎng)罰管理功能學(xué)生獎(jiǎng)罰信息的錄入，包括獎(jiǎng)罰日期，獎(jiǎng)罰內(nèi)容等信息；學(xué)生獎(jiǎng)罰信息的修改；學(xué)生獎(jiǎng)罰信息的刪除；學(xué)生獎(jiǎng)罰信息的查詢6學(xué)生學(xué)籍變動(dòng)管理功能學(xué)生學(xué)籍信息的錄入；學(xué)生學(xué)籍信息的修改；學(xué)生學(xué)籍信息的刪除；學(xué)生學(xué)籍信息的查詢7課程設(shè)置管理功能課程設(shè)置信息的錄入，包括課程編號(hào)，課程名稱，課程內(nèi)容等信息；課程設(shè)置信息的修改；課程信息的刪除；課程信息的查詢8學(xué)生成績(jī)管理功能學(xué)生成績(jī)信息的錄入，包括課程編號(hào)，學(xué)生編號(hào)，分?jǐn)?shù)等信息；學(xué)生成績(jī)信息的修改；學(xué)生成績(jī)信息的刪除；學(xué)生成績(jī)信息的查詢9系統(tǒng)用戶管理功能系統(tǒng)用戶信息

8、的錄入，包括用戶名，密碼等信息；系統(tǒng)用戶信息的修改；系統(tǒng)用戶信息的刪除；系統(tǒng)用戶信息的查詢10用戶權(quán)限管理功能用戶權(quán)限信息的查詢；用戶權(quán)限信息的修改（只有系統(tǒng)管理員才擁有此權(quán)限）11系統(tǒng)日志管理功能系統(tǒng)日志信息的查詢，包括（全部信息，院系管理信息，學(xué)生管理信息，獎(jiǎng)罰信息，學(xué)籍管理信息，成績(jī)信息，用戶管理信息）；系統(tǒng)日志信息的刪除（包括單個(gè)刪除，全部刪除等） (3) 系統(tǒng)結(jié)構(gòu)圖2-1系統(tǒng)總體結(jié)構(gòu)圖2-2基本信息子模塊系統(tǒng)結(jié)構(gòu)功能描述：此為基本信息管理功能模塊，包括院系信息管理和學(xué)生信息管理等模塊。此模塊是整個(gè)系統(tǒng)的核心，其他各個(gè)模塊都針對(duì)每個(gè)學(xué)生的一個(gè)方面進(jìn)行管理，都需要提供學(xué)生編號(hào)等基本信息作

9、為索引。圖2-3學(xué)籍及考核管理子模塊系統(tǒng)結(jié)構(gòu)功能描述：此為學(xué)籍及考核管理功能集合，包括學(xué)籍管理、獎(jiǎng)懲管理和成績(jī)管理模塊。圖2-4用戶管理及權(quán)限控制子模塊系統(tǒng)結(jié)構(gòu)功能描述：此為用戶管理及權(quán)限控制功能集合，包括用戶信息管理、權(quán)限控制等模塊。權(quán)限控制雖不是一個(gè)獨(dú)立存在的模塊，但是它卻貫穿在整個(gè)系統(tǒng)的運(yùn)行過(guò)程中。2.2 流程圖本系統(tǒng)的流程分析如下：2.3 用戶類型與職能（1）、管理員(Admin)：自身信息的修改添加普通用戶編輯普通用戶的信息管理普通用戶的權(quán)限系統(tǒng)各模塊信息的錄入，修改，刪除，查詢（2）、普通用戶：自身信息的修改根據(jù)系統(tǒng)管理員賦予的權(quán)限進(jìn)行模塊信息的錄入，修改，刪除和查詢2.4 統(tǒng)開(kāi)發(fā)

10、步驟² 確定開(kāi)發(fā)系統(tǒng)的功能并進(jìn)行開(kāi)發(fā)分工² 創(chuàng)建數(shù)據(jù)庫(kù)，設(shè)計(jì)數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)，創(chuàng)建表的腳本文件² 利用Visual Basic創(chuàng)建工程，添加模塊和類模塊² 系統(tǒng)主頁(yè)面設(shè)計(jì)并在其中添加代碼² 登陸模塊設(shè)計(jì)，在登陸窗體中添加代碼² 工程中的各個(gè)管理模塊的設(shè)計(jì)² 進(jìn)行測(cè)試，檢驗(yàn)體統(tǒng)2.5 系統(tǒng)環(huán)境需求² 系統(tǒng)模式本系統(tǒng)采用C/S模式作為開(kāi)發(fā)模式。² 硬件環(huán)境高性能計(jì)算機(jī)一臺(tái)，內(nèi)存512M，硬盤(pán)80G² 軟件環(huán)境SQL Server 2000Visual Basic 6.02.6 系統(tǒng)安全問(wèn)題本學(xué)生信息管

11、理系統(tǒng)采用不同用戶模式登陸的方式，有效的實(shí)現(xiàn)了系統(tǒng)安全問(wèn)題。當(dāng)用戶登陸時(shí)，如果用戶名或密碼輸入錯(cuò)誤的次數(shù)超過(guò)三次，系統(tǒng)將自動(dòng)退出。進(jìn)入系統(tǒng)后，普通用戶將會(huì)受到一些訪問(wèn)權(quán)限的控制。這些訪問(wèn)權(quán)限是通過(guò)系統(tǒng)管理員進(jìn)行分配的。系統(tǒng)管理員可以根據(jù)不同用戶的需要或其他一些情況進(jìn)行權(quán)限的分配，使不同的用戶進(jìn)行不同的操作。3 學(xué)生信息管理系統(tǒng)概念設(shè)計(jì)文檔3.1 系統(tǒng)ER圖系統(tǒng)ER圖說(shuō)明² 一個(gè)院系中可以有多個(gè)學(xué)生，但是每個(gè)學(xué)生只能從屬于一個(gè)院系；² 每個(gè)學(xué)生可以學(xué)習(xí)多門(mén)課程，每門(mén)課程也可以有多個(gè)學(xué)生學(xué)習(xí)。4 邏輯設(shè)計(jì)文檔4.1 系統(tǒng)關(guān)系模型a) 院系班級(jí)表Class（院系編號(hào)，院系名稱，院

12、系的職能描述，上級(jí)院系編號(hào)）b) 學(xué)生基本信息表Student（學(xué)生編號(hào)，姓名，照片，性別，民族，生日，政治面貌，籍貫，身份證號(hào)，學(xué)生證號(hào)，家庭電話，居住地址，郵政編碼，入校日期，所在院系編號(hào)，職務(wù)，備注，填表日期）c) 學(xué)生教育經(jīng)歷記錄表Experience（編號(hào)，學(xué)生編號(hào)，開(kāi)始日期，終止日期，學(xué)校、單位名稱，職務(wù)）d) 學(xué)生獎(jiǎng)罰表Evaluation（獎(jiǎng)罰記錄編號(hào)，獎(jiǎng)罰日期，學(xué)生編號(hào)，獎(jiǎng)罰類型（0表示獎(jiǎng)勵(lì)，1表示處罰），獎(jiǎng)罰說(shuō)明）e) 學(xué)生學(xué)籍變動(dòng)表Change（學(xué)籍變動(dòng)編號(hào)，學(xué)生編號(hào)，學(xué)籍變動(dòng)類型（1表示退學(xué)，2表示休學(xué)，3表示轉(zhuǎn)學(xué)，4表示調(diào)班），學(xué)籍變動(dòng)日期，原班級(jí)編號(hào)，轉(zhuǎn)入學(xué)校名稱，

13、轉(zhuǎn)入班級(jí)編號(hào)，學(xué)籍變動(dòng)原因，備注）f) 課程設(shè)置表Lessons（課程編號(hào)，課程名稱，課程設(shè)置的學(xué)期，授課老師，課時(shí)，課程類型（必修課，選修課）g) 考試成績(jī)表Scores（課程編號(hào)，學(xué)生編號(hào)，考試分?jǐn)?shù)）h) 用戶信息表Users（用戶名，密碼）i) 用戶權(quán)限信息表Privilege（用戶名，院系管理權(quán)限標(biāo)記，學(xué)生管理權(quán)限標(biāo)記，獎(jiǎng)罰管理權(quán)限標(biāo)記，學(xué)籍管理權(quán)限標(biāo)記，成績(jī)管理權(quán)限標(biāo)記，用戶管理權(quán)限標(biāo)記）j) 系統(tǒng)日志信息表SysLog（日志編號(hào)，事件發(fā)生日期，事件發(fā)生時(shí)間，時(shí)間類型，事件標(biāo)題，事件內(nèi)容，操作用戶名）4.2 系統(tǒng)數(shù)據(jù)庫(kù)表結(jié)構(gòu)數(shù)據(jù)庫(kù)表索引表名中文名Classes院系班級(jí)表Student

14、s學(xué)生基本信息表Experience學(xué)生教育經(jīng)歷記錄表Evaluation學(xué)生獎(jiǎng)懲表Change學(xué)生學(xué)籍變動(dòng)表Lessons課程設(shè)置表Scores考試成績(jī)表Users用戶信息表Privilege用戶權(quán)限信息表Syslog系統(tǒng)日志信息表學(xué)生基本信息表(Student)字段名字段類型長(zhǎng)度主/外鍵字段值約束對(duì)應(yīng)中文名Student_IdintPNot null學(xué)生編號(hào)Student_NameVarchar50Not null姓名PhotoImage照片SexChar2性別NationalityVarchar40民族BrithVarchar20Not null生日Political_PartyVarc

15、har40政治面貌Family_PlaceVarchar60籍貫Id_CardVarchar20身份證號(hào)BadgeIDVarchar40學(xué)生證號(hào)Home_phoneVarchar30家庭電話ResidenceVarchar100居住地址PostcodeVarchar10郵政編碼InDateVarchar20Not null入校日期Class_IdSmallInt所在院系編號(hào)TitleVarchar20職務(wù)MemoVarchar200備注Fillin_TimeVarchar20填表時(shí)間院系班級(jí)表(Classes)字段名字段類型長(zhǎng)度主/外鍵字段值約束對(duì)應(yīng)中文名Class_idvarcharPNot

16、 null院系編號(hào)Class_NameVarchar40Not null院系名稱DescribeVarchar400院系職能描述UpperIdSmallIntNot null上級(jí)院系編號(hào)學(xué)生教育經(jīng)歷記錄表(Experience)字段名字段類型長(zhǎng)度主/外鍵字段值約束對(duì)應(yīng)中文名ExpIdIntPNot null編號(hào)Student_IdIntNot null學(xué)生編號(hào)Strat_DateChar10Not null開(kāi)始日期End_DateChar10Not null終止日期SchoolVarchar50Not null學(xué)校/單位名稱TitleVarchar20職務(wù)學(xué)生獎(jiǎng)懲表(Evaluation)字段

17、名字段類型長(zhǎng)度主/外鍵字段值約束對(duì)應(yīng)中文名EvaIdIntPNot null獎(jiǎng)懲記錄編號(hào)EvaDateChar10Not null獎(jiǎng)懲日期Student_IdIntNot null學(xué)生編號(hào)EvaTypeBitNot null獎(jiǎng)懲類型MemoVarchar200獎(jiǎng)懲說(shuō)明學(xué)生學(xué)籍變動(dòng)表(Change)字段名字段類型長(zhǎng)度主/外鍵字段值約束對(duì)應(yīng)中文名ChangeIdIntPNot null學(xué)籍變動(dòng)編號(hào)Student_IdIntNot null學(xué)生編號(hào)ChangeTypeTinyintNot null學(xué)籍變動(dòng)類型ChangeDateChar10Not null學(xué)籍變動(dòng)日期OriClassInt原班級(jí)編號(hào)

18、NewSchoolVarchar50轉(zhuǎn)入學(xué)校名稱NewClassInt轉(zhuǎn)入的班級(jí)編號(hào)ReasonVarchar200學(xué)籍變動(dòng)原因MemoVarchar200備注課程設(shè)置表(Lessons)字段名字段類型長(zhǎng)度主/外鍵字段值約束對(duì)應(yīng)中文名LessonIdIntPNot null課程編號(hào)LessonNameVarchar100Not null課程名稱TermVarchar20課程設(shè)置的學(xué)期TeacherVarchar20授課老師HoursTinint課時(shí)LessonTypeVarchar20Not null課程類型考試成績(jī)表(Scores)字段名字段類型長(zhǎng)度主/外鍵字段值約束對(duì)應(yīng)中文名LessonI

19、dIntFNot null課程編號(hào)Student_IdIntFNot null學(xué)生編號(hào)ScoreTinyint考試分?jǐn)?shù)用戶信息表(Users)字段名字段類型長(zhǎng)度主/外鍵字段值約束對(duì)應(yīng)中文名UserNamevarchar40PNot null用戶名PwdVarchar40Not null密碼用戶權(quán)限信息表(Privilege)字段名字段類型長(zhǎng)度主/外鍵字段值約束對(duì)應(yīng)中文名UserNameVarchar40FNot null用戶名PrivClassBit院系管理權(quán)限標(biāo)記PrivStuBit學(xué)生管理權(quán)限標(biāo)記PrivEvaBit獎(jiǎng)懲管理權(quán)限標(biāo)記PrivChangeBit學(xué)籍管理權(quán)限標(biāo)記PrivScor

20、eBit成績(jī)管理權(quán)限標(biāo)記PrivUserBit用戶管理權(quán)限標(biāo)記系統(tǒng)日志信息表(SysLog)字段名字段類型長(zhǎng)度主/外鍵字段值約束對(duì)應(yīng)中文名LogIdBigIntPNot null日志編號(hào)LogDateChar10Not null事件發(fā)生日期LogTimeChar10Not null事件發(fā)生時(shí)間LogTypeTinyInt事件類型TitleVarchar100事件標(biāo)題Body Varchar500事件內(nèi)容UserNameVarchar40FNot null操作用戶名5 物理設(shè)計(jì)文檔/*-創(chuàng)建數(shù)據(jù)庫(kù)-*/USE masterGOCREATE DATABASE StudentSysONPRIMARY

21、 ( NAME = St1, FILENAME = 'c:program filesmicrosoft sql servermssqldataStData1.mdf', SIZE = 10MB, MAXSIZE = 200, FILEGROWTH = 2),( NAME = St2, FILENAME = 'c:program filesmicrosoft sql servermssqldataStData2.ndf', SIZE = 10MB, MAXSIZE = 200, FILEGROWTH = 2),( NAME = St3, FILENAME = &#

22、39;c:program filesmicrosoft sql servermssqldataStData3.ndf', SIZE = 10MB, MAXSIZE = 200, FILEGROWTH = 2)LOG ON ( NAME = StLog1, FILENAME = 'c:program filesmicrosoft sql servermssqldataStLog1.ldf', SIZE = 1MB, MAXSIZE = 20, FILEGROWTH = 1),( NAME = StLog2, FILENAME = 'c:program filesm

23、icrosoft sql servermssqldataStLog2.ldf', SIZE = 1MB, MAXSIZE = 20, FILEGROWTH = 1)GO/*創(chuàng)建院系班級(jí)表*/CREATE TABLE Classes (Class_Id Int Primary Key, Class_NameVarchar(40) NOT NULL, Describe Varchar(400), UpperIdSmallInt NOT NULL )/*創(chuàng)建學(xué)生基本信息表*/CREATE TABLE Students (Student_IdInt Primary Key, Student_N

24、ame Varchar(50) NOT NULL, PhotoImage, SexChar(2), NationalityVarchar(40), BirthVarchar(20), Political_PartyVarchar(40), Family_PlaceVarchar(60), Id_CardVarchar(20), BadgeIDVarchar(40), Home_phoneVarchar(30), ResidenceVarchar(100), PostcodeVarchar(10), InDateVarchar(20), Class_IdSmallInt, TitleVarcha

25、r(20), MemoVarchar(200), Fillin_TimeVarchar(20) )/*創(chuàng)建學(xué)生教育經(jīng)歷記錄表*/CREATE TABLE Experience (ExpIdInt Primary Key IDENTITY, Student_Id Int NOT NULL, Start_Date Char(10), End_Date Char(10), SchoolVarchar(50), TitleVarchar(20) )/*創(chuàng)建學(xué)生獎(jiǎng)懲表*/CREATE TABLE Evaluation (EvaIdInt Primary Key IDENTITY, EvaDateChar

26、(10) NOT NULL, Student_Id Int NOT NULL, EvaTypeBit, MemoVarchar(200) )/*創(chuàng)建學(xué)籍變動(dòng)表*/CREATE TABLE Change (ChangeId Int Primary Key IDENTITY, Student_Id Int NOT NULL, ChangeTypeTinyint, ChangeDateChar(10), OriClassInt, NewSchoolVarchar(50), NewClassInt, ReasonVarchar(200), MemoVarchar(200) )/*創(chuàng)建課程設(shè)置表*/CR

27、EATE TABLE Lessons (LessonIdInt Primary Key IDENTITY, LessonNameVarchar(100), TermVarchar(20), TeacherVarchar(20), HoursTinyint, LessonTypeVarchar(20) )/*創(chuàng)建銷售表*/CREATE TABLE Sale (SaleID int identity(1,1) Primary key ,MerChID int NOT NULL ,SaleDate datetime NOT NULL ,SaleNum int NOT NULL,SalePrice m

28、oney NOT NULL) GO/*創(chuàng)建考試成績(jī)表*/CREATE TABLE Scores (LessonIdInt NOT NULL, Student_IdInt NOT NULL, ScoreTinyint )/*創(chuàng)建用戶表*/CREATE TABLE Users (UserName Varchar(40) Primary Key, PwdVarchar(40) NOT NULL )INSERT INTO Users Values('Admin', 'Admin')/*創(chuàng)建用戶權(quán)限信息表*/CREATE TABLE Privilege (UserName

29、Varchar(40) Primary Key, PrivClassBit, PrivStuBit, PrivEvaBit, PrivChangeBit, PrivScoreBit, PrivUserBit )/*創(chuàng)建系統(tǒng)日志信息表*/CREATE TABLE SysLog (LogIdBigInt Primary Key IDENTITY, LogDateChar(10), LogTimeChar(10), LogTypeTinyInt, TitleVarchar(100), BodyVarchar(500), UserNameVarchar(40) )6 操作界面截圖1. 運(yùn)行程序，出現(xiàn)如

30、下登陸界面： 現(xiàn)在以系統(tǒng)管理員的身份登陸，用戶名中輸入“Admin”，密碼也是“Admin”。然后單擊“確定”，進(jìn)入程序的主窗口如下：2. 單擊“院系管理”，進(jìn)入如下界面：可以對(duì)院系信息進(jìn)行添加、修改和刪除，單擊“添加”或“修改”進(jìn)入如下界面:3. 單擊“學(xué)生管理”，進(jìn)入如下界面：如果要添加學(xué)生，必須先選中一個(gè)院系班級(jí)，單擊“添加學(xué)生”進(jìn)入如下界面：添加完信息后，單擊“確定”，然后選中此學(xué)生，可以添加其照片，在圖像框著中單擊鼠標(biāo)右鍵-“設(shè)置照片”，然后可以選擇不同格式的照片，添加完成后界面如下：選中一個(gè)學(xué)生，可以添加其教育經(jīng)歷，單擊“教育經(jīng)歷”，進(jìn)入界面如下：可以添加、修改和刪除學(xué)生的教育經(jīng)歷

31、，這里就不再演示。4. 單擊“獎(jiǎng)懲管理”，進(jìn)入如下界面：可以通過(guò)選擇年份和類型，然后再選擇學(xué)生，進(jìn)行獎(jiǎng)懲信息的添加、修改和刪除。5. 單擊“學(xué)籍管理”，進(jìn)入如下界面：可以通過(guò)選擇年份和類型，然后再選擇學(xué)生，進(jìn)行學(xué)籍信息(包括退學(xué)、休學(xué)、轉(zhuǎn)學(xué)和調(diào)班)的添加、修改和刪除。6. 單擊“成績(jī)管理”，進(jìn)入如下界面：首先可以添加、修改和刪除課程，選中課程可查看課程的相關(guān)信息。然后單擊“成績(jī)管理”，進(jìn)入如下界面：必須先選擇班級(jí)，然后選中學(xué)生，最后才能夠添加、修改或刪除成績(jī)。7. 單擊“用戶管理”，進(jìn)入如下界面：只有管理員具有添加、修改和刪除用戶的權(quán)限，若要添加用戶，單擊“添加用戶”，進(jìn)入如下界面：8. 單擊

32、“權(quán)限管理”，進(jìn)入如下界面：若選擇管理員，則提示“管理員擁有一切權(quán)限”，無(wú)需賦權(quán)限；若選擇普通用戶，則可以賦予一定的權(quán)限，截圖如下：此時(shí)該普通用戶被賦予的權(quán)限是學(xué)籍管理和用戶管理，那么該用戶登陸時(shí)只具有這兩個(gè)權(quán)限，下面是用該用戶登陸時(shí)的截圖：當(dāng)該用戶選擇“院系管理”、“學(xué)生管理”、“獎(jiǎng)懲管理”、“成績(jī)管理”、“權(quán)限管理”或者“系統(tǒng)日志”時(shí)，都會(huì)提示“沒(méi)有權(quán)限”，則該用戶不能夠進(jìn)行相應(yīng)的操作。9. 單擊“系統(tǒng)日志”，進(jìn)入如下界面：可以通過(guò)選擇事件類別、日期和用戶，來(lái)查看不同的日志記錄，并且可以進(jìn)行日志記錄的單個(gè)刪除或者全部刪除。7 主要代碼7.1 數(shù)據(jù)庫(kù)連接代碼Private Sub Conne

33、ct() Dim TmpStat As Long 'SQLConnect()函數(shù)的返回值 '如果連接標(biāo)記為真，則返回。否則會(huì)出錯(cuò) If IsConnect = True Then Exit Sub End If '分配環(huán)境句柄，保存在變量Henv中 If SQLAllocEnv(Henv) Then MsgBox "無(wú)法初始化ODBC環(huán)境!", , "ODBC API執(zhí)行錯(cuò)誤" End End If '根據(jù)環(huán)境句柄，分配連接句柄，保存在變量Hdbc中 If SQLAllocConnect(Henv, Hdbc) Then

34、MsgBox "無(wú)法連接ODBC!", , "ODBC API執(zhí)行錯(cuò)誤" End End If '根據(jù)連接句柄、數(shù)據(jù)源、用戶名和密碼連接指定的數(shù)據(jù)庫(kù) TmpStat = SQLConnect(Hdbc, DSN, Len(DSN), DB_USER_NAME, _ Lench(DB_USER_NAME), DB_PASSWORD, Len(DB_PASSWORD) '如果連接不成功則退出程序 If TmpStat <> SQL_SUCCESS And _ TmpStat <> SQL_SUCCESS_WITH_IN

35、FO Then MsgBox "無(wú)法獲得連接句柄!", , "ODBC API執(zhí)行錯(cuò)誤" IsConnect = True Disconnect End End If '設(shè)置連接標(biāo)記 IsConnect = TrueEnd Sub7.2 數(shù)據(jù)庫(kù)斷開(kāi)代碼Private Sub Disconnect() Dim Rc As Long '如果連接標(biāo)記為假，標(biāo)明已經(jīng)斷開(kāi)連接，則直接返回 If IsConnect = False Then Exit Sub End If '斷開(kāi)連接 Rc = SQLDisconnect(Hdbc) '

36、;釋放連接句柄 Rc = SQLFreeConnect(Hdbc) '釋放環(huán)境句柄 Rc = SQLFreeEnv(Henv) IsConnect = FalseEnd Sub7.3 照片管理模塊代碼SOL Server2000的圖像字段不能夠使用Insert和update等語(yǔ)句插入和更新，所以本系統(tǒng)中使用GetChunk和AppChunk方法讀取和填寫(xiě)圖象字段。GetChunk方法用來(lái)返回大型文本和二進(jìn)制數(shù)據(jù)Field對(duì)象的全部或部分內(nèi)容，AppendChunk方法則將數(shù)據(jù)追加到大型文本，二進(jìn)制數(shù)據(jù)Field或Parameter對(duì)象中。這一部分也是我們本系統(tǒng)的特色部分。7.3.1 顯

37、示圖象函數(shù)代碼Public Sub ShowImage(Image1 As Image, _ Adodc1 As Adodc) Erase byteChunk() FieldSize = Adodc1.Recordset.Fields(2).ActualSize If FieldSize <= 0 Then Image1.Picture = LoadPicture("") Exit Sub End If '提供一個(gè)尚未使用的文件號(hào) SourceFile = FreeFile '打開(kāi)文件 Open TempFile For Binary Access W

38、rite As SourceFile '計(jì)算數(shù)據(jù)塊 NumBlocks = FieldSize BlockSize LeftOver = FieldSize Mod BlockSize '得到剩余字節(jié)數(shù) '分塊讀取圖像數(shù)據(jù)，并寫(xiě)入到文件中 If LeftOver <> 0 Then ReDim byteChunk(LeftOver) byteChunk() = Adodc1.Recordset.Fields(2).GetChunk(LeftOver) Put SourceFile, , byteChunk() End If For i = 1 To NumB

39、locks ReDim byteChunk(BlockSize) byteChunk() = Adodc1.Recordset.Fields(2).GetChunk(BlockSize) Put SourceFile, , byteChunk() Next i Close SourceFile '將文件裝入到Image1控件中 Image1.Picture = LoadPicture(TempFile) '刪除臨時(shí)文件 Kill (TempFile)End Sub7.3.2 保存圖象函數(shù)代碼Public Sub SaveImage(ByVal ImageFile As Stri

40、ng, _ Adodc1 As Adodc) If Adodc1.Recordset.BOF = True Or Adodc1.Recordset.EOF = True Then Exit Sub End If If ImageFile = "" Then Exit Sub End If '提供一個(gè)尚未使用的文件號(hào) SourceFile = FreeFile '打開(kāi)文件 Open ImageFile For Binary Access Read As SourceFile '得到文件長(zhǎng)度 FileLength = LOF(SourceFile) &#

41、39;判斷文件是否存在 If FileLength = 0 Then Close SourceFile MsgBox DiskFile & "無(wú)內(nèi)容或不存在!" Else NumBlocks = FileLength BlockSize '得到數(shù)據(jù)塊的個(gè)數(shù) LeftOver = FileLength Mod BlockSize '得到剩余字節(jié)數(shù) Adodc1.Recordset.Fields(2).Value = Null ReDim byteData(BlockSize) '重新定義數(shù)據(jù)塊的大小 For i = 1 To NumBlocks Get SourceFile, , byteData() '讀到內(nèi)存塊中 Adodc1.Recordset.Fields(2).AppendChunk byteData() '寫(xiě)入FLD Next i ReDim byteData(LeftOver) '重新定義數(shù)據(jù)塊的大小