利用VF設(shè)計(jì)人事管理數(shù)據(jù)庫系統(tǒng)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上中國礦業(yè)大學(xué)礦業(yè)工程學(xué)院實(shí)驗(yàn)報(bào)告課程名稱 數(shù)據(jù)庫與運(yùn)輸信息系統(tǒng)姓名 周軻雯 班級 交通運(yùn)輸10-1班學(xué)號 日期 2013年6月成績 教師 王振軍超市管理系統(tǒng)設(shè)計(jì)一、 準(zhǔn)備工作1、建立文件夾在系統(tǒng)的E盤建立一個(gè)文件夾用以存放此次設(shè)計(jì)的各種格式的數(shù)據(jù)、文件、程序等，文件命名為：超市管理系統(tǒng)。文件夾地址為：E:超市管理系統(tǒng)2、需求分析在此系統(tǒng)中的數(shù)據(jù)庫要包含：員工表，部門職位表，工資表，缺勤表，以及自由表操作員表。數(shù)據(jù)庫表：員工表：員工編號，員工姓名，性別，出生日期，工作日期，學(xué)歷，婚否，部門，職稱，備注說明部門職位表：部門名稱，部門代號，職位名稱，職位代號工資表：員工編號

2、，員工姓名，基本工資，津貼，獎(jiǎng)金，應(yīng)發(fā)工資，缺勤扣款，醫(yī)療保險(xiǎn)，住房基金，所得稅，實(shí)發(fā)工資，發(fā)出日期缺勤表：員工編號，員工姓名，缺勤日期，缺勤類別自由表：操作員表：序號，操作員編號，操作員密碼，操作員級別二、 數(shù)據(jù)庫與表的創(chuàng)建建立一個(gè)項(xiàng)目文件，文件名稱為：超市管理系統(tǒng)，在此項(xiàng)目下建立“超市管理的人事管理系統(tǒng)”，在工具-選項(xiàng)中將默認(rèn)目錄設(shè)置為：e:超市管理系統(tǒng)，將日期格式設(shè)置為年月日，24小時(shí)制，選擇“年份”選項(xiàng)，選擇“星期開始于”為“星期一”，設(shè)置為默認(rèn)值。在此數(shù)據(jù)庫下建立各表。員工表：注一：依次設(shè)置標(biāo)題為：員工編號，員工姓名，性別，出生日期，工作日期，學(xué)歷，婚否，部門，職稱，備注注二：字段有

3、效性規(guī)則設(shè)置為：xb字段為：xb=”男” or xb=”女”部門職位表：注一：字段標(biāo)題依次設(shè)置為：部門名稱，部門代號，職位名稱，職位代號注一：字段的標(biāo)題依次設(shè)置為：員工編號，員工姓名，基本工資，津貼，獎(jiǎng)金，應(yīng)發(fā)工資，缺勤扣款，醫(yī)療保險(xiǎn)，住房基金，所得稅，實(shí)發(fā)工資，發(fā)出日期缺勤登記表：注一：字段的標(biāo)題依次設(shè)置為：員工編號，員工姓名，缺勤日期，缺勤類別操作員表：三、 查詢與視圖在本程序中沒有利用查詢設(shè)計(jì)器來建設(shè)查詢，而是利用表單來設(shè)立查詢。由于數(shù)據(jù)環(huán)境不是特別復(fù)雜，所以也并沒有建立視圖。四、 表單（1） 操作員管理數(shù)據(jù)環(huán)境為操作員表，文本框text2，text3的PasswordChar屬性為“*

4、”命令按鈕“確認(rèn)”代碼：public czybh,czymm,zcsrmm,czyjbczybh=thisform.text1.valueczymm=thisform.text2.valuezcsrmm=thisform.text3.valueczyjb=thisform.text4.valuelocate for allt(操作員編號)=allt(czybh) if !eof() =messagebox("此編號已經(jīng)存在，請重新輸入！") thisform.text1.value="" thisform.text1.setfocus else if c

5、zymm<>zcsrmm =messagebox("密碼輸入不一致，請確認(rèn)！") thisform.text2.value="" thisform.text3.value="" thisform.text2.setfocus else insert into 操作員表(操作員編號,操作員密碼,操作員級別) values (czybh,czymm,czyjb) =messagebox("輸入成功！") endif endifthisform.text1.value=""thisform

6、.text2.value="" thisform.text3.value="" thisform.text4.value=""命令按鈕“退出”代碼：thisform.release（2） 修改操作員密碼數(shù)據(jù)環(huán)境為“操作員表”，文本框text1，text2，text3的PasswordChar屬性為“*”。命令按鈕“確定”代碼為：locate for 操作員編號=czybh if not allt(czymm)=allt(thisform.text1.value) =messagebox("原密碼輸入錯(cuò)誤，請重新輸入！&quo

7、t;) thisform.text1.value="" thisform.text2.value="" thisform.text3.value="" thisform.text1.setfocus else if not allt(thisform.text2)=allt(thisform.text3) =messagebox("兩次輸入密碼不一致，請重新輸入！") thisform.text2.value="" thisform.text3.value="" thisfo

8、rm.text2.setfocus else replace czymm with thisform.text2.value =messagebox("密碼修改成功！") thisform.release endif endif（3） 員工錄入登記 數(shù)據(jù)環(huán)境為“員工表”和“部門職位表”，選項(xiàng)按鈕組的ButtonCount屬性為“2”,組合框combo1的RowsourceType屬性為3，Rowsource屬性為“select distinct 部門職位表.bmmc from 部門職位表 into cursor temp2”，組合框Combo1的InteractiveCha

9、nge過程為：bo2.rowsource="select distinct 部門職位表.zwmc ;from 部門職位表 where 部門職位表.bmmc=bo1.value into cursor temp3"命令按鈕的“保存”的Click過程為：public ygbh1,ygxm1,xb1,hf1,csrq1,gzrq1,bm1,zw1,xl1,bz1ygbh1=thisform.text1.valueygxm1=thisform.text2.valuecsrq1=ctod(thisform.text3.value)gzrq1=ctod(thisform.text4.v

10、alue)bm1=bo1.valuezw1=bo2.valuexl1=thisform.text5.valuebz1=thisform.text7.valuelocate for allt(員工表.ygbh)=allt(thisform.text1.value)if !eof() =messagebox("編號輸入重復(fù)！")else ygbh=thisform.text1.valueendifdo case case thisform.optiongroup1.option1.value=1 xb1="男" case thisform.optiongro

11、up1.option2.value=1 xb1="女"endcase if thisform.check1.value=0 hf1=.f. else hf1=.t.endifinsert into 員工表(ygbh,ygxm,xb,hf,csrq,gzrq,bm,; zw,xl,bz) values(ygbh1,ygxm1,xb1,; hf1,csrq1,gzrq1,bm1,zw1,xl1,bz1)=messagebox("員工錄入成功！")thisform.text1.value=""thisform.text2.value=&qu

12、ot;"thisform.text3.value=""thisform.text4.value=""thisform.text5.value=""thisform.text7.value=""bo1.value=""bo2.value=""thisform.optiongroup1.value=0thisform.check1.value=0thisform.text1.setfocus命令按鈕的“退出”的Click過程為：thisform.release（4） 員

13、工調(diào)動及刪除數(shù)據(jù)環(huán)境為：員工表（5） 缺勤登記數(shù)據(jù)環(huán)境“缺勤登記表”命令按鈕“確定”的Click過程為：public qqlb1,qqrq1ygbh1=thisform.text1.valueygxm1=thisform.text2.valueqqlb1=thisform.text3.valueqqrq1=ctod(thisform.text4.value)locate for allt(員工表.ygbh)=allt(thisform.text1.value)locate for allt(員工表.ygxm)=allt(thisform.text2.value)if !eof() insert

14、 into 缺勤登記表(ygbh,ygxm,qqlb,qqrq) values (ygbh1,ygxm1,qqlb1,qqrq1)else =messagebox("未找到此員工！")endifthisform.text1.value=""thisform.text2.value=""thisform.text3.value=""thisform.text4.value=""命令按鈕“退出”的Click過程為：thisform.release（6） 工資核算表數(shù)據(jù)環(huán)境為“工資表”命令按鈕“計(jì)算”

15、的Click過程為：public jbgz1,jt1,jj1,yfgz1,qqkk1,ylbx1,zfjj1,sds1,sfgz1jbgz1=val(thisform.text3.value)jt1=val(thisform.text4.value)jj1=val(thisform.text5.value)qqkk1=val(thisform.text7.value)ylbx1=val(thisform.text8.value)zfjj1=val(thisform.text9.value)thisform.text6.value=str(jbgz1+jt1+jj1)yfgz1=val(this

16、form.text6.value)if jbgz1>3000 thisform.text10.value=str(jbgz1*0.17) sds1=val(thisform.text10.value)else thisform.text10.value=0 sds1=0endifthisform.text11.value=str(yfgz1-qqkk1-ylbx1-zfjj1-sds1)sfgz1=val(thisform.text11.value)命令按鈕“輸入工資表”的Click過程為：ygbh1=thisform.text1.valueygxm1=thisform.text2.va

17、luelocate for allt(員工表.ygbh)=allt(thisform.text1.value)locate for allt(員工表.ygxm)=allt(thisform.text2.value)if !eof() insert into 工資表(ygbh,ygxm,jbgz,jt,jj,yfgz,qqkk,ylbx,zfjj,sds,sfgz) values;(ygbh1,ygxm1,jbgz1,jt1,jj1,yfgz1,qqkk1,ylbx1,zfjj1,sds1,sfgz1)=messagebox("錄入成功！")else =messagebox(

18、"未找到此員工！")Endifthisform.text1.value=""thisform.text2.value=""thisform.text3.value=""thisform.text4.value=""thisform.text5.value=""thisform.text6.value=""thisform.text7.value=""thisform.text8.value=""thisform.te

19、xt9.value=""thisform.text10.value=""thisform.text11.value=""thisform.text1.setfocus命令按鈕“退出”的Click過程為：thisform.release（7） 按部門查詢數(shù)據(jù)環(huán)境為“員工表”和“部門職位表”，組合框Combo1的RowSourceType屬性為“3”，RowSource屬性為“select distinct bmmc from 部門職位表 into cursor temp1”命令按鈕“確定”的Click過程為：set filter to

20、bm=bo1.valuethisform.refresh命令按鈕“返回”的Click過程為：set filter tothisform.refresh命令按鈕“退出”的Click過程為：thisform.release五、 報(bào)表設(shè)計(jì)報(bào)表“打印工資清單報(bào)表”，設(shè)計(jì)界面為：數(shù)據(jù)環(huán)境為“工資表”和“部門職位表”，兩者以“zgbh”（職工編號）進(jìn)行內(nèi)部聯(lián)接。瀏覽界面為：六、 菜單菜單設(shè)計(jì)界面如圖：系統(tǒng)管理的子菜單為：注：其中跳過條件為：czyjb<>系統(tǒng)管理員員工管理的子菜單為：工資管理的子菜單為：統(tǒng)計(jì)管理的子菜單為：退出系統(tǒng)的子菜單為：其中“過程”代碼為：close allquit七、

21、主程序和登陸界面設(shè)置一個(gè)setup的prg文件，代碼為：set talk onset default to E:超市管理系統(tǒng)set date to ymdset clock on設(shè)置一個(gè)main的prg文件，將其設(shè)置為主程序，代碼為：do setup.prgdo form 系統(tǒng)登錄.scxread events登錄界面為：系統(tǒng)登錄表單數(shù)據(jù)環(huán)境為“操作員表”，文本框text2控件的passwordchar屬性為“*”命令按鈕“登入系統(tǒng)”代碼：public czybh,czyjbczybh= thisform.text1.valuelocate for allt(操作員編號)=allt(czybh)if not found() =messagebox("該操作員不存在，請重新輸入！") thisform