【正文】 文本50執(zhí)行時間remark備注備注說明reame文本50記錄人recdate日期/時間記錄時間updatename文本50更改人updatedate日期/時間更改時間22工作計劃信息表表22工作計劃信息表(woykrep)字段名稱數(shù)據(jù)類型字段大小說明ID自動編號title文本50日志recdate日期/時間中日期日志記錄日期username文本50本人用戶名superior文本50安排工作的上級用戶名remark備注imp文本50是否重要finished文本50是否完成第四章主要界面及相關(guān)代碼分析 本系統(tǒng)中有許多頁面都要涉及到數(shù)據(jù)庫的操作，包括查詢、插入、刪除等，執(zhí)行這些操作之前首先要建立與數(shù)據(jù)庫系統(tǒng)的連接，程序清單如下% 39。=500 function opendb(DBPath,sessionname,dbsort)dim conn ‘?dāng)?shù)據(jù)庫連接if not isobject(session(sessionname)) thenSet conn=()39。if dbsort=accessdsn then DSN= amp。 DBPath39。if dbsort=access then driver={Microsoft Access Driver (*.mdb)}。dbq= amp。 DBPath 39。if dbsort=sqlserver then DSN= amp。 DBPath amp。 。uid=wsw。pwd=wsw39。請在下面修改數(shù)據(jù)庫名字DBPath1=(data/) driver={Microsoft Access Driver (*.mdb)}。dbq= amp。 DBPath1‘打開數(shù)據(jù)庫set session(sessionname)=connend ifset opendb=session(sessionname)end function%本系統(tǒng)分為10個模塊，包括系統(tǒng)登陸模塊，工作計劃管理模塊，通告信息管理模塊，公文信息管理模塊，人力資源管理模塊，通訊資料管理模塊，資源預(yù)約管理模塊，幫助信息模塊，設(shè)置用戶權(quán)限模塊系統(tǒng)注銷模塊。下面我們就分別對這10個模塊做詳細介紹。因為只有公司內(nèi)部人員才可以進入該系統(tǒng)，因此設(shè)置了用戶登陸界面，如圖1所示。輸入正確的用戶名和密碼就可以進入到系統(tǒng)導(dǎo)航頁，如圖2所示。該頁面主要由幾個部分的內(nèi)容組成:頭部功能選擇文件，左側(cè)功能選擇文件，隱藏/顯示頁面文件，右側(cè)功能主頁面。圖1系統(tǒng)登陸頁圖2系統(tǒng)主頁面 登陸功能實現(xiàn)的關(guān)鍵代碼% 39。登錄username=request(username)password=request(password)if username and password then39。打開數(shù)據(jù)庫查找是否有此用戶set conn=opendb(oabusy,conn,accessdsn)set rs=()sql=select * from userinf where username= amp。 sqlstr(username) amp。 and password= amp。 sqlstr(password) amp。 and forbid=39。no39。 sql,conn,139。如果有此用戶就進入系統(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% 工作計劃管理包括本人工作計劃和員工工作計劃 本人工作計劃可以編輯 、刪除、查看本人工作計劃，還可以查看上級安排的工作，工作查看頁如圖3所示，增加工作頁如圖4所示，編輯工作頁如圖5圖3 圖4 圖5 功能實現(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。打開數(shù)據(jù)庫讀出用戶姓名set conn=opendb(oabusy,conn,accessdsn)set rs=()sql=select name from userinf where username= amp。 sqlstr(username) sql,conn,1if not and not then stafname=rs(name)%centertable border=0 cellspacing=0 cellpadding=0trtdb%=stafname%的工作計劃（%=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。nbsp。brcenter%39。打開數(shù)據(jù)庫，讀出日期為recdate，用戶名為username的記錄set conn=opendb(oabusy,conn,accessdsn)set rs=()sql=select * from workrep where username= amp。 sqlstr(username) amp。 and recdate= amp。 amp。 recdate amp。 sql,conn,1while not and not 39。讀出任務(wù)委派者姓名if rs(superior) thenset conn=opendb(oabusy,conn,accessdsn)set rs1=()sql=select name from userinf where username= 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簡要標題/tdtd colspan=6%=rs(title)%/td/trtr td align=center詳細說明/tdtd colspan=6%=checked3(keepformat(rs(remark)))%/td/tr/tablehr color=red size=1 width=90%%wend%/center%call bgback()%/body/html (2) 如果具有管理員身份進入系統(tǒng)，還具有了解員工工作計劃信息的功能，工可以查看下級人員的工作計劃，安排下級的工作和任務(wù)，編輯你給下屬安排的工作和任務(wù)。你的下屬員工將可以看到你安排給他的工作和任務(wù)，你還可以看到工作和任務(wù)完成情況。 (1)瀏覽通告可以查看以前的通告信息 (2)如果具有管理員身份進入系統(tǒng)，還具有發(fā)布通告信息、管理通告的功能發(fā)布通告信息后，所有員工都會在瀏覽器窗口彈出你的通告，只有當(dāng)他按了“我已經(jīng)看了此通告”后，才不會彈出此信息。發(fā)布公告信息模塊頁面的設(shè)計效果如圖6 圖6 功能實現(xiàn)的關(guān)鍵代碼%if request(submit)=發(fā)布 thentitle=request(title)content=request(content)set conn=opendb(oabusy,conn,accessdsn)sql = Insert Into newnotice (title,content) Values( sql = sql amp。 SqlStr(title) amp。 , sql = sql amp。 SqlStr(content) amp。 ) sql39。把是否看過通告改為noset conn=opendb(oabusy,conn,accessdsn)sql = update userinf set seenotice=39。no39。 sql%brbrfont color=red新通告發(fā)布成功！/font%else% (3)管理通告模塊可以查看以前的通告信息，刪除以前的通告信息管理通告頁面的設(shè)計效果如圖7圖7 功能實現(xiàn)的關(guān)鍵代碼%mymonth=month(now()) 39。取得當(dāng)前月if request(mymonth) then mymonth=cint(request(mymonth))myyear=year(now()) 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