atpsrfx.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} atpsrfx 
   Caption         =   "收入分析"
   ClientHeight    =   11010
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   15240
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   _ExtentX        =   26882
   _ExtentY        =   19420
   SectionData     =   "atpsrfx.dsx":0000
End
Attribute VB_Name = "atpsrfx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private sumkin As Double
Private Sub ActiveReport_ReportStart()
    Me.Printer.Orientation = ddOPortrait '??
    Me.Printer.PaperSize = vbPRPSA4
    sumkin = 0
'    Me.PageSettings.BottomMargin = 1200
'    Me.PageSettings.LeftMargin = 900
'    Me.PageSettings.RightMargin = 600
'    Me.PageSettings.TopMargin = 1200
End Sub
Private Sub Detail_Format()
On Error Resume Next
    
    If Me.dtcsrfx.Recordset.RecordCount = 0 Then
        MsgBox "这段时间内没有收入!", vbInformation, "收入分析"
        Unload atpsrfx
        Exit Sub
    End If

    With Me.dtcsrfx.Recordset
        sumkin = sumkin + .Fields("ssje")
        Field2 = Format(.Fields("kssj"), "YYYY-MM-DD")
        Field3 = Format(.Fields("kssj"), "hh:mm:ss")
        Field4 = Format(.Fields("jssj"), "YYYY-MM-DD")
        Field5 = Format(.Fields("jssj"), "hh:mm:ss")
        Field6 = Format(.Fields("ssje"), "#,##0.00")
        Select Case Val(.Fields("jffs"))
        Case 0
            Field7 = "现金"
        Case 1
            Field7 = "会员"
        Case 2
            Field7 = "信用卡"
        Case 3
            Field7 = "支票"
        Case 4
            Field7 = "免单"
        Case 5
            Field7 = "挂账"
        End Select


    End With

  
End Sub

Private Sub GroupFooter1_Format()
    FldSum = Format(sumkin, kfmtc)
End Sub

Private Sub PageHeader_Format()

    Label2 = "开始日期"
    Label3 = "开始时间"
    Label4 = "结束日期"
    Label5 = "结束时间"
    Label6 = "实际收费"
    Label7 = "付款方式"

End Sub