亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關(guān)于我們
? 蟲蟲下載站

?? modifyfinancialrecord.asp

?? 【文件介紹】 人事薪資管理系統(tǒng)。 【使用介紹】 在Windows系統(tǒng)的管理工具中
?? ASP
字號(hào): 
<%@ Language=VBScript %>
<!--#include file="../conn.asp"-->
<%
'判斷用戶是否登錄
if isempty(Session("ID")) then
Response.Redirect "../login.asp"
end if
'判斷用戶是否具有財(cái)務(wù)管理員身份
if Session("IsFinancialManager")=False then
Response.Redirect "Finance.asp"
end if
'連接系統(tǒng)數(shù)據(jù)庫
'set conn = server.createobject ("adodb.connection")
'conn.open "ASPData", "sa", ""
Warning=false 
'查詢某個(gè)財(cái)務(wù)記錄
if not IsEmpty(Request.Form("Query")) then
'獲得用戶的查詢條件
if Request.Form("QueryCheck1")="on" and len(trim(Request.Form("FinancialRecordID")))<>0 then
sql1="and ID=" & Request.Form("FinancialRecordID")
else
sql1=" "
end if
if Request.Form("QueryCheck2")="on" and len(trim(Request.Form("FinancialProjectName")))<>0 then
sql2=" and ProjectName='" & Request.Form("FinancialProjectName") & "'"
else
sql2=" "
end if
if Request.Form("QueryCheck3")="on" then
sql3=" and Name='" & Request.Form("SelectName") & "'"
else
sql3=" "
end if
if Request.Form("QueryCheck4")="on" then
TheAddDate=Request.Form("AddYear") &"-" & Request.Form("AddMonth") & "-" _
& Request.Form("AddDay") 
sql4=" and AddDate=#"& TheAddDate &"# "
else
sql4=" "
end if
set RSRecordResult=conn.Execute("select * from FinancialRecord where AccountName='" _
& Session("Name") &"' " & sql1 & sql2 & sql3 & sql4 &" order by Name")
TheMessage="您查詢的財(cái)務(wù)記錄如下"
QueryLabel=2
'用戶選定了查詢出來的某個(gè)財(cái)務(wù)記錄
elseif not IsEmpty(Request.Form("SelectRecord")) then
TheMessage="請(qǐng)?jiān)谙旅嫘薷拇藯l財(cái)務(wù)記錄"
set RSThisRecord=conn.Execute("select * from FinancialRecord" _
& " where ID="&Request.Form("RadioFinancialRecord"))
QueryLabel=3
'用戶對(duì)選定的財(cái)務(wù)記錄進(jìn)行了更新
elseif not IsEmpty(Request.Form("UpdateRecord")) then
'校驗(yàn)用戶的輸入
if not IsNumeric(Request.Form("UpdateFundTypeA")) or  _
not IsNumeric(Request.Form("UpdateFundTypeB")) or  _
not IsNumeric(Request.Form("UpdateFundTypeC")) or  _
not IsNumeric(Request.Form("UpdateFundTypeD")) then
TheMessage="記錄中的款項(xiàng)字段中出現(xiàn)了非數(shù)字內(nèi)容，無法修改此記錄，請(qǐng)重填記錄"
Warning=true
QueryLabel=3
else
set RSLinkedDepartment=conn.Execute("select Department from UserInfo where Name='" _
& Request.Form("UpdateName") & "'")
TheName=Request.Form("UpdateName")
TheDepartment=RSLinkedDepartment("Department")
TheProjectName=Request.Form("UpdateProjectName")
TheFundTypeA=CCur(Request.Form("UpdateFundTypeA"))
TheFundTypeB=CCur(Request.Form("UpdateFundTypeB"))
TheFundTypeC=CCur(Request.Form("UpdateFundTypeC"))
TheFundTypeD=CCur(Request.Form("UpdateFundTypeD"))
TheSummary=Cstr(Request.Form("UpdateSummary"))
TheRemark=Cstr(Request.Form("UpdateRemark"))
TheModifyDate=Date
TheSum=CCur(TheFundTypeA+TheFundTypeB+TheFundTypeC+TheFundTypeD)
'修改此條財(cái)務(wù)記錄
conn.execute "update FinancialRecord set "_
& "Name='" & TheName & "', "_
& "Department='" & TheDepartment & "', "_
& "FundTypeA=" & TheFundTypeA  & ", "_
& "FundTypeB=" & TheFundTypeB  & ", "_
& "FundTypeC=" & TheFundTypeC  & ", "_
& "FundTypeD=" & TheFundTypeD  & ", "_
& "Sum=" & TheSum  & ", "_
& "Summary='" & TheSummary  & "', "_                  
& "Remark='" & TheRemark  & "', "_                  
& "ModifyDate='" & TheModifyDate  & "', "_
& "ProjectName='" & TheProjectName & "' "  _ 
& " Where ID=" & Request.Form("UpdateID")

QueryLabel=3
TheMessage="記錄已經(jīng)修改成功"

end if
set RSThisRecord=conn.Execute("select * from FinancialRecord where ID="&Request.Form("UpdateID"))     
else
TheMessage = "請(qǐng)?jiān)谙旅嫣顚懩薷牡呢?cái)務(wù)記錄的查詢條件"
QueryLabel=1
end if
set RSPersons = conn.Execute("select Name from UserInfo order by Name")
set RSFinancialRecord=conn.Execute("select * from FinancialRecord where AccountName='" _
& Session("Name") & "' order by Name")
set RSFinancialProject=conn.Execute("select * from FinancialProject order by FinancialProjectName")
%>



<HTML>
<HEAD>
<TITLE>公司財(cái)務(wù)信息管理系統(tǒng) </TITLE>
<META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows">

</HEAD>

<BODY BGCOLOR="">

<table width=800 border=0 bgcolor=#16A84D cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white><td    valign=center ><img src="../ASPLogo3.jpg" width=796 height=100></td></tr>
</table>
<table width="800" border="0" bordercolor="#16A84D" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td></tr>
</table>
<br>

<table width=800 border=0 bgcolor=#16A84D cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3>
<font color=white>
<P ALIGN="CENTER">公司內(nèi)部辦公信息管理系統(tǒng)->公司財(cái)務(wù)信息管理系統(tǒng)->修改財(cái)務(wù)記錄&nbsp[當(dāng)前用戶-<% response.write Session("Name") %>]
</font></td></tr>
<tr bgcolor=white >
<td><a href=".././html/home.asp"><font color="#10AD4D">返回內(nèi)網(wǎng)主頁</font></a></td>
<td  align=center>
 <% if Warning=false then %>
 <font color="#10AD4D" ><% response.write TheMessage %></FONT>
 <% else %>
 <font color=Red ><% response.write TheMessage %></font>
 <% end if %>
 </td>
<td  align=right><a href="Finance.asp"><font color="#10AD4D">返回上一級(jí)網(wǎng)頁</font></a></td>
</tr>
</table> 
<table width="800" border="0" bordercolor="#16A84D" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td> </tr></table>
<br> 
 


<FORM ACTION="ModifyFinancialRecord.asp"  METHOD=POST>


<% if QueryLabel=1 then %>
<TABLE CELLPADDING=1 CELLSPACING=2 BORDER=1 bordercolor="#16A84D" WIDTH=800 align=center>   
<TR VALIGN="center" ALIGN="center">
<TD WIDTH=20% bgcolor=#B5EFC7><img src="../image/finance1.jpg"></td>
<td>

<table CELLPADDING=1 CELLSPACING=1 BORDER=1 align=center width=100% bgcolor=White>
<tr height=35><td><input type=checkbox name=QueryCheck1 ></td><td ><font color="#16A84D">財(cái)務(wù)記錄ID</font></td><td><INPUT TYPE="text"  NAME="FinancialRecordID" VALUE="" size=50> </td></tr>
<tr height=35><td><input type=checkbox name=QueryCheck2></td><td ><font color="#16A84D">財(cái)務(wù)項(xiàng)目名稱</font></td><td><INPUT TYPE="text"  NAME="FinancialProjectName" VALUE="" size=50> </td></tr>
<tr height=35><td><input type=checkbox name=QueryCheck3 ></td><td width=25％><font color="#16A84D">財(cái)務(wù)記錄經(jīng)手人</font></td><td>
<SELECT NAME="SelectName" >
<%
Do Until RSPersons.EOF
%>
<OPTION VALUE="<% Response.Write RSPersons("Name") %>"><% Response.Write RSPersons("Name") %></OPTION>
<%
RSPersons.Movenext
loop
%>		
</SELECT>
</td></tr>
<tr height=35><td><input type=checkbox name=QueryCheck4></td><td width=25％><font color="#16A84D">財(cái)務(wù)記錄添加日期</font></td><td>
<select name="AddYear" size=1>
<OPTION VALUE="<% Response.Write Year(Date) %>">&nbsp&nbsp<% Response.Write Year(Date) %>&nbsp&nbsp</OPTION>
<%
YearCounter = 2050
Do until YearCounter <=1990
%>
<OPTION VALUE="<% Response.Write YearCounter %>">&nbsp&nbsp<% Response.Write YearCounter %>&nbsp&nbsp</OPTION>
<%
YearCounter = YearCounter-1
loop
%>
</select>年
<select name="AddMonth" size=1>
<OPTION VALUE="<% Response.Write Month(Date) %>">&nbsp&nbsp<% Response.Write Month(Date) %>&nbsp&nbsp</OPTION>
<%
MonthCounter = 12
Do until MonthCounter <=0
%>
<OPTION VALUE="<% Response.Write MonthCounter %>">&nbsp&nbsp<% Response.Write MonthCounter %>&nbsp&nbsp</OPTION>
<%
MonthCounter = MonthCounter-1
loop
%>
</select>
月
<select name="AddDay" size=1>
<OPTION VALUE="<% Response.Write Day(Date) %>">&nbsp&nbsp<% Response.Write Day(Date) %>&nbsp&nbsp</OPTION>
<%
DayCounter = 31
Do until DayCounter <=0
%>
<OPTION VALUE="<% Response.Write DayCounter %>">&nbsp&nbsp<% Response.Write DayCounter %>&nbsp&nbsp</OPTION>
<%
DayCounter = DayCounter-1
loop
%>
</select>日
</td></tr></table>

<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1 WIDTH=100% align=center>
<TR VALIGN="top" ALIGN="center">
<TD WIDTH=100% align=center >
<INPUT TYPE="submit" NAME="Query" VALUE="查詢符合條件的財(cái)務(wù)記錄" style="border: 1px solid #34BB66; background-color: #B6EBCA; color: #34BB66">
</TD></TR></table>

</td></TR></table>
<br>
<% end if %>

<% if QueryLabel=2 then %>

<table width=800 border=0 bgcolor=#16A84D cellspacing=1 cellpadding=2 align=center>

<tr><td><font color=white>選中</font></td>
<td><font color=white>記錄ID</font></td>
<td><font color=white>記錄經(jīng)手人</font></td>
<td><font color=white>部門</font></td>
<td><font color=white>所屬財(cái)務(wù)項(xiàng)目</font></td>
<td><font color=white>款項(xiàng)A</font></td>
<td><font color=white>款項(xiàng)B</font></td>
<td><font color=white>款項(xiàng)C</font></td>
<td><font color=white>款項(xiàng)D</font></td>
<td><font color=white>合計(jì)</font></td>
<td><font color=white>添加日期</font></td>
<td><font color=white>最新修改日期</font></td></tr>
<%
Do until RSRecordResult.eof
response.write "<tr bgcolor=white><td><input type=radio name=RadioFinancialRecord value=" & RSRecordResult("ID") & "></td>"
response.write "<td>" & RSRecordResult("ID") & "</td>"
response.write "<td>" & RSRecordResult("Name") & "</td>"
response.write "<td>" & RSRecordResult("Department") & "</td>"
response.write "<td>" & RSRecordResult("ProjectName") & "</td>"
response.write "<td>" & RSRecordResult("FundTypeA") & "</td>"
response.write "<td>" & RSRecordResult("FundTypeB") & "</td>"
response.write "<td>" & RSRecordResult("FundTypeC") & "</td>"
response.write "<td>" & RSRecordResult("FundTypeD") & "</td>"
response.write "<td>" & RSRecordResult("Sum") & "</td>"
response.write "<td>" & RSRecordResult("AddDate") & "</td>"
response.write "<td>" & RSRecordResult("ModifyDate") & "</td></tr>"
RSRecordResult.Movenext
loop
%>
</table> 

<table width="800" border="0" bordercolor="#16A84D" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td> </tr></table>
<p align=center>
<input type=submit name=SelectRecord value=&nbsp&nbsp選中某條財(cái)務(wù)記錄&nbsp&nbsp style="border: 1px solid #34BB66; background-color: #FFFFFF; color: #34BB66">
<% end if %>

 <% if QueryLabel=3 then %>   
<TABLE CELLPADDING=1 CELLSPACING=2 BORDER=1 bordercolor="#16A84D" WIDTH=800 align=center>   
<TR VALIGN="center" ALIGN="center">
<TD WIDTH=20% bgcolor=#B5EFC7><img src="../image/finance1.jpg"></td>
<td>

<table CELLPADDING=1 CELLSPACING=1 BORDER=1 align=center width=100%>
<tr><td width=30%>財(cái)務(wù)記錄號(hào)</td><td>
<% response.write RSThisRecord("ID") %>
<input name=UpdateID type=hidden value="<% response.write RSThisRecord("ID") %>">
</td></tr>
<tr><td width=30%>財(cái)務(wù)記錄添加日期</td><td>
<% response.write RSThisRecord("AddDate") %>
</td></tr>
<tr><td width=30%>經(jīng)手人</td><td>
<Select name=UpdateName>
<option value="<% response.write RSThisRecord("Name") %>"><% response.write RSThisRecord("Name") %></option>
<%
Do until RSPersons.eof
response.write "<option value=" & RSPersons("Name") & ">"& RSPersons("Name") &"</option>"
RSPersons.movenext
loop
%>
</select>
</td></tr>
<tr><td width=30%>所屬財(cái)務(wù)項(xiàng)目</td><td>
<Select name=UpdateProjectName>
<option value="<% response.write RSThisRecord("ProjectName") %>"><% response.write RSThisRecord("ProjectName") %></option>
<%
Do until RSFinancialProject.eof
response.write "<option value=" & RSFinancialProject("FinancialProjectName") & ">"& RSFinancialProject("FinancialProjectName") &"</option>"
RSFinancialProject.movenext
loop
%>
</select>
</td></tr>
<tr><td width=30%>款項(xiàng)A</td><td><input name=UpdateFundTypeA value="<% response.write RSThisRecord("FundTypeA") %>">
</td></tr>
<tr><td width=30%>款項(xiàng)B</td><td><input name=UpdateFundTypeB value="<% response.write RSThisRecord("FundTypeB") %>">
</td></tr>
<tr><td width=30%>款項(xiàng)C</td><td><input name=UpdateFundTypeC value="<% response.write RSThisRecord("FundTypeC") %>">
</td></tr>
<tr><td width=30%>款項(xiàng)D</td><td><input name=UpdateFundTypeD value="<% response.write RSThisRecord("FundTypeD") %>">
</td></tr>
<tr><td width=30%>摘要</td><td><input name=UpdateSummary value="<% response.write RSThisRecord("Summary") %>">
</td></tr>
<tr><td width=30%>備注</td><td><input name=UpdateRemark value="<% response.write RSThisRecord("Remark") %>">
</td></tr>
</table>
<p align=center>
<input type=submit name=UpdateRecord value=&nbsp&nbsp修改此條財(cái)務(wù)記錄&nbsp&nbsp style="border: 1px solid #34BB66; background-color: #FFFFFF; color: #34BB66">
 <% end if %>                     
<br>
</FORM>

</BODY>
</HTML>

?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
日韩视频不卡中文| 美女免费视频一区二区| 亚洲另类在线视频| 日韩av中文在线观看| 国产在线不卡一卡二卡三卡四卡| 懂色一区二区三区免费观看| 色哟哟精品一区| 日韩亚洲欧美在线观看| 国产精品久久久久久久久果冻传媒 | 精品久久久网站| 欧美一级一区二区| 日韩精品一区二区三区在线| 国产人成亚洲第一网站在线播放| 一区二区三区高清| 久久99日本精品| 色婷婷一区二区| 久久蜜桃一区二区| 天天操天天干天天综合网| 成人性视频免费网站| 日韩欧美在线一区二区三区| 一区二区三区在线观看国产| 国产精品综合久久| 日韩欧美中文字幕制服| 亚洲欧美日韩电影| 国产成人自拍高清视频在线免费播放| 欧美日韩一区小说| 亚洲人成电影网站色mp4| 精品一二线国产| 欧美一区二区三区在线| 亚洲综合激情网| av在线一区二区| 国产日韩欧美精品电影三级在线| 日本v片在线高清不卡在线观看| 91国偷自产一区二区开放时间 | 26uuu久久天堂性欧美| 亚洲午夜影视影院在线观看| caoporn国产一区二区| 亚洲国产高清aⅴ视频| 国产在线播放一区| 日韩视频在线你懂得| 日韩 欧美一区二区三区| 欧美日韩一区二区电影| 亚洲激情五月婷婷| 91免费在线播放| 中文字幕亚洲欧美在线不卡| 国产伦精品一区二区三区免费| 日韩欧美专区在线| 久久精品噜噜噜成人88aⅴ| 欧美精品777| 人禽交欧美网站| 日韩三级伦理片妻子的秘密按摩| 日韩电影在线一区二区三区| 欧美三级电影一区| 亚洲成人免费电影| 欧美日韩欧美一区二区| 午夜电影一区二区三区| 欧美日韩三级视频| 日本中文字幕一区| 欧美成人一区二区| 国产乱码精品一区二区三区五月婷 | 97久久久精品综合88久久| 欧美韩国日本综合| 色系网站成人免费| 日日夜夜免费精品视频| 欧美变态口味重另类| 久久精品国产第一区二区三区| 精品入口麻豆88视频| 国产乱一区二区| 国产精品丝袜在线| 91精品办公室少妇高潮对白| 亚洲在线观看免费视频| 欧美一区二区成人| 国产精品亚洲成人| 亚洲欧美日本在线| 91精品一区二区三区久久久久久 | 精品国产一区二区三区久久久蜜月| 国内成人精品2018免费看| 久久久一区二区| 色婷婷精品大在线视频 | a亚洲天堂av| 午夜伦欧美伦电影理论片| 日韩三级电影网址| 不卡影院免费观看| 午夜久久久影院| 国产午夜精品一区二区| 色视频欧美一区二区三区| 日本特黄久久久高潮| 国产欧美日韩另类视频免费观看| 日本韩国一区二区| 狠狠色狠狠色综合| 亚洲精品综合在线| 欧美变态tickling挠脚心| 色88888久久久久久影院野外| 久久精品二区亚洲w码| 国产精品欧美一区喷水| 欧美老年两性高潮| 久久精品国产精品青草| 欧美国产精品劲爆| 欧美日韩国产一区| 精彩视频一区二区| 国产精品灌醉下药二区| 欧美亚洲日本一区| 国产成人免费视频精品含羞草妖精| 一区二区三区视频在线观看| 26uuu久久综合| 91久久精品一区二区三| 九九精品一区二区| 亚洲va韩国va欧美va精品 | 日本一二三不卡| 日韩欧美的一区| 精品视频在线免费观看| 久久99久国产精品黄毛片色诱| 亚洲精品日日夜夜| 国产亚洲欧美中文| 欧美人与性动xxxx| 91玉足脚交白嫩脚丫在线播放| 极品少妇一区二区| 亚洲精品你懂的| 久久综合九色综合欧美就去吻| 欧美日本一道本在线视频| 欧美一区二区三区视频在线| 日日噜噜夜夜狠狠视频欧美人 | 欧美va亚洲va香蕉在线| 欧美视频中文字幕| 91成人在线观看喷潮| 成人激情文学综合网| 国产成人亚洲精品青草天美| 麻豆精品视频在线观看免费| 五月婷婷激情综合| 午夜成人免费视频| 午夜视频在线观看一区二区 | 337p亚洲精品色噜噜狠狠| 在线视频国内一区二区| 成人h动漫精品一区二| 国产精品一区二区在线观看网站| 极品少妇xxxx精品少妇| 免费不卡在线观看| 亚洲国产精品一区二区www在线| 国产精品久久久久婷婷二区次| 日本一区免费视频| 亚洲素人一区二区| 亚洲美女在线国产| 一个色在线综合| 亚洲成a人片在线不卡一二三区 | 成人激情免费网站| 狠狠色伊人亚洲综合成人| 韩国精品主播一区二区在线观看 | 国产美女在线观看一区| 国产成人av一区二区三区在线观看| 懂色av中文一区二区三区| 91原创在线视频| 欧美探花视频资源| 欧美肥妇bbw| 日韩精品一区二区三区在线观看| 精品国产乱码久久久久久图片| 欧美一区二区三区视频免费| 久久久综合精品| 亚洲日本丝袜连裤袜办公室| 国产精品国产三级国产三级人妇| 亚洲精品第1页| 精品国产百合女同互慰| 91日韩一区二区三区| 99热99精品| 欧美一区二区三区啪啪| 在线不卡一区二区| 久久久精品2019中文字幕之3| 国产精品视频一二| 国产精品国产自产拍在线| 日韩 欧美一区二区三区| 成人美女视频在线看| 欧美日韩国产美女| 久久精品这里都是精品| 亚洲一区二区三区视频在线播放| 精品一区二区在线视频| 91免费国产视频网站| 欧美一区二区精品在线| 中文字幕欧美一| 日本中文字幕一区二区视频 | 在线观看91av| 国产精品色一区二区三区| 图片区小说区区亚洲影院| 国产福利精品一区| 91麻豆精品国产91久久久 | 欧美丰满高潮xxxx喷水动漫| 亚洲卡通动漫在线| 97成人超碰视| 国产精品久久久久影视| 国产91对白在线观看九色| 欧美精品一区视频| 国产综合久久久久久鬼色| 日韩午夜av电影| 青娱乐精品视频在线| 91麻豆精品国产91久久久久久| 亚洲国产美女搞黄色| 久久精品国产一区二区| 国产99精品国产| 国产日韩一级二级三级| 国产精品一二三在| 国产精品五月天| 91猫先生在线|