arcubeprint.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ARcubeprint 
   Caption         =   "通用进销存 - ARcubeprint (ActiveReport)"
   ClientHeight    =   8295
   ClientLeft      =   0
   ClientTop       =   285
   ClientWidth     =   12000
   Icon            =   "ARcubeprint.dsx":0000
   WindowState     =   2  'Maximized
   _ExtentX        =   21167
   _ExtentY        =   14631
   SectionData     =   "ARcubeprint.dsx":0442
End
Attribute VB_Name = "ARcubeprint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_Initialize()
    Call printini(DAO, ARcubeprint)
    'ARcubeprint.Printer.Orientation = ddOLandscape
    lbldate.Caption = "打印日期:" & Date
    ARcubeprint.Printer.Orientation = ddOPortrait
    
    If frmCubeprint.cmbfang <> "全部" Then
        If frmCubeprint.cmbTown <> "全部" Then
          lbl1.Visible = True
          lblbuss.Visible = True
          
         Dim optb As Recordset
         Set optb = New Recordset
         optb.Open "select * from client where fangxiang=" & "'" & frmCubeprint.cmbfang.Text & "' and town=" & "'" & frmCubeprint.cmbTown.Text & "'", db, adOpenStatic, adLockOptimistic
         If optb.RecordCount <> 0 Then
            If IsNull(optb!opertion) = False Then lblbuss.Caption = optb!opertion
         End If
        Else
          lbl1.Visible = True
          lblbuss.Visible = True
          
         'Dim optb As Recordset
         Set optb = New Recordset
         optb.Open "select * from client where fangxiang=" & "'" & frmCubeprint.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 If
End Sub