reportlcmx.dsr

证券公司监测内部客户资金流向的系统

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} ReportLCMX 
   Caption         =   "ActiveReport1"
   ClientHeight    =   11115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   15240
   StartUpPosition =   3  'Windows Default
   _ExtentX        =   26882
   _ExtentY        =   19606
   SectionData     =   "ReportLCMX.dsx":0000
End
Attribute VB_Name = "ReportLCMX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub ActiveReport_Initialize()
Dim sSQL1 As String, sSQL2 As String
Dim rsTemp1 As ADODB.Recordset, rsTemp2 As ADODB.Recordset

    dcRptData.Source = "select zjzh.id,zjzh.name,zjzh.zjzh,zjls.fsrq,zjls.fsje,zjls.zjmx,zjls.zjyt,zjls.comment from zjzh,zjls where zjzh.id=zjls.fatherid and zjzh.id= " & QueryID
            
    sSQL1 = "select * from zjzh where id=" & QueryID
    Set rsTemp1 = GDB.Execute(sSQL1)
    With rsTemp1
    Do While Not .EOF
        Field6.Text = rsTemp1!zjzh
        Field7.Text = rsTemp1!Name
        Field8.Text = rsTemp1!zjzj
        .MoveNext
    Loop
    End With
    
    
    
'    sSQL2 = "select * from zjls where fatherid=" & QueryID
'    Set rsTemp2 = GDB.Execute(sSQL2)
'    With rsTemp2
'    Do While Not .EOF
'        Field1.DataField = rsTemp2!fsrq
'        Field2.DataField = rsTemp2!fsje
'        Field3.DataField = rsTemp2!zjmx
'        Field4.DataField = rsTemp2!zjyt
'        Field5.DataField = rsTemp2!comment
'        .MoveNext
'    Loop
'    End With
    
End Sub