?? financialreport1.asp

?? 【文件介紹】人事薪資管理系統(tǒng)。【使用介紹】在Windows系統(tǒng)的管理工具中
?? ASP
字號:
<%@ Language=VBScript %>
<!--#include file="../conn.asp"-->
<%
if isempty(Session("ID")) then
	Response.Redirect "../login.asp"
end if
%>

<%
'set conn = server.createobject ("adodb.connection")
'conn.open "ASPData", "sa", ""
ReportLabel=False

if not IsEmpty(Request.Form("GoBack")) then
ReportLabel=False
end if 

if not IsEmpty(Request.Form("Send")) then

if Request.Form("DateLimit")="Yes" then
  StartDate=Request.Form("StartYear") & "-" & Request.Form("StartMonth") & "-" & Request.Form("StartDay")
  EndDate= Request.Form("EndYear")  & "-" & Request.Form("EndMonth")   & "-" & Request.Form("EndDay")
else
end if  
	
else
	TheMessage = "請選擇您要生成的報(bào)表類型"
end if

set RSDepartments = conn.Execute("select  部門名稱 from 部門信息 order by 部門名稱")
set RSProjectName = conn.Execute("select * from FinancialProject order by FinancialProjectName")
set RSPerson = conn.Execute("select Name from UserInfo order by Name")

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">

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

<BODY BGCOLOR="">

<FORM ACTION="FinancialReport1.asp"  METHOD=POST>
<% if Reportlabel=False  then %>
<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>


<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ù)報(bào)表&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> <font color=#10AD4D ><% response.write TheMessage %></FONT></td>
<td  align=right><a href=Finance.asp><font color=#10AD4D>返回上一級網(wǎng)頁</font></a></td>
</tr></table> 
<table width=800 border=0 bordercolor=#16A84D align=center cellpadding=0 cellspacing=0>
<tr><td height=10 colspan=4 valign=top bgcolor=#FFFFFF> 
<img src=.././image/banner2.jpg width=800 height=12>
</td></tr></table>

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

<table cellpadding=1 cellspacing=1 border=1 bordercolor=#16A84D align=center width=100%   >
<tr><td colspan=4 align=center bgcolor=#B5EFC7><font color=#16A84D>報(bào)表類型</font></td>
</td></tr>
<tr><td ><INPUT TYPE=radio CHECKED NAME=FinancialReportType VALUE=AllFinancialRecord >總流水帳報(bào)表&nbsp</td>
<td><INPUT TYPE=radio NAME=FinancialReportType VALUE=DepartmentFinancialRecord >部門財(cái)務(wù)報(bào)表&nbsp</td>
<td><INPUT TYPE=radio NAME=FinancialReportType VALUE=FinancialProjectReport >項(xiàng)目財(cái)務(wù)報(bào)表&nbsp</td>
<td><INPUT TYPE=radio NAME=FinancialReportType VALUE=PersonalFinancialReport>個(gè)人財(cái)務(wù)報(bào)表</td>
</tr>
<tr><td>&nbsp;</td>
<td><SELECT NAME=DepartmentName >
<%
Do Until RSDepartments.EOF
Response.Write "<OPTION VALUE=" & RSDepartments("部門名稱") & ">" & RSDepartments("部門名稱") & "</OPTION>"
RSDepartments.Movenext
loop
Response.Write "</SELECT></td>"
Response.Write "<td><SELECT NAME=ProjectName >"
Do Until RSProjectName.EOF
Response.Write "<OPTION VALUE=" & RSProjectName("FinancialProjectName") & ">" & RSProjectName("FinancialProjectName") & "</OPTION>"
RSProjectName.Movenext
loop
%>
</SELECT></td>
<td><SELECT NAME=Person >
<%
Do Until RSPerson.EOF
Response.Write "<OPTION VALUE=" & RSPerson("Name") & ">" & RSPerson("Name") & "</OPTION>"
RSPerson.Movenext
loop
%>
</SELECT></td>
<tr>
</table><br>

<table cellpadding=1 cellspacing=1 border=1 bordercolor=#16A84D align=center width=100%   >
<tr><td colspan=4 align=center bgcolor=#B5EFC7><font color=#16A84D>排序方式</font></td>
</td></tr>
<tr><td><INPUT TYPE=radio CHECKED NAME=ReportOrder VALUE=Name >按姓名排序&nbsp</td>
<td><INPUT TYPE=radio NAME=ReportOrder VALUE=ProjectName >按項(xiàng)目排序&nbsp</td>
<td><INPUT TYPE=radio NAME=ReportOrder VALUE=AccountName >按經(jīng)手人排序&nbsp</td>
<td><INPUT TYPE=radio NAME=ReportOrder VALUE=AddDate>按日期排序</td>
</tr>
</table><br>

<table cellpadding=1 cellspacing=1 border=1 bordercolor=#16A84D align=center width=100%   >
<tr><td colspan=2 align=center bgcolor=#B5EFC7><font color=#16A84D>時(shí)間期限</font></td></tr>
<tr><td><INPUT TYPE=radio CHECKED NAME=DateLimit VALUE=No >無時(shí)間限制&nbsp</td><td>&nbsp;</td></tr>
<tr><td><INPUT TYPE=radio NAME=DateLimit VALUE=Yes>有時(shí)間期限</td>
<td>
<table border=1 width=100%>
<tr><td>開始時(shí)間</td>
       <td>
<select name="StartYear" 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>年
</td>
<td>

<select name="StartMonth" 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>
月</td>
<td>
<select name="StartDay" 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>
<tr><td>截至?xí)r間</td><td>
<select name="EndYear" 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>年</td><td>
<select name="EndMonth" 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>月</td><td>
<select name="EndDay" 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>
</td>
</tr>
</table>

</td></tr></table>

<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1  WIDTH=800 align=center>
<TR VALIGN=top ALIGN=center><TD align=center >
<INPUT TYPE=submit NAME=Send VALUE=生成財(cái)務(wù)報(bào)表 style=border: 1px solid #34BB66; background-color: #B6EBCA; color: #34BB66>
</td></td></table>

<%
end if
%>
                          
<br>

<% if ReportLabel=true then %>
<table width=800 border=0 bgcolor=#16A84D cellspacing=1 cellpadding=2 align=center>
<tr><td><font color=white><P ALIGN=CENTER><% response.write TheMessage   %>
</font></td></tr>
<tr bgcolor=white ><td  align=center><table width=800 bgcolor=#16A84D border=0  cellspacing=1 cellpadding=2 align=center><tr>
<td><font color=white>記錄ID</font></td>
<td><font color=white>姓名</font></td>
<td><font color=white>部門</font></td>
<td><font color=white>項(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>經(jīng)手人</font></td>
<td><font color=white>日期</font></td></tr>  

<%
if not IsEmpty(RSAllFinancialRecord) then
SumFundTypeA=0
SumFundTypeB=0
SumFundTypeC=0
SumFundTypeD=0
SumSum=0
do Until RSAllFinancialRecord.eof 
Response.write "<tr bgcolor=white><td>" & RSAllFinancialRecord("ID") & "</td><td>" _
& RSAllFinancialRecord("Name") & "</td><td>" _
& RSAllFinancialRecord("Department") & "</td><td>" _
& RSAllFinancialRecord("ProjectName") & "</td><td>" _
& RSAllFinancialRecord("FundTypeA") & "</td><td>" _
& RSAllFinancialRecord("FundTypeB") & "</td><td>" _
& RSAllFinancialRecord("FundTypeC") & "</td><td>" _
& RSAllFinancialRecord("FundTypeD") & "</td><td>" _
& RSAllFinancialRecord("Sum") & "</td><td>" _
& RSAllFinancialRecord("AccountName") & "</td><td>" _
& RSAllFinancialRecord("AddDate") & "</td></tr>"
SumFundTypeA=SumFundTypeA+RSAllFinancialRecord("FundTypeA")
SumFundTypeB=SumFundTypeB+RSAllFinancialRecord("FundTypeB")
SumFundTypeC=SumFundTypeC+RSAllFinancialRecord("FundTypeC")
SumFundTypeD=SumFundTypeD+RSAllFinancialRecord("FundTypeD")
SumSum=SumSum+RSAllFinancialRecord("Sum")
RSAllFinancialRecord.Movenext
Loop
end if
%>
<tr bgcolor=white><td>合計(jì)</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td><% response.write SumFundTypeA %></td><td><% response.write SumFundTypeB %></td><td><% response.write SumFundTypeC %></td><td><% response.write SumFundTypeD %></td><td><% response.write SumSum %></td><td>&nbsp;</td><td>&nbsp;</td></tr>
</table></td></tr></table>
<p align=center>
<input type=submit name=GoBack value=&nbsp&nbsp生成新報(bào)表&nbsp&nbsp style="border: 1px solid #34BB66; background-color: #FFFFFF; color: #34BB66"> &nbsp
<input type=submit name=Print       value=&nbsp&nbsp打印此報(bào)表&nbsp&nbsp style="border: 1px solid #34BB66; background-color: #FFFFFF; color: #34BB66"> &nbsp
<input type=submit name=Save      value=&nbsp&nbsp保存此報(bào)表&nbsp&nbsp style="border: 1px solid #34BB66; background-color: #FFFFFF; color: #34BB66"></p>
<%
end if
%>                          

 </FORM>

 </BODY>
</HTML>
?? 文件大小 688 K
?? 上傳用戶 lhf123290507
?? 所屬分類企業(yè)管理
??? 相關(guān)標(biāo)簽

#Windows #管理系統(tǒng) #管理工具
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? financialreport1.asp

?? 快捷鍵說明
