畢業(yè)設(shè)計學生信息管理系統(tǒng)

1、渤海大學本科畢業(yè)論文（設(shè)計）學生信息管理系統(tǒng)student information management system學 院（系）： 工學院 專 業(yè)： 自動化 學 號： 09060221 學 生 姓 名： 盛鑫 入 學 年 度： 2009年 指 導 教 師： 劉慧巍 完 成 日 期： 2013年 5月 10 日 渤海大學bohai university學生信息管理系統(tǒng)摘 要隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個不斷發(fā)展的新型學科，任何一個單位要生存要發(fā)展，要高效率地把內(nèi)部活動有機地組織起來，就必須建立與自身特點相適應(yīng)的管理信息系統(tǒng)。

2、學生成績管理系統(tǒng)主要提供方便高效的管理功能，該實現(xiàn)以下一些基本功能： 1.系統(tǒng)管理模塊：維護系統(tǒng)的正常運行和安全性設(shè)置，包括添加用戶、修改密碼、刪除用戶等等。 2.學院信息模塊：實現(xiàn)對學校院系、專業(yè)、班級操作。包括：添加、修改、刪除院系、專業(yè)、班級等信息。這三個功能模塊各自獨立，完成學校的全部班級的管理。 3.學生學籍管理模塊：實現(xiàn)對學生的個人信息的管理工作，包括學籍添加、 學籍查詢、學籍修改等功能，從而方便學校管理部門對學校的基本情況的快速查詢和了解。 4.課程管理模塊：該模塊對各個班級的課程進行設(shè)置，并可在其中設(shè)置各門 課程的教材選用情況，方便了學校教材管理部門和教務(wù)處的教學管理人員的工作

3、。該模塊包括基本課程設(shè)置和班級課程設(shè)置兩個模塊。5.成績管理模塊：檢驗學生學習情況的一個主要手段，本模塊包括考試類型 設(shè)置，共有期中考試和期未考試兩種類型，還設(shè)置了成績添加、成績查詢、成績?yōu)g覽、成績修改等功能模塊。關(guān)鍵詞：數(shù)據(jù)庫;access;數(shù)據(jù)庫;vb- -學生信息管理系統(tǒng)student information management systemabstractalong with the information technology in the management of a more profound and extensive application, management inf

4、ormation systems implementation, technology has gradually matured. management information system is a continuous development of new disciplines, any one unit to survive and to develop, efficient activities of the internal organization of organic, it must establish its own characteristics and to adap

5、t the management of information system.student achievement management system to facilitate the provision of efficient management, the implementation of the following basic functions：1 system management module： maintaining the normal operation of the system and security settings, including add, modif

6、y, delete user password user and so on.2 school of information module :the realization of school faculty, professional operation, class. include: add, modify, delete, professional colleges, class and other information. the three function modules are independent, complete the whole school class manag

7、ement.3 student management module: the realization of students personal information management, including add, query student school, student modify functions, thereby facilitating school administration to the schools basic situation of fast inquiry and understanding.4 the curriculum management modul

8、e:this module of the various classes of curriculum setting, and can be set up in which the course of the teaching material selection, convenient school teaching material management department and the school administration office of the teaching management staff. the module includes the basic curricu

9、lum and the courses setting of two modules.5 performance management module:testing the students learning is one of the main means, the module test type setting, a total of midterm and final exams in two types, also set up the achievement to add, query results, performance, function modules such as b

10、rowsing performance changes.key words：database ;access; database;vb- ii -目 錄摘 要iabstractii引 言11 需求分析21.1 調(diào)查21.2 可行性分析22 功能設(shè)計32.1 業(yè)務(wù)流程分析32.2 數(shù)據(jù)流程分析32.3 軟件功能設(shè)計53 數(shù)據(jù)庫設(shè)計63.1 學生表63.2 教師表63.3 管理員表73.5 院系表73.8 班級表84 程序代碼的設(shè)計94.1 程序代碼設(shè)計要求94.2 詳細代碼設(shè)計94.2.1 公共模塊94.2.2 登陸界面設(shè)計114.2.3 主窗體設(shè)計134.2.4 學生注冊頁面164.2.5 班

11、級添加18結(jié) 論24參 考 文 獻25致 謝26學生信息管理系統(tǒng)引 言該信息管理系統(tǒng)可以說是一個綜合性的學校學生管理系統(tǒng)，它集成了學生學籍管理系統(tǒng)、學生成績管理系統(tǒng)、學生檔案管理系統(tǒng)等多種功能，因而具有較強的實用性和先進性。（1）項目提出的意義現(xiàn)在我國的大中專院校的學生信息管理水平普遍不高，有的還停留在紙介質(zhì)基礎(chǔ)上，這種管理手段已不能適應(yīng)時代的發(fā)展，因為它浪費了許多的人力和物力。在當今信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎(chǔ)的信息管理系統(tǒng)所代替。如果本系統(tǒng)能被學校所采用，將會改變以前靠手工管理 學生成績的狀況，可以樹立良好的辦學形象，提高工作效率1。（2）項目開發(fā)背景學生信息管理系統(tǒng)是一個

12、教育單位不可缺少的部分，它的內(nèi)容對于學校的決策者和管理者來說都至關(guān)重要，對學生來說也可以輕松的查閱自己在校的成績以及信息等。但是一直以來人們都是靠傳統(tǒng)人工的方式管理學生成績，這種管理方式存在著許多缺點，如：效率低，保密性差，另外時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找，更新和維護都帶來了不少的困難。隨著科學技術(shù)的不斷提高，計算機對學生信息進行管理，有著手工管理所無法比擬的優(yōu)點。例如：檢索迅速，查找方便，可靠性高，存儲量大，保密性好，壽命長，成本低等。這些優(yōu)點能夠極大地提高學生信息管理的效率，方便系統(tǒng)管理員對學 生成績等信息的添加，修改，刪除，查詢，留言等操作，同時一樣的方面學生對自己各科成

13、績查詢，學習的交流2。（3）項目開發(fā)的目標建立學生信息管理系統(tǒng)，采用計算機對學生信息進行管理，進一步提高辦學效益和現(xiàn)代化水平。幫助廣大教師提高工作效率，實現(xiàn)學生信息管理工作流程的系統(tǒng)化、規(guī)范化和自動化。 注：頁碼，居中，底部，宋體，小五，正文起始頁頁碼為1。閱后刪除此文本框。1 需求分析1.1 調(diào)查通過調(diào)查，要求系統(tǒng)需要有以下功能： (1).要求有良好的人機界面；(2).較好的權(quán)限管理；(3).原始數(shù)據(jù)修改簡單方便，支持多條件修改；(4).方便的數(shù)據(jù)查詢，支持多條件查詢；(5).相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好；(6).數(shù)據(jù)計算自動完成，盡量減少人工干預(yù)。1.2 可行性分析由于本系

14、統(tǒng)管理的對象單一，都是在校學生，且每個數(shù)據(jù)內(nèi)容具有較強的關(guān)聯(lián)性，涉及的計算過程不是很復雜。因此，比較適合于采用數(shù)據(jù)庫管理。且學校用于學生管理的微機都是奔騰3以上的機器，在存儲量、速度方面都能滿足數(shù)據(jù)庫運行的要求。在技術(shù)難度方面，由于有指導老師的指導和相關(guān)參考文獻，特別是網(wǎng)上資料，特別是參考其它通過程序的功能，因此完全可以實現(xiàn)。數(shù)據(jù)庫是 mis 中的重要支持技術(shù)，在 mis 開發(fā)過程中，如何選擇數(shù)據(jù)庫管理 是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下： visual basic

15、是一種可視化的、面對對象和調(diào)用事件驅(qū)動方式的結(jié)構(gòu)化 高級程序設(shè)計，可用于開發(fā) windows 環(huán)境下的種類應(yīng)用程序。它簡單易學、效率高，且功能強大3。在visual basic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，可以高效、快速地開發(fā)出 windows 環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)4。學生信息管理系統(tǒng)已計算機為工具，通過對學生管理所需的信息管理，把管理人員從繁瑣的數(shù)據(jù)計算處理中解拖出來，使其有更多的精力從事學術(shù)的研究，從而全面提高學習質(zhì)量。2 功能設(shè)計2.1 業(yè)務(wù)流程分析學生信息管理系統(tǒng)普通用戶中級用戶管理員查查詢個人信息查查詢個人成績查查詢個人信息改改查學生

16、成績修修改密碼添添加學生教師添添加管理員查查詢數(shù)據(jù)設(shè)設(shè)置學院信息圖2.1 業(yè)務(wù)流程分析2.2 數(shù)據(jù)流程分析普通用戶（學生）：提供查詢（需登錄，僅顯示登錄用戶信息）中等用戶（教師）：提供增刪改查（需登錄，只可操作成績表，并且教師工號對自己對應(yīng)的成績）管理員（教務(wù)處）：提供增刪改查（可對學生，教師，成績等操作）學生信息管理系統(tǒng)普通 戶中級管理員學生表教師表管理員表成績表 圖2.2 數(shù)據(jù)流程分析普通：登錄賬戶為學生學號中級：登錄賬號為教師工號，密碼自定義，可修改管理員：登錄賬號為特定，密碼可修改，可增加特殊賬號管理員管理員表增查個人信息增查教師信息教師表修改學院信息專業(yè)表院系表班級表圖2.3 管理員

17、系統(tǒng)2.3 軟件功能設(shè)計 圖2.4 軟件功能設(shè)計3 數(shù)據(jù)庫設(shè)計3.1 學生表表3.1 學生表列字段名類型長度是否為空主鍵學號idchar20否是姓名namechar20否否性別sexchar2是否出生年月birthdaydate/time8是否民族nationtext10是否籍貫nativetext10是否入學時間entertimedate/time8是否院系編號fidtext5是否專業(yè)編號speidtext5是否班級編號cidtext5是否3.2 教師表表3.2 教師表列字段名類型長度是否為空主鍵教師工號tidtext20否是教師姓名tnametext10否否性別tsextext2是否名族t

18、nationtext10是否籍貫tnativetext10是否政治面貌politicaltext10是否職稱titaltext10是否所屬部門departmenttext10是否登陸密碼passwordtext50是否3.3 管理員表表3.3 管理員表列字段名類型長度是否為空主鍵管理員編號adidtext10否是管理員賬號adnametext50否否密碼adpasswordtext50否否所屬部門addeparttext10否否3.4 成績表表3.4 成績表列字段名類型長度是否為空主鍵學生編號stuidtext12否否學科編號subidtext10否否平時成績usualtext10否否期末fi

19、naltext10否否總評efftext10是否教師工號teacheridtext20否否3.5 院系表表3.5 院系表列字段名類型長度是否為空主鍵院系編號fidtext2否是院系名稱fnametext10否否3.6 專業(yè)表表3.6 專業(yè)表列字段名類型長度是否為空主鍵專業(yè)編號speidtext2否是專業(yè)名稱snametext50否否所屬院系sfidtext2否否3.7 學科表表3.7 學科表列字段名類型長度是否為空主鍵編號subidtext5否是名稱subnametext50否否 3.8 班級表表3.8 班級表列字段名類型長度是否為空主鍵班級編號cidtext2是否班級名稱cnametext5

20、0是否所屬院系fidtext2是否所屬專業(yè)sidtext2是否4 程序代碼的設(shè)計4.1 程序代碼設(shè)計要求根據(jù)系統(tǒng)的主要功能及上一章的總體設(shè)計，系統(tǒng)開發(fā)進入第二個階段：詳細設(shè)計。在這一階段的工作中，主要任務(wù)有以下幾項：(1)、根據(jù)原型化的開發(fā)原則，為系統(tǒng)的每個模塊功能進行界面設(shè)計，作為進一步優(yōu)化的基礎(chǔ)。(2)、進行系統(tǒng)的流程分析，為模塊的細化做好準備。(3)、對每個模塊進行詳細的算法設(shè)計。4.2 詳細代碼設(shè)計4.2.1 公共模塊解決登陸用戶信息以及數(shù)據(jù)庫標志等公共信息，所以定義通用變量public gusername as string 保存用戶名稱public gtid as string 保

21、存教師信息public gstuid as string 保存學生登錄信息public flag as integer 添加和修改的標志public gsql as string 保存sql語句public kqsql2 as string 保存查詢其他考勤結(jié)果sql語句public arecordid as integerpublic lrecordid as integerpublic orecordid as integerpublic erecordid as integerpublic iflag as integer 數(shù)據(jù)庫是否打開標志數(shù)據(jù)庫連接選用adodb連接方式，首先先編寫一

22、公共模塊，用于存放數(shù)據(jù)庫訪問類5。public function transactsql(byval sql as string) as adodb.recordsetdim con as adodb.connectiondim rs as adodb.recordsetdim strconnection as stringdim strarray() as stringset con = new adodb.connectionset rs = new adodb.recordseton error goto transactsql_error strconnection = provide

23、r=microsoft.jet.oledb.4.0;data source= & app.path & dbstudata.mdb strarray = split(sql) con.open strconnection if strcomp(ucase$(strarray(0), select, vbtextcompare) = 0 then rs.open trim$(sql), con, adopenkeyset, adlockoptimistic set transactsql = rs iflag = 1 else con.execute sql iflag = 1 end iftr

24、ansactsql_exit: set rs = nothing set con = nothing exit functiontransactsql_error: msgbox 查詢錯誤： & err.description iflag = 2 resume transactsql_exitend function解決關(guān)閉窗口后程序任在后臺運行類：public sub shutdown(optional byval force as boolean = false)dim i as longon error resume next for i = forms.count - 1 to 0 s

25、tep -1 if not force then if forms.count i then exit sub end if end if next iif force or (forms.count = 0) then closeif force or (forms.count 0) then endend sub識別tab鍵public sub tabtoenter(key as integer) if key = 13 then sendkeys tab end if end sub4.2.2 登陸界面設(shè)計圖4.1由于有三類用戶同時登陸。其中，學生輸入學號登陸，教師登陸由教工號于密碼登陸

26、，管理員由賬號密碼登陸。代碼如下：private sub cmdok_click() dim sql as string dim rs as adodb.recordset if trim(username.text = ) then msgbox 沒有輸入用戶名，請重新輸入！, vbokonly + vbexclamation, 警告 username.setfocus else sql = select * from administrator where adname= & username.text & set rs = transactsql(sql) if iflag = 1 th

27、en if rs.eof = true then msgbox 沒有這個用戶，請重新輸入！, vbokonly + vbexclamation, 警告 username.setfocus else if trim(rs.fields(2) = trim(adpassword.text) then rs.close me.hide gusername = trim(username.text) 記錄用戶 adminfrm.show unload me else msgbox 密碼不正確，請重新輸入！, vbokonly + vbexclamation, 警告 adpassword.setfocu

28、s adpassword.text = end if end if else unload me end if end ifend sub4.2.3 主窗體設(shè)計圖4.2 主窗口設(shè)計系統(tǒng)選項中提供管理員注冊，修改，刪除功能其中，注冊界面代碼如下：圖4.3 添加管理員代碼：private sub cmdok_click() dim sql as string dim rs as adodb.recordset if trim(adname.text) = then msgbox 請輸入用戶名稱, vbokonly + vbexclamation, 警告 exit sub adname.setfoc

29、us else sql = select * from administrator where adname= & adname.text & set rs = transactsql(sql) 判斷用戶名是否存在 if rs.eof = false then msgbox 這個用戶已存在，請重新輸入！, vbokonly + vbexclamation, 警告 adname.setfocus adname.text = passw1.text = passw2.text = exit sub else if trim(passw1.text) = then msgbox 請輸入密碼, vbo

30、konly + vbexclamation, 警告 passw1.setfocus exit sub elseif trim(passw2.text) = then msgbox 請再次輸入密碼！, vbokonly + vbexclamation, 警告 passw2.setfocus exit sub elseif trim(passw1.text) trim(passw2.text) then msgbox 兩次輸入不一致，請重新輸入, vbokonly + vbexclamation, 警告 passw2.text = passw2.setfocus exit sub else sql

31、 = insert into administrator ( adid,adname,adpassword,addepart )values( & id.text & , & adname.text & , & passw1.text & , & depart.text & ) call transactsql(sql) msgbox 注冊成功！, vbokonly + vbexclamation, 添加結(jié)果 call init end if end if end ifend sub4.2.4 學生注冊頁面圖4.4 學生注冊界面優(yōu)化功能：為用戶提供便捷的操作，以及在目標中提到的要求，在學生注冊

32、系統(tǒng)中加入了一些便捷操作：由于沒個學生由于院系，專業(yè)，班級不同學號有所不同所以學號由系統(tǒng)自動生成，以減少人工干預(yù)，降低系統(tǒng)出錯率。private sub cmdid_click() dim sql as string dim rs as new adodb.recordset dim endid as string dim tempid as string dim eid as string dim rsa as string dim faculty, special, class as string if facultyid = then msgbox 請輸入院系！, vbokonly +

33、vbexclamation, 警告 faculty.setfocus exit sub elseif specialid = then msgbox 請輸入專業(yè)！, vbokonly + vbexclamation, 警告 special.setfocus exit sub elseif classid = then msgbox 請輸入班級！, vbokonly + vbexclamation, 警告 class.setfocus exit sub else entertime = mid(enttime.value, 1, 4) sql = select id from student w

34、here id and fid= & facultyid & and speid= & specialid & and cid= & classid & order by id desc set rs = transactsql(sql) eid = rs(0) eid = right(eid, 2) + 1 native.text = classid native.text = sql endid = right(format(1000 + eid), 2) rs.close tempid = entertime & facultyid & specialid & classid & end

35、id id.text = tempid end if end sub院系，專業(yè)，班級都從數(shù)據(jù)庫中提取，在學生表中只存儲編號代碼。 dim sql as string dim rs as adodb.recordset sql = select * from special where sname= & special.text & set rs = transactsql(sql) classid = rs(0) rs.close4.2.5 班級添加由于院系，專業(yè)，班級有包含關(guān)系所以在這里combobox控件加入代碼，實現(xiàn)選擇院系后所包含的專業(yè)自動加入隊列。private sub facult

36、y_click() dim sql as string dim rs as adodb.recordset dim fid as string dim s as string special.clear 選定院系后刷新獲得院系所含專業(yè) specialid = class.clear classid = sql = select * from faculty where fname= & faculty.text & set rs = transactsql(sql) facultyid = rs(0) rs.close sql = select * from special where sfi

37、d= & facultyid & set rs = transactsql(sql) do while not rs.eof s = rs(1) special.additem (s) rs.movenext loop rs.closeend sub由于在表中只存儲編號信息，程序中顯示名稱我們以添加新的班級為例。圖4.5 班級添加在窗口加載時得將院系信息加入到combobox控件隊列，實現(xiàn)代碼如下：private sub form_load() dim sql as string dim rs as adodb.recordset dim f as string sql = select *

38、from faculty where fname set rs = transactsql(sql) do while not rs.eof f = rs(1) fid.additem (f) rs.movenext loop rs.closeend sub在選取院系信息后要將院系所包含的專業(yè)信息加入到隊列，實現(xiàn)代碼如下：private sub fid_click() dim sql as string dim rs as adodb.recordset dim s as string sid.clear 選定院系后刷新獲得院系所含專業(yè) sql = select * from faculty

39、where fname= & fid.text & set rs = transactsql(sql) facid = rs(0) rs.close sql = select * from special where sfid= & facid & set rs = transactsql(sql) do while not rs.eof s = rs(1) sid.additem (s) rs.movenext loop rs.closeend sub由于班級編號在同一專業(yè)不能重復，所以編號由系統(tǒng)自動生成。當選定院系，專業(yè)后系統(tǒng)將從所數(shù)據(jù)庫獲得選定院系，專業(yè)現(xiàn)存的班級編號，按倒序排列后獲得最

40、后的編碼，由系統(tǒng)自動加1顯示在控件上。實現(xiàn)代碼如下：private sub init() dim tempid as string dim sql as string dim rs as adodb.recordset dim num as integer sql = select cid from class where fid= & facid & and sid= & speid & order by cid desc set rs = transactsql(sql) num = rs(0) num = num + 1 + 0 rs.close cid.text = num end s

41、ub其中參數(shù)facid，speid在選取時記錄如以下代碼：private sub sid_click() dim sql as string dim rs as adodb.recordset sql = select * from special where sfid= & facid & set rs = transactsql(sql) speid = rs(0) rs.close call initend sub4.2.6 修改密碼修改用戶信息由嚴謹?shù)倪壿嬯P(guān)系控制，確保數(shù)據(jù)庫中信息安全。以修改管理員密碼為例。圖4.6 修改密碼基本流程為：驗證原密碼-新密碼與確認密碼相同然后執(zhí)行修改。代

42、碼實現(xiàn)如下：private sub cmdok_click() dim sql as string dim rs as adodb.recordset if trim(oldpas.text) = then msgbox 請輸入舊密碼！, vbokonly + vbexclamation, 警告 oldpas.setfocus exit sub elseif trim(newpas1.text) = then msgbox 請輸入新密碼！, vbokonly + vbexclamation, 警告 newpas1.setfocus exit sub elseif trim(newpas2.text = ) then msgbox 請再次輸入新密碼, vbokonly + vbexclamation, 警告 newpas2.text = newpas2.setfocus exit sub elseif trim(newpas1.text) trim(newpas2.text) then msgbox 兩次輸入不一致！, vbokonly + vbexclamation, 警告 newpas2.text = newpas2.