數(shù)據(jù)庫教務(wù)管理系統(tǒng)課程設(shè)計(jì)

1、課 程 設(shè) 計(jì)課程設(shè)計(jì)名稱： 數(shù)據(jù)庫應(yīng)用課程設(shè)計(jì) 專 業(yè) 班 級(jí) ： 計(jì)算機(jī)應(yīng)用技術(shù)0801 學(xué) 生 姓 名 ： 付 權(quán) 學(xué) 號(hào) ： 200838940127 指 導(dǎo) 教 師 ： 程 鳳 娟 課程設(shè)計(jì)時(shí)間：2011.12.20-2010.12.24 計(jì)算機(jī)應(yīng)用技術(shù)專業(yè)課程設(shè)計(jì)任務(wù)書學(xué)生姓名付權(quán)專業(yè)班級(jí)0801學(xué)號(hào)200838940127題 目教務(wù)管理系統(tǒng)課題性質(zhì)a工程設(shè)計(jì)課題來源d自擬課題指導(dǎo)教師程鳳娟同組姓名無主要內(nèi)容1、登錄管理模塊：為了系統(tǒng)的安全性，根據(jù)不同權(quán)限給出不同服務(wù)。2、用戶管理模塊：僅系統(tǒng)管理員可用，對這個(gè)系統(tǒng)的所有用戶進(jìn)行管理。3、教務(wù)基本信息管理模塊：對以下模塊進(jìn)行增加、修

2、改和刪除管理。a、課程管理子模塊b、學(xué)籍管理子模塊 c、班級(jí)管理子模塊d、系別管理子模塊e、課程管理子模塊f、成績管理子模塊4、 教務(wù)信息查詢模塊：在各基本表的基礎(chǔ)上進(jìn)行信息的查詢。a、成績查詢子模塊任務(wù)要求以visual basic。net為前臺(tái)開發(fā)工具，以sql2000為數(shù)據(jù)庫創(chuàng)建教務(wù)管理系統(tǒng),實(shí)現(xiàn)增加、修改和刪除功能參考文獻(xiàn)1 薩師煊，王珊.數(shù)據(jù)庫系統(tǒng)概論（第三版）. 北京高等教育出版社.20002 齊治昌，譚慶平，寧洪，軟件工程（第二版）.北京：高等教育出版社.20043 david i.schneider，visual basic.net編程導(dǎo)論. 電子工業(yè)出版社.20034 張智毅

3、.visual basic.net+sql server 數(shù)據(jù)庫開發(fā)從基礎(chǔ)到實(shí)踐.電子工業(yè)出版社.2006審查意見指導(dǎo)教師簽字：教研室主任簽字： 2010年 12月 24 日 說明：本表由指導(dǎo)教師填寫，由教研室主任審核后下達(dá)給選題學(xué)生，裝訂在設(shè)計(jì)（論文）首頁目 錄第1章 應(yīng)用背景與需求分析21.1 背景21.2 數(shù)據(jù)需求21.3 事務(wù)需求3第2章 概要設(shè)計(jì)42.1 設(shè)計(jì)系統(tǒng)模塊42.1.1系統(tǒng)功能42.1.2 系統(tǒng)功能模塊劃分42.2 設(shè)計(jì)數(shù)據(jù)庫42.2.1 創(chuàng)建數(shù)據(jù)庫42.2.2 創(chuàng)建數(shù)據(jù)表52.2.3 連接數(shù)據(jù)庫52.3公共模塊52.3.1 添加全局變量52.3.2 定義公共函數(shù)6第3章

4、詳細(xì)設(shè)計(jì)63.1主窗體設(shè)計(jì)63.2用戶管理113.3系別管理133.4 班級(jí)管理163.5 課程管理173.6 學(xué)籍管理18 3.7 成績管理20 3.8 成績查詢23第4章 測試26第5章 結(jié)論26參考文獻(xiàn) 28第一章 應(yīng)用背景與需求分析1.1 教務(wù)管理系統(tǒng)簡介(背景)隨著辦公自動(dòng)化水平的不斷提高，現(xiàn)在學(xué)校管理教務(wù)也逐漸從手工轉(zhuǎn)到計(jì)算機(jī)自動(dòng)化信息處理階段。設(shè)計(jì)一個(gè)功能完整、操作簡便、界面友好的學(xué)生信息管理系統(tǒng)已經(jīng)勢在必行。本系統(tǒng)開發(fā)的目的是提高教務(wù)管理工作的效率，保證信息的準(zhǔn)確和規(guī)范，減少相關(guān)人員的工作量，使學(xué)校的教務(wù)管理工作真正做到科學(xué)、合理的規(guī)劃，系統(tǒng)、高效的實(shí)施。 該系統(tǒng)主要通過以sq

5、lserver2000為數(shù)據(jù)庫和visual basic.net， ado.net 為前臺(tái)開發(fā)界面來實(shí)現(xiàn)課程管理、學(xué)生信息管理、成績管理和系統(tǒng)管理功能，基本上滿足了用戶在教務(wù)管理方面的需求，并具有良好的可擴(kuò)充性。1.2 數(shù)據(jù)需求根據(jù)系統(tǒng)的需求，首先將要記錄的信息分類，要記錄的信息如下。1userinfo：包括用戶編碼、用戶密碼、用戶類別2departmentinfo：包括系編號(hào)、系名、系主任3classinfo：班級(jí)編號(hào)、系編號(hào)、班級(jí)年份、班級(jí)名4courseinfo：課程編號(hào)、課程名、任課老師、課程學(xué)分、課程簡介5studentinfo：學(xué)生編號(hào)、學(xué)生姓名、學(xué)生性別、所屬班號(hào)、生日、身份證號(hào)

6、、本人照片6result:學(xué)生編號(hào)、課程編號(hào)、分?jǐn)?shù)、任課老師、錄入時(shí)間1.3 事務(wù)需求經(jīng)過實(shí)際考察、咨詢和分析，教務(wù)管理系統(tǒng)主要應(yīng)該具有以下功能模塊，如1.1圖。在用戶管理部分, 具體功能包括增加用戶、修改用戶和刪除用戶在系別管理部分, 具體功能包括增加系別、修改系別和刪除系別在班級(jí)管理部分, 具體功能包括增加班級(jí)、修改班級(jí)和刪除班級(jí)在課程管理部分, 具體功能包括增加課程、修改課程和刪除課程在學(xué)籍管理部分, 具體功能包括增加學(xué)生信息、修改學(xué)生信息和刪除學(xué)生信息6在成績管理部分, 具體功能包括增加成績信息、修改成績信息和刪除成績信息教務(wù)管理系統(tǒng)登陸管理用戶管理教務(wù)信息管理教務(wù)信息查詢系別管理班級(jí)

7、管理課程管理學(xué)籍管理成績管理成績查詢圖1.1 教務(wù)管理系統(tǒng)模塊圖1.4 系統(tǒng)開發(fā)平臺(tái)前臺(tái)：1、 硬件要求：cpu: pentium 4 2.0ghz以上ibm兼容機(jī)內(nèi)存：512mb以上容量顯卡：32mb或以上顯存之a(chǎn)gp接口顯卡2、軟件要求：操作系統(tǒng)：microsoft windows 2000/xp開發(fā)工具：microsoft visual studio.net2005數(shù)據(jù)庫服務(wù)器：1、 硬件要求：cpu: pentium4 2.8ghz以上ibm兼容機(jī)內(nèi)存：1024mb以上容量顯卡：32mb或以上顯存之a(chǎn)gp接口顯卡2、 軟件要求：操作系統(tǒng)：microsoft windows xp數(shù)據(jù)庫服

8、務(wù)器：microsoft sql server 2000第二章 總體設(shè)計(jì)2.1 設(shè)計(jì)系統(tǒng)模塊2.1.1系統(tǒng)功能 根據(jù)需求，系統(tǒng)要實(shí)現(xiàn)如下功能： （1）登錄管理 （2）用戶管理（3）教務(wù)基本信息管理（4）教務(wù)信息管理2.1.2 系統(tǒng)功能模塊劃分 系統(tǒng)功能模塊劃分如下所示： 登錄管理模塊：為了系統(tǒng)的安全性，根據(jù)不同權(quán)限給出不同服務(wù)。 用戶管理模塊：僅系統(tǒng)管理員可用，對這個(gè)系統(tǒng)的所有用戶進(jìn)行管理。 教務(wù)基本信息管理模塊：對各基本表進(jìn)行管理。 1、課程管理子模塊 2、學(xué)籍管理子模塊 3、班級(jí)管理子模塊 4、系別管理子模塊 5、課程管理子模塊 6、成績管理子模塊 教務(wù)信息查詢模塊：在各基本表的基礎(chǔ)上進(jìn)行

9、信息的查詢。 成績查詢子模塊2.2 設(shè)計(jì)數(shù)據(jù)庫2.2.1創(chuàng)建數(shù)據(jù)庫(1)在服務(wù)器資源管理器中的任一節(jié)點(diǎn)右擊。(2)執(zhí)行快捷菜單中的“新建數(shù)據(jù)庫”命令,并在打開的“創(chuàng)建數(shù)據(jù)庫”對話框中輸入數(shù)據(jù)庫名student，選中“使用windowsnt集成安全性”單選按鈕。(3)單擊“確定”按鈕，則新建的數(shù)據(jù)庫就會(huì)出現(xiàn)在服務(wù)器上。2.2.2創(chuàng)建數(shù)據(jù)表創(chuàng)建數(shù)據(jù)庫后，為student數(shù)據(jù)庫添加數(shù)據(jù)表，步驟如下。(1)在服務(wù)器資源管理器中右擊數(shù)據(jù)庫student下的“表”文件夾。在彈出的快捷菜單中執(zhí)行“新建表”命令，出現(xiàn)表設(shè)計(jì)器。(2)添加表的字段和其他詳細(xì)資料。各表數(shù)據(jù)結(jié)構(gòu)如下表所示。表 名列 名數(shù)據(jù)類型含義u

10、serinfouseridnvarchar用戶編號(hào)（主鍵）userpwdnvarchar用戶密碼usertypeint用戶類別departmentinfodepartmentidint系編號(hào)departmentnvarchar系名depmanagernvarchar系主任classinfoclassidint班級(jí)編號(hào)departmentidint系編號(hào)classyearint班級(jí)年份classnumbernvarchar班級(jí)名courseinfocourseidint課程編號(hào)coursenamenvarchar課程名courseteachernvarchar任課老師coursepointint

11、課程學(xué)分courseabouttext課程簡介nnstudentinfostudetidint學(xué)生編號(hào)studetnnamenvarchar學(xué)生姓名sexnvarchar學(xué)生性別classidint所屬班號(hào)birthdaydatetime生日personcardidnvarchar身份證號(hào)studentphotoimage本人照片resultstudentidint學(xué)生編號(hào)courseidint課程編號(hào)resultint分?jǐn)?shù)teachernvarchar任課老師indatedatetime錄入時(shí)間表2.1 教務(wù)管理系統(tǒng)各表數(shù)據(jù)結(jié)構(gòu)2.3 公共模塊2.3.1 添加全局變量在此系統(tǒng)中，總共有五個(gè)全

12、局變量:1、userflag變量的類型為boolean，記錄了是否有用戶記錄被添加或者修改。 public userflag as boolean 2、user變量的類型為string,記錄了用戶管理中的主鍵信息。 public user as string 3、userid變量的類型為string,記錄了登錄用戶的id信息。 public userid as string 4、userright變量的類型為int16,記錄了登錄用戶的權(quán)限信息。 5、sqlcon變量的類型為sqlconnection,是全局的數(shù)據(jù)庫連接變量。 public sqlcon as new sqlconnectio

13、n (“data source=20100908-0956;database=student;user id =sa;pwd=sa”)2.3.2定義公共函數(shù)1、judgeint函數(shù)：判斷輸入文本是否為整數(shù)。2、judgekeyexist函數(shù)：判斷某數(shù)據(jù)表中某主鍵值是否存在。3、重寫judgekeyexist函數(shù)：判斷某數(shù)據(jù)表中某主鍵取值是否是字符串。4、重寫judgekeyexist函數(shù)：判斷某數(shù)據(jù)表中某主鍵是否是雙主鍵，并且主鍵值均為整型。第三章 詳細(xì)設(shè)計(jì)3.1主窗體設(shè)計(jì)本系統(tǒng)集成了“登錄”模塊，因此在系統(tǒng)加載時(shí)，需要先啟動(dòng)“登錄”模塊的“登錄”窗體，只有用戶輸入了正確的用戶名和密碼后才能進(jìn)

14、入到系統(tǒng)。主窗體首先啟動(dòng)“登錄”窗體，“登錄”窗體運(yùn)行界面如圖1所示：圖1代碼如下：public class login inherits system.windows.forms.form public flag = false private sub btok_click(byval sender as system.object, byval e as system.eventargs) handles btok.click if me.tbname.text.trim() = string.empty then messagebox.show(姓名不能為空) me.tbname.foc

15、us() elseif me.tbpwd.text.trim() = string.empty then messagebox.show(密碼不能為空) me.tbpwd.focus() else dim sql as string = select * from userinfo where userid = + me.tbname.text.trim() + and userpwd = + me.tbpwd.text.trim() + dim dt as datatable = getdatatable(sql) if dt.rows.count = 0 then messagebox.s

16、how(用戶名不存在或密碼不正確) me.tbpwd.focus() else userright = dt.rows(0)(usertype) userid = me.tbname.text.trim() flag = true me.close() end if end if end sub private sub btcancel_click(byval sender as system.object, byval e as system.eventargs) handles btcancel.click application.exit() end sub登陸成功后，并不是所有的菜單對

17、所有用戶來說都是可見的，在本系統(tǒng)中，共有三個(gè)角色，按不同角色登錄后，運(yùn)行的主窗體是不同的。登錄成功后顯示主窗體，“系統(tǒng)管理員登陸后”界面如圖2所示：圖2代碼如下：public class frmmain inherits system.windows.forms.form#region windows 窗體設(shè)計(jì)器生成的代碼#end region private sub frmmain_load(byval sender as object, byval e as system.eventargs) handles mybase.load dim check as boolean = true

18、try do dim login as new login login.showdialog() if login.dialogresult = dialogresult.ok and login.flag then check = false elseif login.dialogresult = dialogresult.cancel then me.close() check = false end if loop while check if userright = 1 then me.user.visible = false elseif userright = 2 then me.

19、user.visible = false mmanager.visible = false end if catch ex as exception writeerr(ex) end try end sub private sub user_click(byval sender as system.object, byval e as system.eventargs) handles user.click dim frmuser as new frmuser frmuser.mdiparent = me frmuser.show() end sub private sub cou

20、rseman_click(byval sender as system.object, byval e as system.eventargs) handles courseman.click dim frmcourse as new frmcourse frmcourse.mdiparent = me frmcourse.show() end sub private sub studentman_click(byval sender as system.object, byval e as system.eventargs) handles studentman.click dim frms

21、tudent as new frmstudent frmstudent.mdiparent = me frmstudent.show() end sub private sub classman_click(byval sender as system.object, byval e as system.eventargs) handles classman.click dim frmclass as new frmclass frmclass.mdiparent = me frmclass.show() end sub private sub departmentman_click(byva

22、l sender as system.object, byval e as system.eventargs) handles departmentman.click dim frmdep as new frmdepartment frmdep.mdiparent = me frmdep.show() end sub private sub resultman_click(byval sender as system.object, byval e as system.eventargs) handles resultman.click dim frmresult as new frmresu

23、lt frmresult.mdiparent = me frmresult.show() end sub private sub resultquery_click(byval sender as system.object, byval e as system.eventargs) handles resultquery.click dim frmquery as new frmquery frmquery.mdiparent = me frmquery.show() end sub private sub changemypwd_click(byval sender as system.o

24、bject, byval e as system.eventargs) handles changemypwd.click dim changepwd as new changepwd changepwd.showdialog() end sub private sub exitme_click(byval sender as system.object, byval e as system.eventargs) handles exitme.click exitme.visible = false user.visible = false infomanager.visible = fals

25、e infoquery.visible = false end sub private sub relogin_click(byval sender as system.object, byval e as system.eventargs) handles relogin.click dim check as boolean = true try do dim login as new login login.showdialog() if login.dialogresult = dialogresult.ok and login.flag then check = false elsei

26、f login.dialogresult = dialogresult.cancel then me.close() check = false end if loop while check if userright = 0 then me.user.visible = true mmanager.visible = true mquery.visible = true elseif userright = 1 then mmanager.visible = true mquery.visible = true elseif userright

27、 = 2 then mquery.visible = true end if catch ex as exception writeerr(ex) end try end subend class“信息管理員登錄后”界面如圖3所示：圖3“信息查詢員登陸后”界面如圖4所示：圖43.2用戶管理窗體運(yùn)行后。將在“用戶管理”窗體中顯示所有的用戶信息。“用戶管理”窗體在運(yùn)行中的界面如圖5所示代碼如下：imports system.data.sqlclientimports system.iopublic class frmuser inherits system.windows.forms.

28、form dim usertype as int16 dim userpwd as string#region windows 窗體設(shè)計(jì)器生成的代碼 #end region private sub frmuser_load(byval sender as object, byval e as system.eventargs) handles mybase.load binddata() end sub public sub binddata() try dim sql as string = select userid as 用戶名,userpwd as 用戶密碼,usertype as 用

29、戶權(quán)限 from userinfo dim dt as datatable = getdatatable(sql) listbox1.datasource = dt listbox1.displaymember = 用戶名 catch ex as exception writeerr(ex) end try end sub private sub deletedata() dim sql as string = delete from userinfo where userid= + user + dim sqlcmd as new sqlcommand sqlcmd.connection =

30、 sqlcon sqlcmd.commandtext = sql try sqlcon.open() sqlcmd.executenonquery() messagebox.show(刪除記錄成功) catch ex as exception messagebox.show(刪除記錄失敗) writeerr(ex) finally sqlcon.close() end try binddata() end sub private sub menuitem1_click(byval sender as system.object, byval e as system.eventargs) han

31、dles menuitem1.click dim frminsert as new frmuserinsert frminsert.text = 用戶添加 user = frminsert.showdialog() if frminsert.dialogresult = dialogresult.ok and userflag then binddata() end if end sub private sub menuitem2_click(byval sender as system.object, byval e as system.eventargs) handles menuitem

32、2.click dim frminsert as new frmuserinsert frminsert.text = 用戶修改 if listbox1.selectedindex = -1 then messagebox.show(請選擇用戶) else user = listbox1.text frminsert.showdialog() if frminsert.dialogresult = dialogresult.ok and userflag then binddata() end if end if end sub private sub menuitem3_click(byva

33、l sender as system.object, byval e as system.eventargs) handles menuitem3.click if listbox1.selectedindex = -1 then messagebox.show(請選擇用戶) else user = listbox1.text if messagebox.show(確定要?jiǎng)h除？, 刪除確認(rèn), messageboxbuttons.okcancel, messageboxicon.warning, messageboxdefaultbutton.button2) = dialogresult.ok

34、 then me.deletedata() end if end if end subend class3.3系別管理“系別管理”窗體界面運(yùn)行如圖5所示：圖5該窗體是用windows窗體設(shè)計(jì)器生成的代碼，因此在此不作說明。只簡單說明添加系別的代碼如下：imports system.data.sqlclientimports system.iopublic class frmdepartmentinherits system.windows.forms.formprivate sub datagrid1_currentcellchanged(byval sender as object, byv

35、al e as system.eventargs) handles datagrid1.currentcellchanged bindtextbox(me.datagrid1.currentcell.rownumber) end sub private sub btnadd_click(byval sender as system.object, byval e as system.eventargs) handles btnadd.click if me.txtdepid.text.trim() = string.empty then messagebox.show(系編號(hào)不能為空) me.

36、txtdepid.focus() elseif not judgeint(txtdepid.text.trim) then messagebox.show(系編號(hào)必須為整數(shù)) me.txtdepid.focus() elseif judgekeyexist(departmentinfo, departmentid, txtdepid.text.trim) then messagebox.show(系編號(hào)已經(jīng)存在) me.txtdepid.focus() elseif me.txtdepname.text.trim() = string.empty then messagebox.show(系名

37、不能為空) me.txtdepname.focus() elseif me.txtdepman.text.trim() = string.empty then messagebox.show(系主任不能為空) me.txtdepman.focus() else me.insertdata() end if end sub private sub btnedit_click(byval sender as system.object, byval e as system.eventargs) handles btnedit.click if me.txtdepid.text.trim() = s

38、tring.empty then messagebox.show(系編號(hào)不能為空) me.txtdepid.focus() elseif not judgeint(txtdepid.text.trim) then messagebox.show(系編號(hào)必須為整數(shù)) me.txtdepid.focus() elseif not judgekeyexist(departmentinfo, departmentid, txtdepid.text.trim) then messagebox.show(要更新的記錄集不存在) me.txtdepid.focus() elseif me.txtdepnam

39、e.text.trim() = string.empty then messagebox.show(系名不能為空) me.txtdepname.focus() elseif me.txtdepman.text.trim() = string.empty then messagebox.show(系主任不能為空) me.txtdepman.focus() else me.updatedata() end if end subprivate sub insertdata() dim depid as int16 = int16.parse(txtdepid.text.trim) dim depna

40、me as string = txtdepname.text.trim dim depman as string = txtdepman.text.trim dim value as string = depid.tostring + , + depname + , + depman + dim sql as string = insert into departmentinfo (departmentid, department,depmanager) values( + value + ) dim sqlcmd as new sqlcommand sqlcmd.connection = s

41、qlcon sqlcmd.commandtext = sql try sqlcon.open() sqlcmd.executenonquery() messagebox.show(添加記錄成功) catch ex as exception messagebox.show(添加記錄失敗) writeerr(ex) finally sqlcon.close() end try binddata() end sub3.4 班級(jí)管理“班級(jí)管理”窗體界面運(yùn)行如圖6所示：圖6該窗體是用windows窗體設(shè)計(jì)器生成的代碼，因此在此不作說明。只簡單說明修改班級(jí)的代碼如下：imports system.data

42、.sqlclientimports system.iopublic class frmdepartmentinherits system.windows.forms.formprivate sub updatedata() dim classid as int16 = int16.parse(txtclassid.text.trim) dim classyear as string = cmbclassyear.text.trim dim classdep as string = depnametoid(cmbclassdep.text.trim) dim classnum as string

43、 = txtclassnum.text.trim dim sql as string = update classinfo set classyear= + classyear + ,departmentid= + classdep + ,classnumber= + classnum + where classid= + classid.tostring dim sqlcmd as new sqlcommand sqlcmd.connection = sqlcon sqlcmd.commandtext = sql try sqlcon.open() sqlcmd.executenonquer

44、y() messagebox.show(修改記錄成功) catch ex as exception messagebox.show(修改記錄失敗) writeerr(ex) finally sqlcon.close() end try bindtree() end sub3.5 課程管理“課程管理”窗體界面運(yùn)行如圖7所示：圖7該窗體是用windows窗體設(shè)計(jì)器生成的代碼，因此在此不作說明。只簡單說明刪除班級(jí)的代碼如下： private sub deletedata() dim courseid as int16 = int16.parse(txtcourseid.text.trim) dim sql as string = delete from courseinfo where courseid= + courseid.tostring() dim sqlcmd as new sqlcommand sqlcmd.connection = sqlcon sqlcmd.commandtext = sql try sqlcon.open() sqlcmd.executenonquery() messagebox.show(刪除記錄成功) catch ex as exception messagebox.show(刪除記錄失敗) writeerr(ex