(最新整理)教職員工設(shè)計(jì)管理系統(tǒng)

1、(完整)教職員工設(shè)計(jì)管理系統(tǒng)(完整)教職員工設(shè)計(jì)管理系統(tǒng) 編輯整理：尊敬的讀者朋友們：這里是精品文檔編輯中心，本文檔內(nèi)容是由我和我的同事精心編輯整理后發(fā)布的，發(fā)布之前我們對(duì)文中內(nèi)容進(jìn)行仔細(xì)校對(duì)，但是難免會(huì)有疏漏的地方，但是任然希望（(完整)教職員工設(shè)計(jì)管理系統(tǒng)）的內(nèi)容能夠給您的工作和學(xué)習(xí)帶來便利。同時(shí)也真誠的希望收到您的建議和反饋，這將是我們進(jìn)步的源泉，前進(jìn)的動(dòng)力。本文可編輯可修改，如果覺得對(duì)您有幫助請(qǐng)收藏以便隨時(shí)查閱，最后祝您生活愉快 業(yè)績進(jìn)步，以下為(完整)教職員工設(shè)計(jì)管理系統(tǒng)的全部內(nèi)容。24 數(shù)據(jù)庫課程設(shè)計(jì)說明書 課題：教職員設(shè)計(jì)管理系統(tǒng)學(xué)院:土木工程學(xué)院班級(jí)：交通運(yùn)輸c101成員：趙久

2、志106903 馬曉靜106874 王廣嶺106892 陶玉芳106878 潘 翔106889日期：2012年6月 18日 第一章 前言1.1 sql簡介本設(shè)計(jì)組合了sql服務(wù)以及vb程序設(shè)計(jì)，以vb為前臺(tái)程序完成的增刪查。 sql（structured query language)結(jié)構(gòu)化查詢語言，是一種數(shù)據(jù)庫查詢和程序設(shè)計(jì)語言，用于存取數(shù)據(jù)以及查詢、更新和管理關(guān)系數(shù)據(jù)庫系統(tǒng)。sql語言包含4個(gè)部分: 數(shù)據(jù)定義語言(ddl)，例如：create、drop、alter等語句。 數(shù)據(jù)操作語言（dml)，例如：insert（插入）、update（修改）、delete（刪除）語句. 數(shù)據(jù)查詢語言（d

3、ql）,例如：select語句. 數(shù)據(jù)控制語言（dcl),例如:grant、revoke、commit、rollback等語句。sql語言包括三種主要程序設(shè)計(jì)語言類別的語句：數(shù)據(jù)定義語言（ddl），數(shù)據(jù)操作語言（dml）及數(shù)據(jù)控制語言（dcl)。1.2 sql功能介紹 sql 面向數(shù)據(jù)庫執(zhí)行查詢；sql 可從數(shù)據(jù)庫取回?cái)?shù)據(jù);sql 可在數(shù)據(jù)庫中插入新的記錄；sql 可更新數(shù)據(jù)庫中的數(shù)據(jù)；sql 可從數(shù)據(jù)庫刪除記錄;sql 可創(chuàng)建新數(shù)據(jù)庫；sql 可在數(shù)據(jù)庫中創(chuàng)建新表；sql 可在數(shù)據(jù)庫中創(chuàng)建存儲(chǔ)過程;sql 可在數(shù)據(jù)庫中創(chuàng)建視圖；sql 可以設(shè)置表、存儲(chǔ)過程和視圖的權(quán)限。1。3 vb功能介紹v

4、isual basic是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動(dòng)編程語言.從任何標(biāo)準(zhǔn)來說，vb都是世界上使用人數(shù)最多的語言。程序設(shè)計(jì)部分2.1教職員工設(shè)計(jì)管理系統(tǒng) 設(shè)計(jì)數(shù)據(jù)庫的名字叫做教職員工設(shè)計(jì)管理程序,包括七個(gè)模板:1信息管理2教師信息查詢3授課信息管理4授課信息查詢5課程信息管理6課程信息查詢7退出。本程序由vb設(shè)計(jì)完成。2.2 需求分析數(shù)據(jù)庫將要存儲(chǔ)的數(shù)據(jù)有：教師表 通過該軟件可以簡單明了的查詢教師職工信息,并添加有用信息，比如，在下圖1中可輸入新的絕教師職工信息，單擊添加便可將信息加入表中。其他按鈕可由名稱得知其作用,對(duì)于各個(gè)學(xué)校的教師招聘，以及退休教師職工便由此軟件完成表中信

5、息的拆刪查。2.3 邏輯結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫建模（e_r圖)民族姓名性別聯(lián)系電話教師編號(hào)出生日期教職員工2.4 邏輯結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫結(jié)構(gòu)如下：教職員工表jnumberjnamejsexjnationjbirthjphone100110021003100410051006100710081009101010111012101310141015101610172.5數(shù)據(jù)庫實(shí)現(xiàn)過程2。5.1創(chuàng)建數(shù)據(jù)庫2.5.2 vb窗體設(shè)計(jì) （1）private sub chaxun_click()form3。showend subprivate sub exit_click(）endend subprivate sub

6、guanli_click(）form4。showend subprivate sub jiaoshixinxiguanli_click（）form2.showend subprivate sub kechengxinxiguanli_click()form6.showend subprivate sub label11_click(）form3.showend subprivate sub label12_click（）form4。showend subprivate sub label13_click()form5。showend subprivate sub label14_click（）

7、form6.showend subprivate sub label15_click()endend subprivate sub label16_click()form7.showend subprivate sub label8_click（)form2。showend subprivate sub 課程查詢_click(）form5.showend subprivate sub 課程信息查詢_click(）form7。showend sub（2）private sub command1_click（) text1。text = ” text2。text = text3。text = ”

8、text4.text = text5.text = text6。text = end subprivate sub command2_click(） dim temp1 temp1 = 1000 if adodc1.recordset。recordcount 0 then adodc1。recordset.movelast temp1 = val（adodc1。recordset。fields（jnumber)） + 1 else temp1 = temp1 + ”0001” end if text1.text = temp1end subprivate sub command3_click（

9、）on error goto errorhandle if text1 = ” then msgbox 請(qǐng)輸入學(xué)號(hào)！, vbinformation else dim sql as string sql = insert into jteacher values（ & text1 ”， text2 & ”,” text3 & , & text4 ”, text5 & ,” text6 ”)” cnn.execute （sql） adodc1.refresh text1 = ” end if exit suberrorhandle：msgbox 學(xué)生信息輸入有誤，請(qǐng)檢查學(xué)號(hào)是否重復(fù)！end sub

10、private sub command4_click() adodc1。recordset.deleteend subprivate sub command5_click（) unload meend subprivate sub sstab1_dblclick（）end sub（3）private sub command1_click（) text9.text = text10.text = ” text11.text = ” text12.text = ”end subprivate sub command2_click(）dim temp1 temp1 = 1000 if adodc1.

11、recordset.recordcount 0 then adodc1.recordset.movelast temp1 = val(adodc1.recordset。fields（jnumber）) + 1 else temp1 = temp1 + 0001” end if text1.text = temp1end subprivate sub command3_click（)on error goto errorhandle if text1 = then msgbox ”請(qǐng)輸入！， vbinformation else dim sql as string sql = insert in

12、to jteaching values(” & text1 & ”,” & text2 & ”， text3 ， text4 & ”）” cnn.execute （sql） adodc1.refresh text1 = ” end if exit suberrorhandle：msgbox ”輸入有誤，請(qǐng)檢查！end subprivate sub command4_click(）adodc1。recordset。deleteend subprivate sub command5_click(）unload meend subprivate sub form_load(）end sub（4）pr

13、ivate sub command1_click()dim temp1 temp1 = 0 dim sql as string sql = ” if text1。text then if temp1 = 0 then sql = sql + where else sql = sql + and end if sql = sql + ”jknumber=” + text3.text + ” temp1 = temp1 + 1 end if if text4。text then if temp1 = 0 then sql = sql + ”where ” else sql = sql + ” an

14、d ” end if sql = sql + jcourse= + text4。text + ” temp1 = temp1 + 1 end if sql = ”select from jteaching + sql + ” order by jnumber adodc1。recordsource = sql adodc1.refresh end subprivate sub command2_click（）unload meend subprivate sub form_load（)end sub（5）private sub command1_click() text1。text = tex

15、t2。text = end subprivate sub command2_click(）dim temp1 temp1 = 1000 if adodc1.recordset。recordcount 0 then adodc1.recordset。movelast temp1 = val（adodc1.recordset。fields（”jknumber)） + 1 else temp1 = temp1 + 0001” end if text1.text = temp1end subprivate sub command3_click()on error goto errorhandle if

16、 text1 = ” then msgbox ”請(qǐng)輸入課程號(hào)！”， vbinformation else dim sql as string sql = ”insert into jcourse values(” text1 ,” & text2 & ）” cnn.execute (sql） adodc1。refresh text1 = ” end if exit suberrorhandle：msgbox 學(xué)生信息輸入有誤，請(qǐng)檢查學(xué)號(hào)是否重復(fù)！end subprivate sub command4_click（）adodc1。recordset。deleteend subprivate su

17、b command5_click()unload meend subprivate sub form_load（）end sub(6)private sub command1_click（) temp1 = 0 dim sql as string sql = ” if text7.text ” then if temp1 = 0 then sql = sql + ”where ” else sql = sql + ” and end if sql = sql + ”jcourse=” + text8。text + ” temp1 = temp1 + 1 end if sql = ”select

18、 * from jcourse ” + sql + ” order by jknumber adodc1.recordsource = sql adodc1.refreshend subprivate sub command2_click()unload meend subprivate sub form_load（)end sub2.5.3查詢添加或保存一個(gè)教師職工姓名一些基本信息，如下：圖1第三章 總結(jié)課程設(shè)計(jì)是培養(yǎng)學(xué)生綜合運(yùn)用所學(xué)知識(shí) ,發(fā)現(xiàn),提出，分析和解決實(shí)際問題,鍛煉實(shí)踐能力的重要環(huán)節(jié)，是對(duì)我們的實(shí)際工作能力的具體訓(xùn)練和考察過程.隨著科學(xué)技術(shù)發(fā)展的日新月異，當(dāng)今計(jì)算機(jī)應(yīng)用在生活中可

19、以說得是無處不在。因此作為二十一世紀(jì)的大學(xué)生來說掌握程序開發(fā)技術(shù)是十分重要的，而sql語言又是最常見，功能最強(qiáng)大的一種后臺(tái)服務(wù)語言，因此做好sql語言課程設(shè)計(jì)是十分必要的.回顧起此次課程設(shè)計(jì)，至今我們?nèi)愿锌H多，的確，自從拿到題目到完成整個(gè)編程，從理論到實(shí)踐，在整整大半個(gè)月的日子里，可以學(xué)到很多很多的東西，同時(shí)不僅可以鞏固了以前所學(xué)過的知識(shí)，而且學(xué)到了很多在書本上所沒有學(xué)到過的知識(shí)。通過這次課程設(shè)計(jì)使我們懂得了理論與實(shí)際相結(jié)合是很重要的，只有理論知識(shí)是遠(yuǎn)遠(yuǎn)不夠的，只有把所學(xué)的理論知識(shí)與實(shí)踐相結(jié)合起來，從理論中得出結(jié)論,才能真正為社會(huì)服務(wù)，從而提高自己的實(shí)際動(dòng)手能力和獨(dú)立思考的能力.在設(shè)計(jì)的過程

20、中遇到問題，可以說得是困難重重,這畢竟第一次做的，難免會(huì)遇到過各種各樣的問題,同時(shí)在設(shè)計(jì)的過程中發(fā)現(xiàn)了自己的不足之處，對(duì)一些前面學(xué)過的知識(shí)理解得不夠深刻，掌握得不夠牢固，比如說圖形用戶設(shè)計(jì)中的一些按鈕、標(biāo)簽通過這次課程設(shè)計(jì)之后，我們把前面所學(xué)過的知識(shí)又重新溫故了一遍。我們小組做的是學(xué)生成績管理系統(tǒng)，雖然是很簡單的一個(gè)小的程序，但對(duì)我們小組初學(xué)者來說卻是一個(gè)很大的困難.雖然是第一次做課程設(shè)計(jì)，但是第一天下午在機(jī)房做了一個(gè)下午卻絲毫沒有進(jìn)展，最主要是不知從何開始,這個(gè)時(shí)候才知道上課老師們不厭其煩的教導(dǎo)是多么的寶貴,這個(gè)時(shí)候才后悔上課的時(shí)候沒有認(rèn)真的聽講?？墒乾F(xiàn)在一切都晚了，還好時(shí)間還算是充裕,只好

21、拿出書本重新復(fù)習(xí)一下. 特別是后面的視圖、存儲(chǔ)過程、觸發(fā)器的知識(shí)，幾乎是一片空白。還有一些語句的沒有可以熟練掌握,不過經(jīng)過幾天的努力，大體上把課本上的知識(shí)點(diǎn)看了一遍,知識(shí)點(diǎn)也都基本是撐握了，所以下一步就是開始正式的編程序了。不過畢竟是個(gè)沒有做過，還是不知如何下手，于是就在網(wǎng)上下了一篇類似的程序，經(jīng)過仔細(xì)的研究，終于讀懂了sql語言編程的基本過程和方法。 經(jīng)過一波三折，終于開始正式編程.編程是一件很枯燥很無聊的事情，但是出于完成作業(yè),得到學(xué)分的壓力，還必須強(qiáng)迫自己堅(jiān)持下去，按照老師所說的模塊化思想，分部分的進(jìn)行編寫，我們小組進(jìn)行了嚴(yán)密的分工,謝平平負(fù)責(zé)收集材料，王義心負(fù)責(zé)寫代碼,范鑫鑫負(fù)責(zé)打印報(bào)告，經(jīng)過我們共同努