activereport2.dsr

来自「比较完整的一个客户管理软件」· DSR 代码 · 共 27 行

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ActiveReport2 
   Caption         =   "ActiveReport2"
   ClientHeight    =   8595
   ClientLeft      =   360
   ClientTop       =   540
   ClientWidth     =   11880
   Icon            =   "ActiveReport2.dsx":0000
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "ActiveReport2.dsx":0442
End
Attribute VB_Name = "ActiveReport2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_DataInitialize()
      With DataControl1
          .ConnectionString = "DSN=Client_DBase;UID=ETOOUSER;PWD=bluesky;"
          .Source = "select * from 交易统计表 where " & TradeNum
      End With
      Label14.Caption = TradeTitle + "交易信息统计"
      Me.Printer.Orientation = ddOLandscape
End Sub