?? sheet.asp
字號(hào):
<%
If request("mode")<>"print" Then
%>
<!--#include file="navigator.asp"-->
<%
End If
%>
<!--#include file="datconfig.asp"-->
<!--#include file="sheetcode.asp"-->
<%
'檢查用戶的操作權(quán)限
if GetSess("UserName")<>"超級(jí)用戶" Then CheckAuthor(19)
Dim MySql,sSite
Dim QuaTotal,AmoTotal,STotal,BxfTotal,AmosTotal '合計(jì)參數(shù)
QuaTotal=0
AmoTotal=0
STotal=0
AmosTotal=0
bxfTotal=0
'給出數(shù)據(jù)
GetInput
%>
<title>客人消費(fèi)總報(bào)表</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
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'>沒(méi)有查詢到該座位消費(fèi)記錄。</P>"
Else
%>
<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; ">單號(hào)【<%=sSite%>】消費(fèi)明細(xì)</span></td>
</tr>
<tr><form method="POST" action="sheet.asp" name="Query">
<td align="center" bgcolor="#EEEEFF" height="25" style="font-family: 宋體; font-size: 9pt">
<%
If request("mode")<>"print" Then
%>
<a href="sheet.asp?mode=print&ID=<%=sSite%>">
<font color="#006699"><img border="0" src="images/show11.gif" align="absmiddle" alt="打印模式"> 打印模式</font></a><font color="#006699">
<%
Else
%> </font>
<a href="sheet.asp?ID=<%=sSite%>">
<font color="#006699">
<img border="0" src="images/paper.gif" align="texttop" alt="瀏覽模式"> 瀏覽模式</font></a><font color="#006699">
<%
End If
%> </font>
</td>
<td align="right" style="font-family: 宋體; font-size: 9pt" bgcolor="#EEEEFF" height="25">
<font color="#FF0000">【</font>餐桌號(hào)<span lang="en-gb">:</span><font color="#FF0000"><%=ObjRs("Site")%>】</font><span lang="en-gb">
</span>日期<span lang="en-gb">:<font color="#FF0000"><%=ObjRs("Date")%></font></span>日<span lang="en-gb">
<font color="#FF0000"><%=ObjRs("lHour")%></font></span>時(shí)<font color="#FF0000"><span lang="en-gb"><%=ObjRs("lMinute")%></span></font>分<span lang="en-gb">
</span>服務(wù)員<span lang="en-gb">:</span><font color="#FF0000"><%=NullValue(ObjRs("Waiter"))%></font><span lang="en-gb">
</span>收銀員<span lang="en-gb">:</span><font color="#FF0000"><%=NullValue(ObjRs("CheckOutMan"))%></font><span lang="en-gb">
</span> <span lang="en-gb">
</span>
<input type="button" value="打印" name="Printit" onClick="window.print();" style="color: #FFFFFF; height: 20; border: 1px solid #FFFF00; padding-left: 2; padding-right: 2; padding-top: 1; background-color: #0099CC"> </td>
</tr></form>
</table>
</center>
</div>
<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="655" bgcolor="#F1FAFC" colspan="9">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; font-size: 9pt" bordercolor="#111111" id="AutoNumber6">
<tr>
<td height="25"><span lang="en-gb"> </span>會(huì)員編號(hào)<span lang="en-gb">:<font color="#FF0000"><%=NullValue(ObjRs("MID"))%></font></span></td>
<td><span lang="en-gb"> </span>名稱<span lang="en-gb">:</span><font color="#FF0000"><%=NullValue(ObjRs("Name"))%></font><span lang="en-gb">
</span></td>
<td><span lang="en-gb"> </span>消費(fèi)總額<span lang="en-gb">:<font color="#FF0000"><%=FormatNumber(ObjRs("JEAmo"),2,-1)%></font></span><font color="#FF0000">元</font></td>
<td><span lang="en-gb"> </span>打折率<span lang="en-gb">:<font color="#FF0000"><%=ObjRs("Discount")%>%
</font></span></td>
<td><font color="#FF0000"><span lang="en-gb"> </span></font>
包廂費(fèi)<span lang="en-gb">:<font color="#FF0000"><%=FormatNumber(ObjRs("BXF"),2,-1)%></font></span><font color="#FF0000">元</font></td>
<td><span lang="en-gb"> </span>實(shí)付金額<span lang="en-gb">:<font color="#FF0000"><%=FormatNumber(ObjRs("SFAmo"),2,-1)%></font></span><font color="#FF0000">元</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="80" bgcolor="#F1FAFC" align="center">菜單編號(hào)</td>
<td bgcolor="#F1FAFC" align="center" width="80">菜單助記碼</td>
<td width="100" bgcolor="#F1FAFC" align="center">菜名</td>
<td width="30" bgcolor="#F1FAFC" align="center">單位</td>
<td width="70" bgcolor="#F1FAFC" align="center">單價(jià)</td>
<td bgcolor="#F1FAFC" align="center" width="60">數(shù)量</td>
<td width="70" bgcolor="#F1FAFC" align="center">金額</td>
<td width="50" bgcolor="#F1FAFC" align="center">加工費(fèi)</td>
<td width="80" bgcolor="#F1FAFC" align="center">總金額</td>
</tr>
<%
WriteList "Select * From Cust Where SheelID=" & clng(sSite) '寫列表
CloseDatabase NewDBC
%> <tr>
<td colspan="3" bgcolor="#FFFFFF" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="259">
<span lang="zh-cn">【</span>合計(jì)<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>
</td>
<td bgcolor="#EEEEFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="30">
</td>
<td bgcolor="#EEEEFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="70">
</td>
</td>
<td bgcolor="#EEEEFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="60"><font color="#006699"><%=FormatNumber(QuaTotal,2,-1)%></font> </td>
<td bgcolor="#EEEEFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="70">
<font color="#006699"><%=FormatNumber(AmoTotal,2,-1)%></font> </td>
<td bgcolor="#EEEEFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="50"><font color="#006699"><%=FormatNumber(BxfTotal,2,-1)%></font> </td>
<td bgcolor="#EEEEFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="80">
<font color="#006699"><%=FormatNumber(AmosTotal,2,-1)%></font> </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
'生成查詢串,再第一次訪問(wèn)時(shí)。
Sub GenerateSQL
Dim Sqlproc
Dim Key
Dim Sqladd
SqlAdd=" And "
MySql ="Select Site.Site,Site.Date,Site.lHour,Site.lMinute,Site.CheckOutman,Site.MID," _
& "tbdMember.Name,Site.JeAmo,Site.SFAmo,Site.Waiter,Site.BXF,Site.Discount " _
& " From Site Left Join tbdMember On Site.MID=tbdMember.ID Where Site.ID=" & clng(sSite)
End sub
'給出查詢變量參數(shù)
Sub GetInput
sSite=request("ID") '餐桌名稱
If Not IsNumeric(sSite) Then
sSite=0
End If
'打開(kāi)查詢字符串
GenerateSQL
End sub
%>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -