arcaprint.dsr

此为我2001年为东莞建发楦头开发的企业管理软件他们使用至今,望斑竹指教! 其他会员最好不要随意下载,需经斑竹同意或我本人同意,谢谢!

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ARcaprint 
   Caption         =   "通用进销存 - ARcaprint (ActiveReport)"
   ClientHeight    =   8295
   ClientLeft      =   15
   ClientTop       =   225
   ClientWidth     =   12000
   Icon            =   "Arcaprint.dsx":0000
   _ExtentX        =   21167
   _ExtentY        =   14631
   SectionData     =   "Arcaprint.dsx":0442
End
Attribute VB_Name = "ARcaprint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_Initialize()
    Call printini(DAO, ARcaprint)
    'ARcaprint.Printer.Orientation = ddOLandscape
    Select Case PCheck
        Case "small"
            Me.Caption = "样品排单明细表"
            lbltitle.Caption = "建发鞋楦厂---样品排单明细表"
        Case "big"
            Me.Caption = "大货排单明细表"
            lbltitle.Caption = "建发鞋楦厂---大货排单明细表"
        Case "no"
            Me.Caption = "开发指令单明细表"
            lbltitle.Caption = "建发鞋楦厂---开发指令单明细表"
        Case "ca"
            Me.Caption = "急单明细表"
            lbltitle.Caption = "建发鞋楦厂---急单明细表"
    End Select
    lbldate.Caption = "日期:" & frmDinprint.DTP3.value
End Sub

Private Sub Detail_Format()
    'If IsNull(DAO.Recordset!dinno) = False Then model.Text = DAO.Recordset!dinno & DAO.Recordset!reada
    If IsNull(DAO.Recordset!unit) = False Then
      unit.Text = DAO.Recordset!qty & DAO.Recordset!unit
    Else
      unit.Text = DAO.Recordset!qty
    End If
    finish.Text = Mid(DAO.Recordset!finish_date, 6, 2) & "." & Mid(DAO.Recordset!finish_date, 9, 2) & Space(1) & DAO.Recordset!times & Format(DAO.Recordset!dtime, "HH:SS")
End Sub