arcubemi.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ARcubemi 
   Caption         =   "通用进销存 - ARcubemi (ActiveReport)"
   ClientHeight    =   8295
   ClientLeft      =   0
   ClientTop       =   285
   ClientWidth     =   12000
   Icon            =   "ARcubeMi.dsx":0000
   _ExtentX        =   21167
   _ExtentY        =   14631
   SectionData     =   "ARcubeMi.dsx":0442
End
Attribute VB_Name = "ARcubemi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_Initialize()
    Call printini(DAO, ARcubemi)
    ARcubemi.Printer.Orientation = ddOLandscape
    lbldate.Caption = "打印日期:" & Date
End Sub

Private Sub Detail_Format()
  On Error Resume Next
  labeldate.Caption = finish_date & times
End Sub