【導(dǎo)讀】公司內(nèi)部辦公管理系統(tǒng)對公司加強內(nèi)部信息管理有著極其重要的作用。

　　

【正文】 font/tdtd SELECT NAME=Department size=1 width=10 % Do Until % OPTION VALUE=% RSDepartments(DepartmentName) %amp。nbsp% RSDepartments(DepartmentName) %amp。nbsp/OPTION % loop % /SELECT /td/tr tr bgcolor=66CCFFtd width=25%font color=164DA8 職位/font/td td select name=Position size=1 option value=普通 amp。nbspamp。nbsp 普通 amp。nbspamp。nbspamp。nbspamp。nbsp/option option value=主管 amp。nbspamp。nbsp 主管 amp。nbspamp。nbspamp。nbspamp。nbsp/option option value=經(jīng)理 amp。nbspamp。nbsp 經(jīng)理 amp。nbspamp。nbspamp。nbspamp。nbsp/option /select /td/tr trtd width=25%font color=164DA8 電子郵件地址/font/tdtdINPUT TYPE=text NAME=EmailAddress VALUE= SIZE=50 MAXLENGTH=50 /td/tr trtd width=25%font color=164DA8 內(nèi)部分機電話/font/tdtdINPUT TYPE=text NAME=InternalPhone VALUE= SIZE=50 MAXLENGTH=50 /td/tr trtd width=25%font color=164DA8移動電話/font/tdtdINPUT TYPE=text NAME=MobilePhone VALUE= SIZE=50 MAXLENGTH=50 /td/tr trtd width=25%font color=164DA8 家 庭電話/font/tdtdINPUT TYPE=text NAME=HomePhone VALUE= SIZE=50 MAXLENGTH=50 /td/tr trtd width=25%font color=164DA8 號 /font/tdtdINPUT TYPE=text NAME= VALUE= SIZE=50 MAXLENGTH=50 /td/tr trtd width=25%font color=164DA8 家 庭 住 址/font/tdtdp /p p /p/td/tr trtd width=25%font color=164DA8 是 否 系 統(tǒng) 管 理 員/font/tdtd select name=IsSystemManager size=1 option value=Falseamp。nbspamp。nbspamp。nbspFalseamp。nbspamp。nbspamp。nbsp/option option value=Trueamp。nbspamp。nbspamp。nbspTrueamp。nbspamp。nbspamp。nbsp/option /select /td/tr trtd width=25%font color=164DA8生日 /font/td td select name=BirthdayYear size=1 % YearCounter = 2020 Do until YearCounter =1900 % OPTION VALUE=% YearCounter %amp。nbspamp。nbsp% YearCounter %amp。nbspamp。nbsp/OPTION % YearCounter = YearCounter1 loop % /select 年 amp。nbspamp。nbsp select name=BirthdayMonth size=1 % MonthCounter = 1 Do until MonthCounter 12 % OPTION VALUE=% MonthCounter %amp。nbspamp。nbsp% MonthCounter %amp。nbspamp。nbsp/OPTION % MonthCounter = MonthCounter+1 loop % /select 月 amp。nbspamp。nbsp select name=BirthdayDay size=1 % DayCounter = 1 Do until DayCounter 31 % OPTION VALUE=% DayCounter %amp。nbspamp。nbsp% DayCounter %amp。nbspamp。nbsp/OPTION % DayCounter = DayCounter+1 loop % /select 日 amp。nbspamp。nbsp /td/tr trtd width=25%font color=164DA8是否財務(wù)管理員 /font/tdtd select name=IsFinancialManager size=1 option value=Falseamp。nbspamp。nbspamp。nbspFalseamp。nbspamp。nbspamp。nbsp/option option value=Trueamp。nbspamp。nbspamp。nbspTrueamp。nbspamp。nbspamp。nbsp/option /select /td/tr /table 刪除用戶信息 : if not IsEmpty((Delete)) then if not IsEmpty((SelectWho)) then delete from PSLogins where LoginID = 39。 amp。 (SelectWho) amp。 39。 TheMessage=記錄已被刪除 用戶進入公司財務(wù)信息管理系統(tǒng) 代碼如下： 39。用戶選擇了添加財務(wù)記錄選項 if (SendTo) = AddFinancialRecord then if Session(IsFinancialManager)=True then else TheMessage=您不是財務(wù)管理員，無權(quán)進入此選項 end if 39。用戶選擇了財務(wù)報表選項 elseif (SendTo) = FinancialReport then 39。用戶選擇了修改財務(wù)記錄選項 else if Session(IsFinancialManager)=True then else TheMessage=您不是財務(wù)管理員，無權(quán)進入此選項 添加財務(wù)記錄 代碼如下 ： 39。添加財務(wù)項目 if not IsEmpty((AddFinancialProject)) then end if 39。添加財務(wù)記錄信息 if not IsEmpty((AddRecord)) then 39。從列表里選擇財務(wù)記錄經(jīng)手人 if (RadioFinancialRecordName)=FromList then TheName=Cstr((SelectFinancialRecordName)) 39。用戶自己輸入財務(wù)記錄經(jīng)手人 else TheName=Cstr((TextFinancialRecordName)) end if 39。從列表里選擇財務(wù)記錄所屬項目 if (RadioFinancialProject)=FromList then TheProjectName=Cstr((SelectFinancialProject)) 39。用戶自己輸入財務(wù)記錄所屬項目 else TheProjectName=Cstr((TextFinancialProject)) end if 39。對用戶輸入的財務(wù)記錄信息進行校驗 if Len(Trim(TheName))=0 or Len(Trim(TheProjectName))=0 then TheMessage=記錄中記錄經(jīng)手人、記錄隸屬財務(wù)項目不能為空，無法添加此記錄，請重填記錄 Warning=true elseif not IsNumeric((FundTypeA)) or _ not IsNumeric((FundTypeB)) or _ not IsNumeric((FundTypeC)) or _ not IsNumeric((FundTypeD)) then TheMessage=記錄中的款項字段中出現(xiàn)了非數(shù)字內(nèi)容，無法添加此記錄，請重填記錄 Warning=true else TheFundTypeA=CCur((FundTypeA) ) TheFundTypeB=CCur((FundTypeB) ) TheFundTypeC=CCur((FundTypeC) ) TheFundTypeD=CCur((FundTypeD) ) TheSummary=Cstr((Summary)) TheRemark=Cstr((Remark)) TheAccountName=Cstr(Session(Name)) TheDate=Date TheSum=CCur(TheFundTypeA+TheFundTypeB+TheFundTypeC+TheFundTypeD) set RSDoExistName=(select * from PSLogins where Name=39。 amp。 TheName amp。 39。) set RSDoExistProject=(select * from FinancialProject where FinancialProjectName=39。_ amp。 TheProjectName amp。 39。) 39。判斷用戶輸入的財務(wù)記錄經(jīng)手人是否存在 if then TheMessage=您輸入的記錄中財務(wù)經(jīng)手人不存在，請重新輸入 (如果是新員工請?zhí)砑哟藛T工記錄 ) Warning=true 39。判斷用戶輸入的財務(wù)記錄所屬財務(wù)項目是否存在 elseif then TheMessage=您輸入的記錄中財務(wù)項目不存在，請重新輸入 (如果是新項目，請?zhí)砑迂攧?wù)項目 ) Warning=true else TheDepartment=RSDoExistName(Department) 39。添加新財務(wù)記錄到數(shù)據(jù)庫 39。sql=insert into 用戶記錄 (用戶名 ,密碼 ,權(quán)限 ) values (39。amp。 nameamp。39。,39。amp。 mima amp。39。,39。一般用戶 39。) Insert into FinancialRecord (Name, Department, ProjectName, _ amp。 FundTypeA, FundTypeB, _ amp。 FundTypeC, FundTypeD, Summary, Remark, AddDate, AccountName) values ( _ amp。 39。 amp。 TheName amp。39。, _ amp。 39。 amp。 TheDepartment amp。39。, _ amp。 39。 amp。 TheProjectName amp。39。, _ amp。 39。 amp。 TheFundTypeA amp。39。, _ amp。 39。 amp。 TheFundTypeB amp。39。, _ amp。 39。 amp。 TheFundTypeC amp。39。, _ amp。 39。 amp。 TheFundTypeD amp。39。, _ amp。 39。 amp。 TheSummary amp。39。, _ amp。 39。 amp。 TheRemark amp。39。, _ amp。 39。 amp。 TheDate amp。39。, _ amp。 39。 amp。 TheAccountN