【正文】 allow_write_plan文本50可以輸入公司計(jì)劃allow_control_dept_user文本50可以管理部門用戶allow_control_all_user文本50可以管理所有用戶allow_send_note文本50可以發(fā)布通告allow_control_note文本50可以管理通告allow_control_file文本50可以管理公文allow_write_stafinf文本50可以輸入職員資料allow_control_level文本50可以分配用戶權(quán)限allow_edit_person_personinf文本50可以編輯本人基本檔案allow_see_all_personinf文本50可以看所有員工基本檔案allow_see_dept_personinf文本50可以看部門員工基本檔案allow_edit_all_jobchanginf文本50可編輯所有員工職務(wù)變動檔案allow_edit_dept_jobchanginf文本50可編輯本部門員工職位變動檔案allow_edit_all_rewpuninf文本50可編輯所有員工獎懲檔案allow_edit_dept_rewpuninf文本50可編輯所有員工考核檔案可編輯部門員工獎懲檔案allow_edit_all_checkinf文本50可編輯所有員工考核檔案allow_edit_dept_checkinf文本50可編輯部門員工考核檔案allow_edit_all_wageinf文本50可編輯所有員工工資檔案allow_edit_dept_wageinf文本50可編輯部門員工工資檔案allow_edit_person_addressinf文本50可編輯本人的通訊錄allow_edit_dept_addressinf文本50可編輯部門通訊錄allow_edit_all_addressinf文本50可編輯全體員工通訊錄allow_edit_client_addre文本50可編輯客戶通訊錄allow_see_job文本50可以看招聘信息joindate日期/時(shí)間建立時(shí)間21員工工資檔案表表21 員工工資檔案表(wanginf)字段名稱數(shù)據(jù)類型字段大小說明ID自動編號username文本50員工用戶名wagelevel文本50工資級別basewage文本50基本工資stafjob文本50員工職務(wù)jobwage文本50職務(wù)工資workyear文本50員工工齡workyearwage文本50工齡工資rentwage文本50房租補(bǔ)貼carwage文本50車費(fèi)補(bǔ)貼prize文本50獎金金額insurance文本50交保險(xiǎn)費(fèi)tax文本50交個(gè)人稅affairday文本50事假天數(shù)affairfund文本50扣事假款sickday文本50病假天數(shù)sickfund文本50扣病假款mustwage文本50應(yīng)發(fā)金額actwage文本50實(shí)發(fā)金額changreason文本50變動原因actdate文本50執(zhí)行時(shí)間remark備注備注說明reame文本50記錄人recdate日期/時(shí)間記錄時(shí)間updatename文本50更改人updatedate日期/時(shí)間更改時(shí)間22工作計(jì)劃信息表表22工作計(jì)劃信息表(woykrep)字段名稱數(shù)據(jù)類型字段大小說明ID自動編號title文本50日志recdate日期/時(shí)間中日期日志記錄日期username文本50本人用戶名superior文本50安排工作的上級用戶名remark備注imp文本50是否重要finished文本50是否完成第四章主要界面及相關(guān)代碼分析 本系統(tǒng)中有許多頁面都要涉及到數(shù)據(jù)庫的操作，包括查詢、插入、刪除等，執(zhí)行這些操作之前首先要建立與數(shù)據(jù)庫系統(tǒng)的連接，程序清單如下% 39。if dbsort=access then driver={Microsoft Access Driver (*.mdb)}。 DBPath amp。請?jiān)谙旅嫘薷臄?shù)據(jù)庫名字DBPath1=(data/) driver={Microsoft Access Driver (*.mdb)}。因?yàn)橹挥泄緝?nèi)部人員才可以進(jìn)入該系統(tǒng)，因此設(shè)置了用戶登陸界面，如圖1所示。登錄username=request(username)password=request(password)if username and password then39。 sqlstr(password) amp。如果有此用戶就進(jìn)入系統(tǒng)if not and not then(oabusyname)=rs(name)(oabusyusername)=rs(username)(oabusyuserdept)=rs(userdept)(oabusyuserlevel)=rs(userlevel)(cook_allow_see_all_workrep)=rs(allow_see_all_workrep)(cook_allow_see_dept_workrep)=rs(allow_see_dept_workrep)(cook_allow_control_dept_user)=rs(allow_control_dept_user)(cook_allow_control_all_user)=rs(allow_control_all_user)(cook_allow_send_note)=rs(allow_send_note)(cook_allow_control_note)=rs(allow_control_note)(cook_allow_control_file)=rs(allow_control_file)(cook_allow_control_level)=rs(allow_control_level) end ifend if% 工作計(jì)劃管理包括本人工作計(jì)劃和員工工作計(jì)劃 本人工作計(jì)劃可以編輯 、刪除、查看本人工作計(jì)劃，還可以查看上級安排的工作，工作查看頁如圖3所示，增加工作頁如圖4所示，編輯工作頁如圖5圖3 圖4 圖5 功能實(shí)現(xiàn)的關(guān)鍵代碼%oabusyname=(oabusyname)oabusyusername=(oabusyusername)oabusyuserdept=(oabusyuserdept)oabusyuserlevel=(oabusyuserlevel)if oabusyusername= then function havefinished(value)if value=yes thenhavefinished=已完成elsehavefinished=font color=red未完成/fontend ifend functionfunction impdegree(value)if value=yes thenimpdegree=font color=red重要/fontelseimpdegree=一般end ifend function%/headbody bgcolor=eeeeee topmargin=5 leftmargin=5%call bghead()%%username=request(username)superior=request(superior)recdate=request(recdate)39。brcenter%39。 amp。 sqlstr(rs(superior)) sql,conn,1superiorname=rs1(name)end if%table border=1 cellspacing=0 cellpadding=0 width=90%trform method=post name=a1 action=td width=60 align=center%if (username=oabusyusername) or (superior=oabusyusername) then%input type=submit value=編輯 name=submitinput type=hidden name=username value=%=username%input type=hidden name=superior value=%=superior%input type=hidden name=recdate value=%=recdate%input type=hidden name=id value=%=rs(id)%%else%不可編輯%end if%/td/formtd width=50完成情況/tdtd%=havefinished(rs(finished))%/tdtd width=50重要程度/tdtd%=impdegree(rs(imp))%/tdtd width=60委派任務(wù)者/tdtd width=60%=checked3(superiorname)%/td/trtrtd align=center簡要標(biāo)題/tdtd colspan=6%=rs(title)%/td/trtr td align=center詳細(xì)說明/tdtd colspan=6%=checked3(keepformat(rs(remark)))%/td/tr/tablehr color=red size=1 width=90%%wend%/center%call bgback()%/body/html (2) 如果具有管理員身份進(jìn)入系統(tǒng)，還具有了解員工工作計(jì)劃信息的功能，工可以查看下級人員的工作計(jì)劃，安排下級的工作和任務(wù)，編輯你給下屬安排的工作和任務(wù)。 SqlStr(title) amp。把是否看過通告改為noset conn=opendb(oabusy,conn,accessdsn)sql = update userinf set seenotice=39。取得當(dāng)前年if request(myyear) then myyear=cint(request(myyear))if request(detel)=刪除 and request(delid) thenset conn=opendb(oabusy,conn,accessdsn)count=0condition=for each idno in request(delid)count=count+1condition=condi。 sql%brbrfont color=red新通告發(fā)布成功！/font%else% (3)管理通告模塊可以查看以前的通告信息，刪除以前的通告信息管理通告頁面的設(shè)計(jì)效果如圖7圖7 功能實(shí)現(xiàn)的關(guān)鍵代碼%mymonth=month(now()) 39。 SqlStr(content) amp。 (1)瀏覽通告可以查看以前的通告信息 (2)如果具有管理員身份進(jìn)入系統(tǒng)，還具有發(fā)布通告信息、管理通告的功能發(fā)布通告信息后，所有員工都會在瀏覽器窗口彈出你的通告，只有當(dāng)他按了“我已經(jīng)看了此通告”后，才不會彈出此信息。 sql,conn,1while not and not 39。 sqlstr(username) amp。 sqlstr(username) sql,conn,1if not and not then stafname=rs(name)%centertable border=0 cellspacing=0 cellpadding=0trtdb%=stafname%的工作計(jì)劃（%=recdate%）/b/tdform action= method=post name=form1tdinput type=submit name=addworkrep value=增加/tdinput type=hidden name=username value=%=username%input type=hidden name=superior value=%=superior%input type=hidden name=recdate value=%=recdate%/fo