?? menu.asp
字號:
<%
If request("mode")<>"print" Then
%>
<!--#include file="navigator.asp"-->
<%
End If
%>
<!--#include file="datconfig.asp"-->
<!--#include file="menucode.asp"-->
<%
'檢查用戶的操作權限
if GetSess("UserName")<>"超級用戶" Then CheckAuthor(19)
Dim MySql
Dim sDate1,sDate2,sHour1,sHour2
Dim QuaTotal,AmoTotal,STotal,BxfTotal,AmosTotal '合計參數
QuaTotal=0
AmoTotal=0
STotal=0
AmosTotal=0
bxfTotal=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="menu.asp" name="Query">
<td align="center" bgcolor="#EEEEFF" height="25" style="font-family: 宋體; font-size: 9pt">
<%
If request("mode")<>"print" Then
%>
<a href="menu.asp?mode=print&txtDate1=<%=sDate1%>&txtDate2=<%=sDate2%>&txtHour1=<%=sHour1%>&txtHour2=<%=sHour2%>">
<font color="#006699"><img border="0" src="images/show11.gif" align="absmiddle" alt="打印模式"> 打印模式</font></a><font color="#006699">
<%
Else
%> </font>
<a href="menu.asp?txtDate1=<%=sDate1%>&txtDate2=<%=sDate2%>&txtHour1=<%=sHour1%>&txtHour2=<%=sHour2%>">
<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">
<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:#EEEEFF">
<input type="text" value="<%=sHour1%>" name="txtHour1" size="1" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; background-color:#EEEEFF">點<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:#EEEEFF">
<input type="text" value="<%=sHour2%>" name="txtHour2" size="1" style="border:1px solid #006699; font-family: Arial; font-size: 9pt; color:#006699; background-color:#EEEEFF">點<span lang="en-gb">
</span>
<input type="submit" value="搜索" name="B1" style="color: #FFFFFF; height: 20; font-size: 10pt; font-family: 宋體; border: 1px solid #FFFF00; 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 #FFFF00; 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="61" bgcolor="#F1FAFC" align="center">消費單號</td>
<td bgcolor="#F1FAFC" align="center" width="70"> 消費時間</td>
<td bgcolor="#F1FAFC" align="center" width="60">食品分類</td>
<td width="84" bgcolor="#F1FAFC" align="center">物品名稱</td>
<td width="30" bgcolor="#F1FAFC" align="center">單位</td>
<td width="70" bgcolor="#F1FAFC" align="center">單價</td>
<td bgcolor="#F1FAFC" align="center" width="60">數量</td>
<td width="80" bgcolor="#F1FAFC" align="center">金額</td>
<td width="50" bgcolor="#F1FAFC" align="center">加工費</td>
<td width="90" bgcolor="#F1FAFC" align="center">總金額</td>
</tr>
<%
WriteList '寫列表
CloseDatabase NewDBC
%> <tr>
<td colspan="4" bgcolor="#FFFFFF" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="259">
<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>
</td>
<td bgcolor="#EEEEFF" align="right" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="30">
<span lang="en-gb"><font color="#006699"></font></span> </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="80">
<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="90">
<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
'生成查詢串,再第一次訪問時。
Sub GenerateSQL
Dim Sqlproc
Dim Key
Dim Sqladd
SqlAdd=" And "
'檢測是SQL還是access數據庫
MySql ="Select Cust.SheelID,Cust.DType,Cust.Name,Cust.Unit,Cust.Price,Cust.Quanty,Cust.Amo,Cust.JGF,Cust.Amos" _
& ",Site.Date from Cust Inner Join Site On Cust.SheelID=Site.ID Where Cust.SheelID In(Select ID From Site "
'兩日期相同,為同一天時
If sDate1=sDate2 Then
If IsSqlDat = True Then
MySql=MySql & " Where ((lHour>=" & sHour1 & " And lHour<=" & sHour2 & ")" _
& " And (Date>='" & sDate1 & "' And Date<='" & sDate2 & "')) Order By ID"
Else
MySql=Mysql & " Where ((lHour>=" & sHour1 & " And lHour<=" & sHour2 & ")" _
& " And (Date>=#" & sDate1 & "# And Date<=# " & sDate2 & "#)) Order By ID"
End If
Else
'兩日之間的間隔時
If IsSqlDat = True Then
MySql=Mysql & " Where ((lHour>=" & sHour1 _
& " And Date='" & sDate1 & "') OR (Date>'" & sDate1 & "' And Date<'" & sDate2 _
& "') Or (lHour<=" & sHour2 & " And Date='" & sDate2 & "')) Order By ID"
Else
MySql=Mysql & " Where ((lHour>=" & sHour1 _
& " And Date=#" & sDate1 & "#) OR (Date>#" & sDate1 & "# And Date<#" & sDate2 _
& "#) Or (lHour<=" & sHour2 & " And Date=#" & sDate2 & "#)) Order By ID"
End If
End If
Mysql=Mysql & ")"
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
'-----------------------------------------
'打開查詢字符串
GenerateSQL
End sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -