sheetcode.asp

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

<%

 '给出消费明细表
  Sub WriteList(stmpSql)
  
      On Error Resume Next
  
      Dim nColor
      Dim nRecord
      Dim sDLink                                           
      Dim bColorChange
      bColorChange=0
      nColor="#FAEFE4"
      nRecord=0
      Dim tmpRS
      Set tmpRs=Createobject("ADODB.Recordset")
          tmpRs.Open stmpSql,NewDBC,adOpenKeySet, adLockOptimistic, adcmdText 
          
     '没有找到时,不写入     
      If Not (tmpRs.Eof And tmpRs.Bof) Then    
      
      Do while Not tmpRs.Eof                                   
         response.write "<tr>" & vbcrlf
        '给出菜单编号
         response.write "<td width='80' bgcolor='" & nColor & "' align='Center'>"
         response.write tmpRs("ID") & "</td>"  & vbcrlf         
        '给出助记码
         response.write "<td width='80' bgcolor='" & nColor & "' align='Left'>"         
         response.write tmpRs("CID")
         response.write "</td>" & vbcrlf          
        '给出物品分类
         response.write "<td width='100' bgcolor='" & nColor & "' align='Left'>"
         response.write tmpRs("Name")  
         response.write "</td>" & vbcrlf     
        '给出单位
         response.write "<td width='30' bgcolor='" & nColor & "' align='Left'>"
         response.write tmpRs("Unit")  
         response.write "</td>" & vbcrlf      
        '给出单价
         response.write "<td width='70' bgcolor='" & nColor & "' align='right'>"
         response.write FormatNumber(tmpRs("Price"),2,-1)         
         response.write "</td>" & vbcrlf  
        '给出数量
         response.write "<td width='60' bgcolor='" & nColor & "' align='right'>"         
         response.write FormatNumber(tmpRs("Quanty"),2,-1)
         QuaTotal=QuaTotal+tmpRs("Quanty")
         response.write "</td>" & vbcrlf                    
        '给出金额
         response.write "<td width='70' bgcolor='" & nColor & "' align='Right'>"
         response.write FormatNumber(tmpRs("Amo"),2,-1)
         AmoTotal=Amototal+tmpRs("Amo")
         response.write "</td>" & vbcrlf  
        '给出加工费
         response.write "<td width='50' bgcolor='" & nColor & "' align='Right'>"
         response.write FormatNumber(tmpRs("JGF"),2,-1)
         BxfTotal=BxfTotal+tmpRs("JGF")
         response.write "</td>" & vbcrlf           
        '给出总金额
         response.write "<td width='80' bgcolor='" & nColor & "' align='Right'>"
         response.write FormatNumber(tmpRs("Amos"),2,-1)
         AmosTotal=AmosTotal+tmpRs("Amos")
         response.write "</td>" & vbcrlf  

         response.write "</tr>"  & vbcrlf                   
         tmpRs.Movenext        
  
         If  bColorChange=0 Then                   '变换网络底色
             BColorChange=1
             nColor="#FFFFFF"
          Else
             nColor="#FAEFE4"
             BColorChange=0
         End if     
         nRecord=nRecord+1
      Loop 
      
    End If
   
    sTotal=nRecord                              '共有多少条记录   
      
End Sub

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

%>