【正文】 pientusername 關(guān)鍵代碼： 1) 數(shù)據(jù)庫連接 ADO set conn=opendb(oabusy,conn,accessdsn) set rs=() 2) 數(shù)據(jù)庫查詢 sql=select * from senddate,texttype where = amp。 sqlstr(oabusyusername) amp。 and =0 and = order by id desc sql=select name from userinf where username= amp。 sqlstr(rs(recipientusername)) (4) 子模塊 4 模塊功能： 已收公文 實(shí)現(xiàn)頁面： 數(shù) 據(jù) 定 義 ： senddate,texttype, ,sender, recipientusername 關(guān)鍵代碼： 1) 數(shù)據(jù)庫連接 ADO set conn=opendb(oabusy,conn,accessdsn) set rs=() 2) 數(shù)據(jù)庫查詢 sql=select * from senddate,texttype where (= amp。 sqlstr(oabusyusername) amp。 or (=39。 所 有 人 39。 and = amp。 sqlstr(oabusyuserdept) amp。 )) and amp。 sqlstr(oabusyusername) amp。 and =0 and = order by id desc sql=select name,userdept from userinf where username= amp。 sqlstr(rs(sender)) 人力管理模塊 人力管理模塊包括了刪除、編輯和修改個(gè)人基本檔案、員工基本檔案 、員工職位變動(dòng)、員工獎(jiǎng)懲情況、員工考核情況、員工工資檔案。 模塊功能： 個(gè)人基本檔案、員工基本檔案、員工職位變動(dòng)、員工獎(jiǎng)懲情況、員工考核情況、員工工資檔案 (1) 子模塊 1 模塊功能： 基本檔案 實(shí)現(xiàn)頁面： , , , Doc_Find, Doc_Input, 26 Doc_List, TypeManage 數(shù)據(jù)定義： username,inputdate,updatedate,a1,… a33,photo 關(guān)鍵代碼： 1) 數(shù)據(jù)庫連接 ADO set conn=openconn(conn) set rs=() 2) 數(shù)據(jù)庫查詢 SQL=insertinto ContentTable(TypeName,Title,KeyWord,Dept,SendDate,AvailabilityDate,Content) values(amp。sqlstr(Doc_TypeName)amp。,amp。sqlstr(Doc_Title)amp。,amp。sqlstr(Doc_KeyWord)amp。,amp。sqlstr(Doc_Dept)amp。,amp。Doc_SendDateamp。,amp。Doc_SxDateamp。,amp。sqlstr(Doc_Content)amp。) (2) 子模塊 2 模塊功能： 職位變動(dòng) 實(shí)現(xiàn)頁面： 數(shù)據(jù)定義： oldjob, changjob, changdate, changfile, changsort, changtype, changreason, recusername, pdateusername 關(guān)鍵代碼： 1) 數(shù)據(jù)庫連接 ADO set conn=opendb(oabusy,conn,accessdsn) set rs=() 2) 數(shù)據(jù)庫查詢 sql=select name from userinf where username= amp。 sqlstr((username)) sql=InsertIntochangjob (username,oldjob,changjob,changdate,changfile,changsort,changtype,changreason,recusername,updateusername) Values( username, oldjob, changjob, changdate, changfile, changsort, changtype, changreason, recusername, pdateusername) (3) 子模塊 3 模塊功能： 獎(jiǎng)懲情況 實(shí)現(xiàn)頁面： 數(shù) 據(jù)定義 ：username,rewpunname,rewpundate,rewpunfile,rewpunsort,rewpuntype,remark, reame,recdate,updatename,updatedate 關(guān)鍵代碼： 1) 數(shù)據(jù)庫連接 ADO 27 set conn=opendb(oabusy,conn,accessdsn) set rs=() 2) 數(shù)據(jù)庫查詢 sql=select * from rewpuninf where username= amp。 sqlstr(username) (4) 子模塊 4 模塊功能： 考核情況 實(shí)現(xiàn)頁面： 數(shù) 據(jù)定義 ：username,rewpunname,rewpundate,rewpunfile,rewpunsort,rewpuntype,remark, reame,recdate,updatename,updatedate 關(guān)鍵代碼： 1) 數(shù)據(jù)庫連接 ADO set conn=opendb(oabusy,conn,accessdsn) set rs=() 2) 數(shù)據(jù)庫查詢 sql=select allow_edit_all_rewpuninf from userinf where username= amp。 sqlstr(oabusyusername) sql=select DISTINCT userdept from userinf sql=select name from userinf where username= amp。 sqlstr(username) sql=select * from rewpuninf where username= amp。 sqlstr(username) (5) 子模塊 5 模塊功能： 工資檔案 實(shí)現(xiàn)頁面： 數(shù) 據(jù)定義 ： wagelevel,baselevel,stafjob,workyear,workyearwage,rentwage,carwage, prize,insurance,… 關(guān)鍵代碼： 1) 數(shù)據(jù)庫連接 ADO set conn=opendb(oabusy,conn,accessdsn) set rs=() 2) 數(shù)據(jù)庫查詢 sql=select * from userinf where username= amp。 sqlstr(oabusyusername) sql=select DISTINCT userdept from userinf sql=select name,username from userinf where userdept= amp。 sqlstr(firstdept) amp。 and forbid=39。no39。 sql=select name from userinf where username= amp。 sqlstr(username) 28 sql=select * from wageinf where username= amp。 sqlstr(username) 考勤管理 模塊 考勤管理模塊主要包括設(shè)置考勤時(shí)間和記錄每天的考勤情況，設(shè)置考勤時(shí)間是把已存在數(shù)據(jù)庫中的時(shí)間數(shù)據(jù)進(jìn)行修改，調(diào)用數(shù)據(jù)庫中 inittime 進(jìn)行修改。 查看今天的考勤記錄信息流程如下圖所示： 圖 查看今日考勤流程圖 模塊功能：設(shè)置考勤時(shí)間、開始考勤、今日考勤統(tǒng)計(jì)、日考勤統(tǒng)計(jì)、月考勤統(tǒng)計(jì)等。 Begin case no amande amall amallandpme amandpm getamexplain disposeametime disposeamgotime disposepmetime disposepmgotime amgonokq=0 pmenokq=0 pmgonokq=0 Y Y Y End N N N 29 (1) 子模塊 1 模塊功能： 設(shè)置考勤時(shí)間 實(shí)現(xiàn)頁面： 數(shù) 據(jù)定義 ： ametime,amoffdutytime,amgotimeamp。,pmondutytime,pmetimeamp。,pmoffdutytime, pmgotimeamp。,ondutydelaytime,edelaytime,offdutyaheadtime,goaheadtime,kqtimephase,amp。kqtimephaseamp。,amgonokq,amp。amgonokq,pmenokq,pmenokq,pmgonokq,pmgonokq 關(guān)鍵代碼： 1) 數(shù)據(jù)庫連接 ADO set conn=opendb(oabusy,conn,accessdsn) set rs=() 2) 數(shù)據(jù)庫查詢 sql=updateinittimeset amondutytime=amp。ametimeamp。,amoffdutytime=amp。amgotimeamp。,pmondutytime=amp。pmcometimeamp。,pmoffdutytime=amp。pmgotimeamp。,ondutydelaytime=amp。edelaytimeamp。,offdutyaheadtime=amp。goaheadtimeamp。,kqtimephase=amp。kqtimephaseamp。,amgonokq=amp。amgonokqamp。,pmenokq=amp。pmenokqamp。,pmgonokq=amp。pmgonokq (2) 子模塊 2 模塊功能： 開始考勤 實(shí)現(xiàn)頁面： 數(shù) 據(jù)定義 ： ametime,amoffdutytime,amgotimeamp。,pmondutytime,pmetimeamp。,pmoffdutytime, pmgotimeamp。,ondutydelaytime,edelaytime,offdutyaheadtime,goaheadtime,kqtimephase,amp。kqtimephaseamp。,amgonokq,amp。amgonokq,pmenokq,pmenokq,pmgonokq,pmgonokq 關(guān)鍵代碼： 1) 數(shù)據(jù)庫連接 ADO set conn=opendb(oabusy,conn,accessdsn) set rs=() 2) 數(shù)據(jù)庫查詢 sql=select DISTINCT userdept from userinf sql=select name,username from userinf where userdept= amp。 sqlstr(userdept) sql=select * from inittime (3) 子模塊 3 模塊功能： 日考勤統(tǒng)計(jì) 30 實(shí)現(xiàn)頁面： 數(shù) 據(jù)定義 ： ametime,amoffdutytime,amgotimeamp。,pmondutytime,pmetimeamp。,pmoffdutytime, pmgotimeamp。,ondutydelaytime,edelaytime,offdutyaheadtime,goaheadtime,kqtimephase,amp。kqtimephaseamp。,amgonokq,amp。amgonokq,pmenokq,pmenokq,pmgonokq,pmgonokq 關(guān)鍵代碼： 1) 數(shù)據(jù)庫連接 ADO set conn=opendb(oabusy,conn,accessdsn) set rs=() 2) 數(shù)據(jù)庫查詢 sql=select name,username from userinf where userdept= amp。 sqlstr(userdept) sql=select * from inittime (4) 子模塊 4 模塊功能： 月考勤統(tǒng)計(jì) 實(shí)現(xiàn)頁面： 數(shù) 據(jù)定義 ： ametime,amoffdutytime,amgotimeamp。,pmondutytime,pmetimeamp。,pmoffdutytime, pmgotimeamp。,ondutydelaytime,edelaytime,offdutyaheadtime,goaheadtime,kqtimephase,amp。kqtimephaseamp。,amgonokq,amp。amgonokq,pmenokq,pmenokq,pmgonokq,pmgonokq 關(guān)鍵代碼： 1) 數(shù)據(jù)庫連接 ADO set conn=opendb(oabusy,conn,accessdsn) set rs=() 2) 數(shù)據(jù)庫 查詢 sql=select DISTINCT username,name from userinf where userdept=39。amp。userdeptamp。39。 sql=select DISTINCT userdept fr