activereport3.dsr

比较完整的一个客户管理软件

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ActiveReport3 
   Caption         =   "ActiveReport3"
   ClientHeight    =   8595
   ClientLeft      =   360
   ClientTop       =   345
   ClientWidth     =   11880
   Icon            =   "ActiveReport3.dsx":0000
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "ActiveReport3.dsx":0442
End
Attribute VB_Name = "ActiveReport3"
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 交易日期 between cdate('" + SDate + "') and cdate('" + EDate + "')"
      End With
          Label14.Caption = "从 " + SDate + " 至" + EDate + "交易信息统计"
          Me.Printer.Orientation = ddOLandscape
End Sub