rptkcyd.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} rptkcyd 
   Caption         =   "库存移动报表"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "rptkcyd.dsx":0000
End
Attribute VB_Name = "rptkcyd"
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.dtckcyd.Recordset.RecordCount = 0 Then
        MsgBox "这段时间内没有任何库存移动!", vbInformation, "库存移动"
        Unload rptkcyd
        Exit Sub
    End If
   
'            .TextMatrix(i, 0) = rs("ckid")
'            .TextMatrix(i, 1) = rs("ylbm")
'            .TextMatrix(i, 2) = rs("ylmc")
'            .TextMatrix(i, 3) = rs("cksl")
'            .TextMatrix(i, 4) = rs("dskc")
'            .TextMatrix(i, 5) = rs("glyid")
'            .TextMatrix(i, 6) = Format(rs("cksj"), "YYYY-MM-DD")
'            .TextMatrix(i, 7) = Format(rs("cksj"), "hh:mm:ss")
                
    
    With Me.dtckcyd.Recordset
        Field2 = .Fields("ckid")
        Field3 = .Fields("ylbm")
        Field4 = .Fields("ylmc")
        Field5 = .Fields("cksl")
        Field10 = .Fields("dw")
        Field6 = NONULL(.Fields("dskc"))
        Field7 = NONULL(.Fields("glyid"))
        Field8 = Format(.Fields("cksj"), "YYYY-MM-DD")
        Field9 = Format(.Fields("cksj"), "hh:mm:ss")
    End With
End Sub


Private Sub PageHeader_Format()
'        .TextMatrix(0, 0) = "转移单号"
'        .TextMatrix(0, 1) = "原料编码"
'        .TextMatrix(0, 2) = "原料名称"
'        .ColWidth(3) = 850
'        .TextMatrix(0, 3) = "转移数量"
'        .TextMatrix(0, 4) = "当时库存"
'        .TextMatrix(0, 5) = "管理员ID"
'        .TextMatrix(0, 6) = "转移日期"
'        .TextMatrix(0, 7) = "转移时间"

    Label2 = "转移单号"
    Label3 = "原料编码"
    Label4 = "原料名称"
    Label5 = "转移数量"
    Label6 = "当时库存"
    Label7 = "管理员ID"
    Label8 = "转移日期"
    Label9 = "转移时间"
    Label12 = "单    位"
    
    fldDate = Date
End Sub