【正文】 取得當(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。把是否看過通告改為noset conn=opendb(oabusy,conn,accessdsn)sql = update userinf set seenotice=39。 SqlStr(content) amp。 SqlStr(title) amp。 (1)瀏覽通告可以查看以前的通告信息 (2)如果具有管理員身份進(jìn)入系統(tǒng)，還具有發(fā)布通告信息、管理通告的功能發(fā)布通告信息后，所有員工都會(huì)在瀏覽器窗口彈出你的通告，只有當(dāng)他按了“我已經(jīng)看了此通告”后，才不會(huì)彈出此信息。 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ù)。 sql,conn,1while not and not 39。 amp。 sqlstr(username) amp。brcenter%39。 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%/form/tr/table/center%call bgmid()%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。no39。 sqlstr(password) amp。 sqlstr(username) amp。登錄username=request(username)password=request(password)if username and password then39。該頁面主要由幾個(gè)部分的內(nèi)容組成:頭部功能選擇文件，左側(cè)功能選擇文件，隱藏/顯示頁面文件，右側(cè)功能主頁面。因?yàn)橹挥泄緝?nèi)部人員才可以進(jìn)入該系統(tǒng)，因此設(shè)置了用戶登陸界面，如圖1所示。 DBPath1‘打開數(shù)據(jù)庫set session(sessionname)=connend ifset opendb=session(sessionname)end function%本系統(tǒng)分為10個(gè)模塊，包括系統(tǒng)登陸模塊，工作計(jì)劃管理模塊，通告信息管理模塊，公文信息管理模塊，人力資源管理模塊，通訊資料管理模塊，資源預(yù)約管理模塊，幫助信息模塊，設(shè)置用戶權(quán)限模塊系統(tǒng)注銷模塊。請?jiān)谙旅嫘薷臄?shù)據(jù)庫名字DBPath1=(data/) driver={Microsoft Access Driver (*.mdb)}。uid=wsw。 DBPath amp。 DBPath 39。if dbsort=access then driver={Microsoft Access Driver (*.mdb)}。if dbsort=accessdsn then DSN= amp。注photoOLE 對象照片havephoto文本50是否有照片14個(gè)人周計(jì)劃表表14 個(gè)人周計(jì)劃表(personweekworkrep)字段名稱數(shù)據(jù)類型字段大小說明ID自動(dòng)編號weekworkrep備注公司周計(jì)劃myyear 文本50周計(jì)劃所在年myweek文本50第幾周username文本50周計(jì)劃所屬用戶名15員工獎(jiǎng)懲情況表表15 員工獎(jiǎng)懲情況表(rewpuninf)字段名稱數(shù)據(jù)類型字段大小說明ID自動(dòng)編號username文本50員工用戶名rewpunname文本50獎(jiǎng)懲名稱rewpundate文本50獎(jiǎng)懲日期rewpunfile文本50獎(jiǎng)懲文號rewpunsort文本50獎(jiǎng)懲類型rewpuntype文本50獎(jiǎng)懲方式remark備注獎(jiǎng)懲原因及備注說明reame文本50記錄人recdate日期/時(shí)間常規(guī)日期記錄時(shí)間updatename文本50更改人updatedate日期/時(shí)間常規(guī)日期更改時(shí)間16已發(fā)公文表表16 已發(fā)公文表(seesenddate)字段名稱數(shù)據(jù)類型字段大小說明ID自動(dòng)編號senddateid數(shù)字長整型公文的idusername文本50公文接收者的用戶名havesee文本50是否看過公文17公文管理表表17 公文管理表(senddate)字段名稱數(shù)據(jù)類型字段大小說明ID自動(dòng)編號title文本50公文的標(biāo)題content備注公文內(nèi)容sender文本50recipientusername文本50recipientuserdept文本50inputdate日期/時(shí)間常規(guī)日期reid數(shù)字長整型filename文本50fileContentType文本50filevalueOLE 對象18員工資料管理表表18 員工資料管理表(stafaddressinf)字段名稱數(shù)據(jù)類型字段大小說明ID自動(dòng)編號username文本50姓名panytel文本公司電話fax文本hometel文本50文本50Emailhomeaddress文本50postcard文本50sex文本50handset文本50callset文本50remark備注5019員工基本檔案表表19 員工基本檔案表(stafinf)字段名稱數(shù)據(jù)類型字段大小說明ID自動(dòng)編號name文本50員工姓名sex文本50性別birthday文本50出生日期dept文本50部門position文本50職位techpost文本50職稱intoday文本50進(jìn)公司時(shí)間edulevel文本50學(xué)歷idno文本50身份證號stafresume備注簡歷specialty備注專長remark備注備注tel文本50電話native文本50籍貫school文本50