arsum3print.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ARsum3print 
   Caption         =   "通用进销存 - ARsum3print (ActiveReport)"
   ClientHeight    =   8295
   ClientLeft      =   -735
   ClientTop       =   1890
   ClientWidth     =   12000
   Icon            =   "ARSum3print.dsx":0000
   _ExtentX        =   21167
   _ExtentY        =   14631
   SectionData     =   "ARSum3print.dsx":0442
End
Attribute VB_Name = "ARsum3print"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Private Sub ActiveReport_Initialize()
    Call printini(DAO, ARsum3print)
    ARsum3print.Printer.Orientation = ddOLandscape
        lbl.Caption = "汇总日期:" & frmprint.DTP1.value & "至" & frmprint.DTP2.value & frmprint.lblfang & frmprint.cmbfang & " " & frmprint.lbl1(0) & frmprint.Cmbtype & " " & frmprint.lbl1(1) & frmprint.cmbTown & " 型体：" & frmprint.cmbType1 & frmprint.cmbType2 & frmprint.cmbType3
    i = 1
    
    If frmprint.cmbfang <> "全部" Then
      lbl1.Visible = True
      lblbuss.Visible = True
      
     Dim optb As Recordset
     Set optb = New Recordset
     optb.Open "select * from client where fangxiang=" & "'" & frmprint.cmbfang.Text & "'", db, adOpenStatic, adLockOptimistic
     If optb.RecordCount <> 0 Then
        If IsNull(optb!opertion) = False Then lblbuss.Caption = optb!opertion
     End If
    End If
End Sub

Private Sub Detail_Format()
    LBLNO.Caption = i
    i = i + 1
     
    mo1.Caption = IIf(DAO.Recordset!month01 <> 0, DAO.Recordset!month01, " ")
    mo2.Caption = IIf(DAO.Recordset!month02 <> 0, DAO.Recordset!month02, " ")
    mo3.Caption = IIf(DAO.Recordset!month03 <> 0, DAO.Recordset!month03, " ")
    mo4.Caption = IIf(DAO.Recordset!month04 <> 0, DAO.Recordset!month04, " ")
    mo5.Caption = IIf(DAO.Recordset!month05 <> 0, DAO.Recordset!month05, " ")
    mo6.Caption = IIf(DAO.Recordset!month06 <> 0, DAO.Recordset!month06, " ")
    mo7.Caption = IIf(DAO.Recordset!month07 <> 0, DAO.Recordset!month07, " ")
    mo8.Caption = IIf(DAO.Recordset!month08 <> 0, DAO.Recordset!month08, " ")
    mo9.Caption = IIf(DAO.Recordset!month09 <> 0, DAO.Recordset!month09, " ")
    mo10.Caption = IIf(DAO.Recordset!month10 <> 0, DAO.Recordset!month10, " ")
    mo11.Caption = IIf(DAO.Recordset!month11 <> 0, DAO.Recordset!month11, " ")
    mo12.Caption = IIf(DAO.Recordset!month12 <> 0, DAO.Recordset!month12, " ")
    total.Caption = IIf(DAO.Recordset!total <> 0, DAO.Recordset!total, " ")
   
End Sub