rptejkcqd.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} rptejkcqd 
   Caption         =   "二级库存清单"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "rptejkcqd.dsx":0000
End
Attribute VB_Name = "rptejkcqd"
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()
'    Dim i As Long
'    Dim l As Long
'    With Me.Dtctl1.Recordset
'        Emp_Id = .Fields("wd_employee_id")
'        Emp_Nm = .Fields("wd_employee_name")
'        dept_name = .Fields("dept_name")
'        If UBound(fldName) > 15 Then
'            If Me.Dtctl1.Recordset!kbn = "1" Then
'                For i = 1 To 15
'                    Me.Detail.Controls("fldItem" & i) = Format(Val(.Fields(fldName(i))), "#,##0.00")
'
'                Next
'            ElseIf Me.Dtctl1.Recordset!kbn = "2" Then
'                For i = 16 To UBound(fldName)
'                    Me.Detail.Controls("fldItem" & i - 15) = Format(Val(.Fields(fldName(i))), "#,##0.00")
'                Next
'            End If
'        Else
'            For i = 1 To 15
'                Me.Detail.Controls("fldItem" & i) = Format(Val(.Fields(fldName(i))), "#,##0.00")
'            Next
'        End If
'    End With
'        .TextMatrix(0, 1) = "原料编码"
'        .TextMatrix(0, 2) = "原料名称"
'        .TextMatrix(0, 3) = "数量"
'        .TextMatrix(0, 4) = "单位"
'        .TextMatrix(0, 5) = "采购价格"
'        .TextMatrix(0, 6) = "最低警戒"
'        .TextMatrix(0, 7) = "最高警戒"
'            .TextMatrix(i + 1, 1) = rs("ylid")
'            .TextMatrix(i + 1, 2) = rs("ylmc")
'            .TextMatrix(i + 1, 3) = rs("sl")
'            .TextMatrix(i + 1, 4) = rs("dw")
'            .TextMatrix(i + 1, 5) = Format(rs("cgj"), "#,##0.00")
'            .TextMatrix(i + 1, 6) = rs("minalert")
'            .TextMatrix(i + 1, 7) = rs("maxalert")
    With Me.dtckcqd.Recordset
        field0 = .Fields("ylid")
        Field1 = .Fields("ylmc")
        Field2 = .Fields("sl")
        Field3 = .Fields("dw")
        Field4 = Format(.Fields("cgj"), "#,##0.00") & "(元)"
'        Field5 = .Fields("minalert")
'        Field6 = .Fields("maxalert")
    End With
End Sub

Private Sub PageHeader_Format()
    Label1 = "原料编码"
    Label2 = "原料名称"
    Label3 = "数    量"
    Label4 = "单    位"
    Label5 = "采购价格"
'    Label6 = "最低警戒"
'    Label7 = "最高警戒"
    fldDate = Date
End Sub