rptlsyd.dsr

来自「餐饮管理系统数据库设计文档 表名：bzqbj（保质期报警表） 字段名 字段」· DSR 代码 · 共 64 行

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} rptlsyd 
   Caption         =   "历史预定信息"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "rptLsyd.dsx":0000
End
Attribute VB_Name = "rptlsyd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Private Sub ActiveReport_ReportStart()
    Me.Printer.Orientation = ddOPortrait '??
    Me.Printer.PaperSize = vbPRPSA4
'    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.dtclsyd.Recordset.RecordCount = 0 Then
        MsgBox "这段时间内没有任何预定!", vbInformation, "历史预定查询"
        Unload rptjjcx
        Exit Sub
    End If

    With Me.dtclsyd.Recordset
        Field2 = Format(.Fields("sqsj"), "YYYY-MM-DD")
        Field3 = Format(.Fields("sqsj"), "hh:mm:ss")
        Field4 = Format(.Fields("ydsj"), "YYYY-MM-DD")
        Field5 = Format(.Fields("ydsj"), "hh:mm:ss")
        Field6 = NONULL(Fields("khmc"))
        Field7 = Format(Fields("rs"), sfmtc)
        Field8 = NONULL(.Fields("lxff"))
        Field9 = IIf(.Fields("qr") = 1, "已确认", "未确认")
    End With
End Sub
Private Sub PageHeader_Format()
    Label2 = "申请日期"
    Label3 = "申请时间"
    Label4 = "预定日期"
    Label5 = "预定时间"
    Label6 = "客户名称"
    Label7 = "预定人数"
    Label8 = "联系方式"
    Label9 = "是否确认"
End Sub