artibig1.dsr

来自「此为我2001年为东莞建发楦头开发的企业管理软件他们使用至今,望斑竹指教! 其」· DSR 代码 · 共 49 行

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ARTibig1 
   Caption         =   "提货单"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   Icon            =   "ARTibig1.dsx":0000
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "ARTibig1.dsx":030A
End
Attribute VB_Name = "ARTibig1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Private Sub ActiveReport_Initialize()
    ARTibig1.TOCEnabled = False
    ARTibig1.lblop.Caption = frmtimas.lblop.Caption
    lblbi.Caption = frmtimas.CmbBi.Text
    lblunit.Caption = frmtimas.txtfields(4).Text
    lblcon.Caption = frmtimas.txtfields(5).Text
    lbldemo.Caption = frmtimas.txtfields(6).Text
    lbldin.Caption = frmtimas.txtfields(3).Text
    ARTibig1.Toolbar.Tools(2).Caption = "打印"
    ARTibig1.Toolbar.Tools(12).Caption = "前一页.."
    ARTibig1.Toolbar.Tools(13).Caption = "下一页.."
    i = 1
End Sub

Private Sub Detail_Format()
    If Len(DAO.Recordset!model) <> 0 Then
        lblcount.Caption = i
    Else
        lblcount.Caption = ""
    End If
    i = i + 1
End Sub

Private Sub ReportFooter_BeforePrint()
    If Field19.Text = 0 Then
        Field19.Text = ""
    End If
End Sub