activereport1.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ActiveReport1 
   Caption         =   "ActiveReport1"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   Icon            =   "ActiveReport1.dsx":0000
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "ActiveReport1.dsx":0442
End
Attribute VB_Name = "ActiveReport1"
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 客户名称 = " + "'" & ClientName + "'"
 End With
 Label1.Caption = ClientName + "的信息列表"
 Field1.Text = ClientName
FedLinkMan.Text = Linkman
FldPhnNum.Text = PhoNumber
Me.Printer.Orientation = ddOLandscape
End Sub