rptejckd.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} rptejckd 
   Caption         =   "二级库存报表"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "rptejckd.dsx":0000
End
Attribute VB_Name = "rptejckd"
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()
    If Me.dtcejckd.Recordset.RecordCount = 0 Then
        MsgBox "这段时间内没有任何出库!", vbInformation, "出库单"
        Unload rptejckd
        Exit Sub
    End If
   
    
    
    With Me.dtcejckd.Recordset
        Field2 = .Fields("ylbm")
        Field3 = .Fields("ylmc")
        If .Fields("kid") = "1" Then
            Field4 = "吧台酒库"
        ElseIf .Fields("kid") = "2" Then
            Field4 = "厨房库存"
        End If
        Field5 = NONULL(.Fields("cksl"))
        Field6 = NONULL(.Fields("dskc"))
        Field7 = .Fields("cksj")

    End With
End Sub


Private Sub PageHeader_Format()


    Label2 = "商品编号"
    Label3 = "商品名称"
    Label4 = "仓库名称"
    Label5 = "数    量"
    Label6 = "当时库存"
    Label7 = "出库时间"
    
    fldDate = Date
End Sub