menutjcode.asp

星级酒店管理系统（附带系统自写控件源码）

<%

 '给出消费总报表
  Sub WriteList
  
      On Error Resume Next
  
      Dim nColor
      Dim nRecord
      Dim sDLink                                           
      Dim bColorChange
      Dim xccMoney,xccAmount,xccQuanty,xccJGF
      Dim xTmpType                             '菜名分类
      
      bColorChange=0
      nColor="#FAEFE4"
      nRecord=0
        
      Do while Not objRS.Eof                                   
      
        '汇总合计
         amosTotal = amosTotal + objRs("JE")   
         amoTotal = amoTotal + objRs("Amoss")      
         quaTotal = quaTotal + objRs("Quantys")   
         bxfTotal = bxfTotal + objRs("JGFs")           
                
         If NullValue(objRs("DType")) <> sTmpType Then
           '第一次循环时,不写小计
            If sTmpType <> "" Then
               nColor="#FFFFFF"
              '小计开始==============================================================
               response.write "<tr>" & vbcrlf 
               response.write "<td width='61' bgcolor='" & nColor & "' align='Center'></td>" & vbcrlf
               response.write "<td width='70' bgcolor='" & nColor & "' align='Center'></td>"  & vbcrlf         
               response.write "<td width='60' bgcolor='" & nColor & "' align='Left'>『小计』</td>" & vbcrlf          
              '给出物品分类
               response.write "<td width='84' bgcolor='" & nColor & "' align='Left'></td>" & vbcrlf     
              '给出单位
               response.write "<td width='30' bgcolor='" & nColor & "' align='Left'></td>" & vbcrlf      
              '给出单价
               response.write "<td width='70' bgcolor='" & nColor & "' align='right'></td>" & vbcrlf  
              '给出数量
               response.write "<td width='60' bgcolor='" & nColor & "' align='right'>"         
               response.write FormatNumber(xccQuanty,2,-1)
               response.write "</td>" & vbcrlf                    
              '给出金额
               response.write "<td width='80' bgcolor='" & nColor & "' align='Right'>"
               response.write FormatNumber(xccMoney,2,-1)
               response.write "</td>" & vbcrlf  
              '给出加工费
               response.write "<td width='50' bgcolor='" & nColor & "' align='Right'>"
               response.write FormatNumber(xccJgf,2,-1)
               response.write "</td>" & vbcrlf           
              '给出总金额
               response.write "<td width='90' bgcolor='" & nColor & "' align='Right'>"
               response.write FormatNumber(xccAmount,2,-1)
               response.write "</td>" & vbcrlf  
               response.write "</tr>"  & vbcrlf    
              '小计结束============================================================== 
               xccQuanty = 0: xccAmount = 0: xccMoney = 0: xccJGF = 0
            End If
            nColor="#FAEFE4" 
            sTmpType = NullValue(objRs("DType"))
            '插入带食品分类的产品++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
             response.write "<tr>" & vbcrlf    
             response.write "<td width='61' bgcolor='" & nColor & "' align='Center'></td>" & vbcrlf
             response.write "<td width='70' bgcolor='" & nColor & "' align='Center'></td>"  & vbcrlf         
            '给出食品分类
             response.write "<td width='60' bgcolor='" & nColor & "' align='Left'>"         
             response.write objRs("DType")
             response.write "</td>" & vbcrlf          
            '给出物品分类
             response.write "<td width='84' bgcolor='" & nColor & "' align='Left'>"
             response.write objRs("Name")  
             response.write "</td>" & vbcrlf     
            '给出单位
             response.write "<td width='30' bgcolor='" & nColor & "' align='Left'>"
             response.write objRs("Unit")  
             response.write "</td>" & vbcrlf      
            '给出单价
             response.write "<td width='70' bgcolor='" & nColor & "' align='right'>"
             response.write FormatNumber(objRs("Price"),2,-1)         
             response.write "</td>" & vbcrlf  
            '给出数量
             response.write "<td width='60' bgcolor='" & nColor & "' align='right'>"         
             response.write FormatNumber(objRs("Quantys"),2,-1)
             response.write "</td>" & vbcrlf                    
            '给出金额
             response.write "<td width='80' bgcolor='" & nColor & "' align='Right'>"
             response.write FormatNumber(objRs("Je"),2,-1)
             response.write "</td>" & vbcrlf  
            '给出加工费
             response.write "<td width='50' bgcolor='" & nColor & "' align='Right'>"
             response.write FormatNumber(objRs("JGFs"),2,-1)
             response.write "</td>" & vbcrlf           
            '给出总金额
             response.write "<td width='90' bgcolor='" & nColor & "' align='Right'>"
             response.write FormatNumber(objRs("Amoss"),2,-1)
             response.write "</td>" & vbcrlf  
             response.write "</tr>"  & vbcrlf    
            '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++             
          Else
             nColor="#FFFFFF"
            '相同分类时,插入无食品分类**************************************************************
             response.write "<tr>" & vbcrlf 
             response.write "<td width='61' bgcolor='" & nColor & "' align='Center'></td>" & vbcrlf
             response.write "<td width='70' bgcolor='" & nColor & "' align='Center'></td>"  & vbcrlf         
             response.write "<td width='60' bgcolor='" & nColor & "' align='Left'></td>" & vbcrlf 
            '给出物品分类
             response.write "<td width='84' bgcolor='" & nColor & "' align='Left'>"
             response.write objRs("Name")  
             response.write "</td>" & vbcrlf     
            '给出单位
             response.write "<td width='30' bgcolor='" & nColor & "' align='Left'>"
             response.write objRs("Unit")  
             response.write "</td>" & vbcrlf      
            '给出单价
             response.write "<td width='70' bgcolor='" & nColor & "' align='right'>"
             response.write FormatNumber(objRs("Price"),2,-1)         
             response.write "</td>" & vbcrlf  
            '给出数量
             response.write "<td width='60' bgcolor='" & nColor & "' align='right'>"         
             response.write FormatNumber(objRs("Quantys"),2,-1)
             response.write "</td>" & vbcrlf                    
            '给出金额
             response.write "<td width='80' bgcolor='" & nColor & "' align='Right'>"
             response.write FormatNumber(objRs("Je"),2,-1)
             response.write "</td>" & vbcrlf  
            '给出加工费
             response.write "<td width='50' bgcolor='" & nColor & "' align='Right'>"
             response.write FormatNumber(objRs("JGFs"),2,-1)
             response.write "</td>" & vbcrlf           
            '给出总金额
             response.write "<td width='90' bgcolor='" & nColor & "' align='Right'>"
             response.write FormatNumber(objRs("Amoss"),2,-1)
             response.write "</td>" & vbcrlf  
             response.write "</tr>"  & vbcrlf    
            '**************************************************************************************** 
         End If     
         xccMoney = xccMoney + objRs("Je")               '小计
         xccAmount = xccAmount + objRs("Amoss")      
         xccQuanty = xccQuanty + objRs("Quantys")    
         xccJGF = xccJGF + objRs("JGFs")                                     
         objRs.Movenext          
         nRecord=nRecord+1
    Loop
    sTotal=nRecord                              '共有多少条记录
    If sTmpType<>"" Then
       nColor="#FFFFFF"
      '小计开始==============================================================
       response.write "<tr>" & vbcrlf 
       response.write "<td width='61' bgcolor='" & nColor & "' align='Center'></td>" & vbcrlf
       response.write "<td width='70' bgcolor='" & nColor & "' align='Center'></td>"  & vbcrlf 
       response.write "<td width='60' bgcolor='" & nColor & "' align='Left'>『小计』</td>" & vbcrlf  
      '给出物品分类
       response.write "<td width='84' bgcolor='" & nColor & "' align='Left'></td>" & vbcrlf     
      '给出单位
       response.write "<td width='30' bgcolor='" & nColor & "' align='Left'></td>" & vbcrlf      
      '给出单价
       response.write "<td width='70' bgcolor='" & nColor & "' align='right'></td>" & vbcrlf  
      '给出数量
       response.write "<td width='60' bgcolor='" & nColor & "' align='right'>" 
       response.write FormatNumber(xccQuanty,2,-1)
       response.write "</td>" & vbcrlf    
      '给出金额
       response.write "<td width='80' bgcolor='" & nColor & "' align='Right'>"
       response.write FormatNumber(xccMoney,2,-1)
       response.write "</td>" & vbcrlf  
      '给出加工费
       response.write "<td width='50' bgcolor='" & nColor & "' align='Right'>"
       response.write FormatNumber(xccJgf,2,-1)
       response.write "</td>" & vbcrlf   
      '给出总金额
       response.write "<td width='90' bgcolor='" & nColor & "' align='Right'>"
       response.write FormatNumber(xccAmount,2,-1)
       response.write "</td>" & vbcrlf  
       response.write "</tr>"  & vbcrlf    
      '小计结束============================================================== 
     End If
     
End Sub

Function NullValue(tmpField)
   
   On error resume next
   
   IF not Isnull(tmpField) Then
      NullValue=tmpField.Value
     Else
      Nullvalue=""
   End If    
   
End Function

%>