activereport2.dsr

来自「打印方面的程序」· DSR 代码 · 共 45 行

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ActiveReport2 
   Caption         =   "ActiveReport2"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "ActiveReport2.dsx":0000
End
Attribute VB_Name = "ActiveReport2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_Initialize()
'DataControl1.ConnectionString = " Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False"
'DataControl1.DataSourceName = App.Path + "\wupin.mdb"
'DataControl1.RecordSource = "select * from wupin where 名称 like '%" & Trim(Form5.Text1.Text) & "%'"
'DataControl1.Refresh


End Sub

Private Sub ActiveReport_ReportStart()

    'dc.Connect = ";DATABASE=" & App.Path & "\wupin.mdb;PWD=;"
    'dc.DatabaseName = App.Path & "\wupin.mdb"
    'dc.RecordSource = "select * from tmp_dayin  "
    
DataControl1.ConnectionString = ";defaultDATABASE=" & App.Path & "\wupin.mdb;PWD=;"
DataControl1.DataSourceName = "MS Access Database"
DataControl1.Source = "select * from wupin" ' where 名称 like '%" & Trim(Form5.Text1.Text) & "%'"
'DataControl1.Refresh

    
     
End Sub

Private Sub PageHeader_Format()
'Set DAODataControl1.Recordset = Form5.Adodc1.Recordset
End Sub