1、數(shù)據(jù)庫應(yīng)用設(shè)計(jì)設(shè)計(jì)報(bào)告題目名稱：_員工薪資管理_ _設(shè)計(jì)環(huán)境：_ oracle 11g_ _指導(dǎo)教師：_張世玲_專業(yè)班級(jí)：_計(jì)科1401_姓 名：_董嗣川_學(xué) 號(hào)：_513543543_聯(lián)系電話： _電子郵件：_224354354354_設(shè)計(jì)日期：2015年10月25日至2015年11月15 日設(shè)計(jì)報(bào)告日期： 2015 年 11 月 18 日參考文獻(xiàn)1 中國計(jì)算機(jī)科學(xué)與技術(shù)學(xué)科教程2002研究組.中國計(jì)算機(jī)科學(xué)與技術(shù)學(xué)科教程2002.清華大學(xué)出版社，20022 tony greening.21世紀(jì)計(jì)算機(jī)科學(xué)教育.高等教育出版社3 王珊，薩師煊.數(shù)據(jù)庫系統(tǒng)概

2、論（第四版）.高等教育出版社，20064 楊冬青，唐世渭.數(shù)據(jù)庫系統(tǒng)概念（第三版）.機(jī)械工業(yè)出版社，20035 hector garcia-molina，jeffrey d.ullman.數(shù)據(jù)庫系統(tǒng)全書.機(jī)械工業(yè)出版社，20036 宋振會(huì).sql server 2000中文版基礎(chǔ)教程.清華大學(xué)出版社，20057 鄭阿奇. sql server實(shí)用教程.電子工業(yè)出版社，20028 劉自偉.管理信息系統(tǒng)開發(fā)技術(shù).武漢理工大學(xué)出版社，20031. “員工薪資管理系統(tǒng)”程序功能簡介2.1程序概述“員工薪資管理系統(tǒng)”是選用mircrosoft 公司的sql server 2000和vb6.0開發(fā)環(huán)境而設(shè)

3、計(jì)的，并且與sql數(shù)據(jù)庫相連接。能夠很方便的讓員工進(jìn)行信息查詢，以及工資查詢。同時(shí)也方便了管理員對(duì)企業(yè)員工的基本信息和工資信息進(jìn)行管理，實(shí)現(xiàn)對(duì)員工信息進(jìn)行增，刪，改，查。程序界面設(shè)計(jì)簡單明了，容易操作。2.2程序各個(gè)模塊的功能進(jìn)入窗體frmwel：加載界面登錄窗體denglu：學(xué)生和教師實(shí)現(xiàn)用戶名，密碼登錄菜單窗體main：包括相應(yīng)菜單欄，實(shí)現(xiàn)查詢，添加，編輯等查詢窗體chaxun1和chaxun2 查詢員工基本信息和薪資信息編輯信息窗體xxbj 管理員進(jìn)入，對(duì)員工信息進(jìn)行編輯修改密碼窗體xgmm 修改員工和管理員密碼計(jì)算器窗體 scientific 幫助計(jì)算工資添加窗體tjyh 天加用戶關(guān)于

4、窗體about 關(guān)于本程序介紹2.3.程序流程設(shè)計(jì)2.3.1程序設(shè)計(jì)各模塊功能分析2.3.2sql數(shù)據(jù)庫設(shè)計(jì)表設(shè)計(jì)e-r圖各個(gè)表字段名及屬性2.3.3窗體設(shè)計(jì)1)進(jìn)入窗體設(shè)計(jì)frmwel代碼如下：private sub timer1_timer()static n as integer n = n + 1 label3.caption = 正在加載數(shù)據(jù)，請等候 & string(n, .) if n = 2 then with denglu .show end with denglu.show unload me end ifend sub2)登錄窗體denglu設(shè)計(jì)代碼如下option ex

5、plicitprivate sub form_load() label5.width = denglu.scalewidth label5.left = denglu.scalewidth end subprivate sub command2_click() dim intresult as integer 請求用戶確認(rèn)是否真的退出系統(tǒng)登錄 intresult = msgbox(你選擇了退出系統(tǒng)登錄，退出將不能啟動(dòng)員工薪資管理系統(tǒng)！是否真的退出？, vbyesno, 登錄驗(yàn)證) if intresult = vbyes then end 根據(jù)用戶選擇結(jié)束應(yīng)用程序end subprivate

6、sub command1_click()if option1.value = true then dim str as string str = select* from 員工表 where 用戶名= & trim(text1.text) & adodc1.recordsource = str adodc1.refresh if adodc1.recordset.eof = true then msgbox 此用戶名不存在，請重試！, vbokonly + vbexclamation, 登錄 text1.text = text1.setfocus elseif trim(adodc1.reco

7、rdset.fields(密碼) = trim(text2.text) then main.show me.hide else msgbox 密碼不正確，請重試！, vbokonly + vbexclamation, 登錄 end ifend ifif option2.value = true then dim str1 as string str1 = select* from 管理員表 where 用戶名= & trim(text1.text) & adodc2.recordsource = str1 adodc2.refresh if adodc2.recordset.eof = tru

8、e then msgbox 此用戶名不存在，請重試！, vbokonly + vbexclamation, 登錄 text1.text = text1.setfocus elseif trim(adodc2.recordset.fields(密碼) = trim(text2.text) then main.show me.hide else msgbox 密碼不正確，請重試！, vbokonly + vbexclamation, 登錄 end ifend ifend subprivate sub timer1_timer() if label5.left + label5.width = 0

9、then label5.left = label5.left - 50 else label5.left = denglu.scalewidth end ifend sub3)菜單窗體main設(shè)計(jì)代碼：private sub jbxx_click()if denglu.option2.value = true then xxbj.show me.hideelse msgbox 對(duì)不起，您沒有這個(gè)權(quán)限！, vbokonly + vbexclamation, 警告end ifend subprivate sub mmxg_click()xgmm.showme.hideend subprivate

10、sub pc_click()me.hidescientific.showend subprivate sub tcxt_click()me.hidedenglu.showend subprivate sub tj_click()if denglu.option2.value = true then tjyh.show me.hideelse msgbox 對(duì)不起，您沒有這個(gè)權(quán)限！, vbokonly + vbexclamation, 警告end ifend subprivate sub xtjj_click()about.showme.hideend subprivate sub xxcx_c

11、lick()chaxun1.showme.hideend subprivate sub xzcx_click()chaxun2.showme.hideend subprivate sub xzxx_click()if denglu.option2.value = true then xxbj.show me.hideelse msgbox 對(duì)不起，您沒有這個(gè)權(quán)限！, vbokonly + vbexclamation, 警告end ifend sub4)查詢窗體chaxun1和chaxun2設(shè)計(jì)代碼：chuxun1private sub command1_click()dim str1 as s

12、tringif text1 = vbnullstring then msgbox 請輸入所要查詢的員工號(hào), , 錯(cuò)誤 text1.setfocus exit sub if adodc1.recordset.eof = true then msgbox 信息庫中沒有你所要查找的員工的信息！, , 結(jié)果 text1.setfocus text1 = vbnullstring end ifend ifstr1 = select* from 基本表 where 員工號(hào)= & trim(text1.text) & adodc1.recordsource = str1adodc1.refreshend s

13、ubprivate sub command2_click()unload memain.showend subprivate sub command3_click()dim str as string str = select * from 基本表 adodc1.recordsource = str adodc1.refreshend sub代碼chuxun2private sub command1_click()dim str as stringif text1 = vbnullstring then msgbox 請輸入所要查詢的員工號(hào), , 錯(cuò)誤 text1.setfocus exit

14、sub if adodc1.recordset.eof = true then msgbox 信息庫中沒有你所要查找的員工的信息！, , 結(jié)果 text1.setfocus text1 = vbnullstring end ifend if str = select * from 薪資表 where 員工號(hào) = & trim(text1.text) & adodc1.recordsource = str adodc1.refreshend subprivate sub command2_click()unload memain.showend subprivate sub command3_c

15、lick()dim str as string str = select * from 薪資表 adodc1.recordsource = str adodc1.refreshend sub5)編輯信息窗體xxbj設(shè)計(jì)代碼：private str1 as stringprivate str2 as stringprivate sub command1_click(index as integer) dim ask as integer select case index case 0 adodc1.recordset.addnew adodc2.recordset.addnew case 1

16、ask = msgbox(刪除否？, vbyesno) if ask = 6 then adodc1.recordsource = str1 adodc1.recordset.delete adodc1.recordset.movenext if adodc1.recordset.eof then adodc1.recordset.movelast adodc2.recordsource = str2 adodc2.recordset.delete adodc2.recordset.movenext ifadodc2.recordset.eof thenadodc2.recordset.mov

17、elast end if case 2 adodc1.recordset.update adodc2.recordset.update msgbox 更新成功！, vbokonly + vbexclamation, 提示 end selectend subprivate sub command2_click() unload me main.showend subprivate sub command5_click()if text14 = vbnullstring then msgbox 請輸入所要查詢的員工號(hào), , 錯(cuò)誤 text14.setfocus exit subend ifstr1

18、 = select* from 基本表 where 員工號(hào)= & trim(text14.text) & adodc1.recordsource = str1adodc1.refreshstr2 = select* from 薪資表 where 員工號(hào)= & trim(text14.text) & adodc2.recordsource = str2adodc2.refreshif adodc1.recordset.eof = true then msgbox 信息庫中沒有你所要查找的員工的信息！, , 結(jié)果 text14.setfocus text14 = vbnullstring else

19、 text1.text = adodc1.recordset.fields(員工號(hào)) text2.text = adodc1.recordset.fields(姓名) text3.text = adodc1.recordset.fields(性別) text4.text = adodc1.recordset.fields(年齡) text5.text = adodc1.recordset.fields(職業(yè)) text15.text = adodc1.recordset.fields(單位) text7.text = trim(adodc1.recordset.fields(備注) text8

20、.text = adodc2.recordset.fields(基本工資) text9.text = adodc2.recordset.fields(福利補(bǔ)貼) text10.text = adodc2.recordset.fields(獎(jiǎng)勵(lì)工資) text11.text = adodc2.recordset.fields(失業(yè)保險(xiǎn)) text12.text = adodc2.recordset.fields(住房基金) text6.text = adodc2.recordset.fields(員工號(hào)) text16.text = adodc2.recordset.fields(姓名) tex

21、t13.text = val(text8.text) + val(text9.text) + val(text10.text) - val(text11.text) - val(text12.text)end ifend sub6)修改密碼窗體xgmm設(shè)計(jì)代碼private sub command1_click()if trim(text1.text) trim(text2.text) then msgbox 兩次密碼不一致，請重新輸入!, vbokonly + vbexclamation, 信息提示 text1.setfocus text1.text = text2.text = elseif denglu.option1.value = true then adodc1.recordsource = select * from 員工表 where 用戶名= & denglu.text1.text &