gzmenu.dsr

餐饮管理系统数据库设计文档 表名：bzqbj（保质期报警表） 字段名 字段类型 字段长度 （0表示不允许NULL

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} gzMenu 
   Caption         =   "结帐单"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   WindowState     =   2  'Maximized
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "gzMenu.dsx":0000
End
Attribute VB_Name = "gzMenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private sumkin As Double
Private sumSuu As Double
Public dssje As Double
Private dgj As Double
Private Sub ActiveReport_ReportStart()
'    rptMenu.Printer.Orientation = ddOLandscape
'    rptMenu.Printer.Orientation = ddOPortrait
'    rptMenu.Printer.PaperSize = 256 ' Custom paper size
'    rptMenu.Printer.PaperWidth = 1440 * 2
'    rptMenu.Printer.PaperHeight = 1440 * 4
    Me.GroupHeader2.DataField = "dh"
    sumkin = 0
    sumSuu = 0
    lblDate = Format(Now, "yyyy/mm/dd HH:MM:SS")
    dgj = 0
End Sub

Private Sub Detail_Format()
    With Me.dtctl1.Recordset
      
        fldCd = !cM
'        fldNm = !name
        fldNm = !mc
        fldSuu = Format(!sl, sfmtc)
        If !sftj = 1 Then
            fldTank = Format(!tj, kfmtc)
            fldKin = Format(!sl * !tj, kfmtc)
            sumkin = sumkin + !sl * !tj
        Else
            fldTank = Format(!price, kfmtc)
            fldKin = Format(!sl * !price, kfmtc)
            sumkin = sumkin + !sl * !price
        End If
        
        sumSuu = sumSuu + !sl
    End With
End Sub

Private Sub GroupFooter1_Format()
    fldshje = "￥" & Format(dssje, kfmtc)
    fldgj = "￥" & Format(dgj, kfmtc)
End Sub

Private Sub GroupFooter2_Format()
    
    fldsumSuu = Format(sumSuu, sfmtc)
    'fldsumSuu2 = Format(sumSuu, sfmtc)
    fldSumKin = "￥" & Format(sumkin, kfmtc)
    dgj = dgj + sumkin
    sumSuu = 0
    sumkin = 0
    If lblInfo = "赠送" Then
        fldshje = "￥0.00"
    End If
    
End Sub

Private Sub GroupHeader2_Format()
    With Me.dtctl1.Recordset
        If UCase(left(!dh, 2)) = "DC" Then
            lblInfo = "菜金+酒水"
        Else
            lblInfo = "赠送"
        End If
    End With
End Sub

Private Sub PageHeader_Format()
    With Me.dtctl1.Recordset
        If .EOF Then Exit Sub
'        FLDFWY = !fwy
'        fldJzdh = !jzdh
'        Select Case !JFFS '0:现金; 1:会员; 2:信用卡; 3:支票; 4:免单; 5:挂帐
'            Case 0
'                FLDFS = "现金"
'            Case 1
'                FLDFS = "会员"
'            Case 2
'                FLDFS = "信用卡"
'            Case 3
'                FLDFS = "支票"
'            Case 4
'                FLDFS = "免单"
'            Case 5
'                FLDFS = "挂帐"
'        End Select
    End With
End Sub