📄 cash.asp
字号:
<%
If request("mode")<>"print" Then
%>
<!--#include file="navigator.asp"-->
<%
End If
%>
<!--#include file="datconfig.asp"-->
<!--#include file="cashcode.asp"-->
<%
'检查用户的操作权限
if GetSess("UserName")<>"超级用户" Then CheckAuthor(17)
Dim MySql
Dim sDate1,sDate2,sHour1,sHour2,sPayMethod,lPayMethod,sOperator
Dim QuaTotal,AmoTotal,STotal '合计参数
QuaTotal=0
AmoTotal=0
STotal=0
'给出数据
GetInput
%>
<title>客人消费总报表</title>
<body style="font-family: 宋体; font-size: 10pt">
<%
'浏览模式显示该表格
If request("mode")<>"print" Then
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="20">
<tr>
<td width="100%"> </td>
</tr>
</table>
<%
End If
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#808080" width="99%" id="AutoNumber3" height="21">
<tr>
<td height="50" colspan="2" align="center" width="760">
<br><span style="letter-spacing: 3pt; ">【<%=CompanyName%>】消费现金流水帐</span></td>
</tr>
<tr><form method="POST" action="cash.asp" name="Query">
<td align="center" bgcolor="#DCF7FC" height="25" style="font-family: 宋体; font-size: 9pt">
<%
If request("mode")<>"print" Then
%>
<a href="cash.asp?mode=print&txtDate1=<%=sDate1%>&txtDate2=<%=sDate2%>&txtType=<%=lPaymethod%>&txtHour1=<%=sHour1%>&txtHour2=<%=sHour2%>&txtPaymethod=<%=sPaymethod%>&txtOperator=<%=sOperator%>"><font color="#006699"><img border="0" src="images/show11.gif" align="absmiddle" alt="打印模式"> 打印模式</font></a>
<%
Else
%>
<a href="cash.asp?txtDate1=<%=sDate1%>&txtDate2=<%=sDate2%>&txtType=<%=lPaymethod%>&txtHour1=<%=sHour1%>&txtHour2=<%=sHour2%>&txtPaymethod=<%=sPaymethod%>&txtOperator=<%=sOperator%>"><font color="#006699">
<img border="0" src="images/paper.gif" align="texttop" alt="浏览模式"> 浏览模式</font></a>
<%
End If
%>
</td>
<td align="right" style="font-family: 宋体; font-size: 9pt" bgcolor="#DCF7FC" height="25"> <input type="text" value="<%=sDate1%>" name="txtDate1" size="8" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; padding-left:3; padding-right:3; padding-top:1; background-color:#DCF7FC">
<input type="text" value="<%=sHour1%>" name="txtHour1" size="1" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; background-color:#DCF7FC">点<font color="#0099CC"><span lang="en-gb">-</span></font><input type="text" name="txtDate2" value="<%=sDate2%>" size="8" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; padding-left:2; padding-right:2; padding-top:1; background-color:#DCF7FC">
<input type="text" value="<%=sHour2%>" name="txtHour2" size="1" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; background-color:#DCF7FC">点<span lang="en-gb">
<select size="1" name="txtType" style="border: 1px solid #0099CC; color:#006699; height:1; position:relative; top:2; padding-top:0">
<%If lPayMethod="显示所有" Then
%><option selected value="显示所有">显示所有</option>
<%Else%><option value="显示所有">显示所有</option>
<%
End If%>
<%If lPayMethod="显示支出" Then
%><option selected value="显示支出">显示支出</option>
<%Else%><option value="显示支出">显示支出</option>
<%
End If%>
<%If lPayMethod="显示收入" Then
%><option selected value="显示收入">显示收入</option>
<%Else%><option value="显示收入">显示收入</option>
<%
End If%>
</select><select size="1" name="txtOperator" style="position: relative; top: 2; border: 1px solid #0099CC">
<option value="所有操作员">所有操作员
</option><% WriteOperator(sOperator)%>
</select><select size="1" name="txtPayMethod" style="color: #FF6600; position: relative; top: 2; border: 1px solid #DCF7FC">
<option value="所有支付方式">所有支付方式</option><% WritePayMethod(sPayMethod)%>
</select>
</span><input type="submit" value="搜索" name="B1" style="color: #FFFFFF; height: 20; font-size: 10pt; font-family: 宋体; border: 1px solid #00FFFF; padding-left: 2; padding-right: 2; padding-top: 1; background-color: #0099CC"><input type="button" value="打印" name="Printit" onClick="window.print();" style="color: #FFFFFF; height: 20; border: 1px solid #00FFFF; padding-left: 2; padding-right: 2; padding-top: 1; background-color: #0099CC"> </td>
</tr></form>
</table>
</center>
</div>
<%
Dim NewDBC
Set NewDBC=CreateObject("ADODB.Connection")
NewDBC.Open Constring
Set objRs=CreateObject("ADODB.Recordset")
objRs.Open MySQL,NewDBC,adOpenKeySet, adLockOptimistic, adcmdText
If objRS.eof then
objRS.Close
set objRS=nothing
CloseDatabase NewDBC
Response.write "<P Align='Center'>没有记录,请改变日期再试试?</font></P>"
Else
%>
<div align="center">
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse; font-family: 宋体; font-size: 9pt; color:#006699" bordercolor="#808080" width="99%" id="AutoNumber4" bordercolordark="#808080" bordercolorlight="#808080" height="40">
<tr>
<td width="20" bgcolor="#FBF4EA" align="center">
<span style="letter-spacing: 2" lang="en-gb">ID</span></td>
<td width="70" bgcolor="#FBF4EA" align="center">
<span style="letter-spacing: 2">时间</span></td>
<td bgcolor="#FBF4EA" align="center">
<span style="letter-spacing: 2">时</span></td>
<td bgcolor="#FBF4EA" align="center">
<span style="letter-spacing: 2">分</span></td>
<td width="70" bgcolor="#FBF4EA" align="center">
<span style="letter-spacing: 2">支出金额</span></td>
<td width="70" bgcolor="#FBF4EA" align="center">
<span style="letter-spacing: 2">实收金额</span></td>
<td width="250" bgcolor="#FBF4EA" align="center">
<span style="letter-spacing: 2">详细说明</span></td>
<td width="60" bgcolor="#FBF4EA" align="center">
<span style="letter-spacing: 2">操作员</span></td>
<td width="70" bgcolor="#FBF4EA" align="center">
<span style="letter-spacing: 2">支付方式</span></td>
</tr>
<%
WriteList '写列表
CloseDatabase NewDBC
%> <tr>
<td colspan="4" bgcolor="#FFFFFF" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0">
<font color="#006699"><span lang="zh-cn">【</span>合计<span lang="zh-cn">】</span> <span lang="zh-cn">共〖</span><b><font size="2"><%=FormatNumber(STotal,0,-1)%></font></b><span lang="zh-cn">〗</span></font><span lang="zh-cn">条记录</span>
</td>
<td width="70" bgcolor="#FFFFFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0">
<span lang="en-gb"><font color="#006699"><%=FormatNumber(QuaTotal,2,-1)%></font></span> </td>
<td bgcolor="#FFFFFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0">
<span lang="en-gb"><font color="#006699"><%=FormatNumber(AmoTotal,2,-1)%></font></span> </td>
</td>
<td width="250" bgcolor="#DCF7FC" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0">
</td>
<td width="70" bgcolor="#DCF7FC" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0"> </td>
<td width="90" bgcolor="#DCF7FC" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0"> </td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellspacing="1" style="border-collapse: collapse; font-family:宋体; font-size:9pt" bordercolor="#111111" width="99%" id="AutoNumber5">
<tr>
<td width="33%" height="3"></td>
<td width="33%" height="3"></td>
<td width="34%" align="right" height="3"></td>
</tr>
<tr>
<td width="33%"><font color="#808080"> 制单：</font><font color="#006699"><span lang="en-gb"><%=Getsess("Username")%></span></font></td>
<td width="33%"> </td>
<td width="34%" align="right"><font color="#808080">日期：</font><font color="#006699"><span lang="en-gb"><%=Date%></span></font></td>
</tr>
<tr>
<td width="33%"> </td>
<td width="33%"> </td>
<td width="34%" align="right"><font color="#808080"><%=CompanyName%></font></td>
</tr>
</table>
</center>
</div>
<%
End if
'生成查询串,再第一次访问时。
Sub GenerateSQL
Dim Sqlproc
Dim Key
Dim Sqladd
SqlAdd=" And "
'检测是SQL还是access数据库
MySql = "Select * from tbdWastebook "
Dim sqlTmp
If lPayMethod<>"显示所有" Then
If lPayMethod="显示支出" Then
sqlTMp = " And (DDirect=0)"
Else
sqlTMp = " And (DDirect=1)"
End If
End If
If sOperator <> "所有操作员" Then
sqlTMp = sqlTMp & " And (DOperator='" & sOperator & "')"
End If
If sPayMethod <> "所有支付方式" Then
sqlTMp = sqlTMp & " And (tmpStr='" & sPayMethod & "')"
End If
'两日期相同,为同一天时
If sDate1=sDate2 Then
If IsSqlDat = True Then
MySql=MySql & " Where ((lHour>=" & sHour1 & " And lHour<=" & sHour2 & ")" _
& " And (DDate>='" & sDate1 & "' And DDate<='" & sDate2 & "'))" & sqlTMp & " Order By ID"
Else
MySql=Mysql & " Where ((lHour>=" & sHour1 & " And lHour<=" & sHour2 & ")" _
& " And (DDate>=#" & sDate1 & "# And DDate<=# " & sDate2 & "#))" & sqlTMp & " Order By ID"
End If
Else
'两日之间的间隔时
If IsSqlDat = True Then
MySql=Mysql & " Where ((lHour>=" & sHour1 _
& " And DDate='" & sDate1 & "') OR (DDate>'" & sDate1 & "' And DDate<'" & sDate2 _
& "') Or (lHour<=" & sHour2 & " And DDate='" & sDate2 & "'))" & sqlTMp & " Order By ID"
Else
MySql=Mysql & " Where ((lHour>=" & sHour1 _
& " And DDate=#" & sDate1 & "#) OR (DDate>#" & sDate1 & "# And DDate<#" & sDate2 _
& "#) Or (lHour<=" & sHour2 & " And DDate=#" & sDate2 & "#))" & sqlTMp & " Order By ID"
End If
End If
End sub
'给出查询变量参数
Sub GetInput
'给出日期段 ******************************
sDate1=request("txtDate1")
sDate2=request("txtdate2")
If Not Isdate(sDate1) Then
sDate1=Date-7
End If
If Not Isdate(sDate2) Then
sDate2=Date
End If
If cDate(sdate1)>CDate(sDate2) Then
sDate1=sDate2
End If
'*****************************************
'给出点段---------------------------------
sHour1=request("txtHour1")
sHour2=request("txtHour2")
If sHour1="" Then sHour1=0
If sHour2="" Then sHour2=23
If Not IsNumeric(sHour1) Then
sHour1=0
Else
If cInt(sHour1)>23 Then
sHour1=23
End If
End If
If Not IsNumeric(sHour2) Then
sHour2=23
Else
If cInt(sHour2)>23 Then
sHour2=23
End If
End If
'-----------------------------------------
sPaymethod=request("txtPayMethod")
lPayMethod=request("txtType")
sOperator=request("txtOperator")
If sPaymethod="" Then sPaymethod="所有支付方式"
If lPaymethod="" Then lPaymethod="显示所有"
If sOperator="" Then sOperator="所有操作员"
'打开查询字符串
GenerateSQL
End sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -