rptcgd.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} rptcgd 
   Caption         =   "采购单报表"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "rptcgd.dsx":0000
End
Attribute VB_Name = "rptcgd"
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.dtccgd.Recordset.RecordCount = 0 Then
        MsgBox "这段时间内没有采购任何物品!", vbInformation, "采购查询"
        Unload rptcgd
        Exit Sub
    End If
    
    With Me.dtccgd.Recordset
        Field2 = .Fields("gmsp")
        Field3 = .Fields("ylmc")
        Field4 = .Fields("cgdw")
        Field5 = Format(.Fields("cgj"), "#,##0.00")
        Field6 = Format(.Fields("sl"), "0.00")
        'Format(.Fields("cgj"), "#,##0.00") & "(元)"
        Field7 = Format(.Fields("je"), "#,##0.00")
        Field11 = .Fields("dw")
        Field8 = .Fields("gmsj")
        Field9 = .Fields("cgr")
        If .Fields("sffk") = 1 Then
              Field10 = "已付"
        Else
              Field10 = "未付"
        End If
        
    End With
End Sub

'.TextMatrix(i + 1, 1) = rs("gmsp")
'            .TextMatrix(i + 1, 2) = rs("ylmc")
'            .TextMatrix(i + 1, 3) = rs("cgdw")
'            .TextMatrix(i + 1, 4) = Format(rs("cgj"), "#,##0.00")
'            .TextMatrix(i + 1, 5) = Format(rs("sl"), "0")
'            .TextMatrix(i + 1, 6) = Format(rs("je"), "#,##0.00")
'            .TextMatrix(i + 1, 7) = rs("gmsj")
'            .TextMatrix(i + 1, 8) = rs("cgr")
'            If rs("sffk") = 1 Then
'                .TextMatrix(i + 1, 9) = "已付"
'            Else
'                .TextMatrix(i + 1, 9) = "未付"
'            End If
Private Sub PageHeader_Format()
Label2 = "商品编号"
Label3 = "商品名称"
Label4 = "供 货 商"
Label5 = "采购单价 "
Label6 = "采购数量"
Label7 = "采购金额"
Label8 = "采购时间"
Label9 = "采购人"
Label10 = "是否付款"
Label14 = "单位"

End Sub