products.dsr

需要控件：Active Report 2.0(专业报表控件破解版)2.0下的ardespro2.dll和arpro2.dll ARVIEW2.OCX等文件。即可打开源代码。

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} rptProducts 
   Caption         =   "ActiveReport2"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   15240
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "Products.dsx":0000
End
Attribute VB_Name = "rptProducts"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub ActiveReport_Initialize()
    Debug.Print "Products.Initialize"
    dc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.pAth & "\sms.mdb" & ";Persist Security Info=False"
    
End Sub

Private Sub ActiveReport_ReportStart()
    Debug.Print "Products.ReportStart"
    'dc.Source = "SELECT * FROM Product WHERE ProductID='" & ProductID & "'"
End Sub