productpricelist.dsr

适合乡镇供电所使用电费处理系统v3 软件

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} rptProductPriceList 
   ClientHeight    =   8595
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   11880
   Icon            =   "ProductPriceList.dsx":0000
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "ProductPriceList.dsx":030A
End
Attribute VB_Name = "rptProductPriceList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private bLastPage As Boolean

Private Sub ActiveReport_FetchData(eof As Boolean)
    bLastPage = dcRptData.Recordset.eof
End Sub

Private Sub ActiveReport_Initialize()
    rptProductPriceList.Caption = XzName & XcName & GzYue & "月份收费清单"
'    rptProductPriceList.PageTopMargin = 210
'    rptProductPriceList.PageRightMargin = 100
'    rptProductPriceList.PageLeftMargin = 120
'    rptProductPriceList.PageBottomMargin = 1800

'    GzYue = Format(Month(Date), "0#")
'    Call sTruInfo
'    UserSeek = "001001"
End Sub

Private Sub ActiveReport_ReportStart()
    Me.Toolbar.Tools.Add "退出(&E)"

    Me.Toolbar.Tools(Me.Toolbar.Tools.Count - 1).ID = 999
    dcRptData.DatabaseName = App.Path & "\Data\Eletricity.mdb"   'and 用户电费.[" & HH & "]>0
    dcRptData.RecordSource = "SELECT 用户电费.用户编码,用户电费.多表序号,用户电费.标签,用户电费.[" & AAA & "] AS 上期示数, 用户电费.[" & AA & "] AS 本期示数,用户电费.倍率,用户电费.[" & BB & "] AS 调整电量,用户电费.[" & CC & "] AS 本次电量, 用户电费.[" & DD & "] AS 合计电量,用户电费.电价,用户电费.[" & EE & "] AS 调整金额, 用户电费.[" & FF & "] AS 滞纳金, 用户电费.[" & GG & "] AS 本次电费, 用户电费.[" & HH & "] AS 合计电费,用户电费.[" & JJ & "] AS 发票打印,用户电费.[" & KK & "] AS 交费情况,用户电费.组合编码,用户电费.台区 From 用户电费 WHERE 用户电费.镇村代码='" & UserSeek & "' order by 用户电费.抄表码 asc"
    txtProductId.DataField = "用户编码"
    Field7.DataField = "多表序号"
    txtProductName.DataField = "标签"
    Field2.DataField = "调整电量"
    Field3.DataField = "倍率"
    Field4.DataField = "滞纳金"
    Field5.DataField = "合计电量"
    Field6.DataField = "电价"
    txtQuantitPerUnit.DataField = "调整金额"
    本月示数.DataField = "本期示数"
    上月示数.DataField = "上期示数"
    txtPrice.DataField = "合计电费"
    'Field8.DataField = "用户编码"
End Sub

Private Sub PageFooter_Format()
    'If Not bLastPage Then
    '   lblContinued.Caption = "打印:"
    'Else
    '    lblContinued.Caption = "Report Complete"
    'End If
End Sub

Private Sub PageHeader_Format()
     lblTitel.Caption = XzName & XcName & GzYue & "月份用电费用清单"
     Label4.Caption = XzName & XcName
     Label6.Caption = Format(Date, "yyyy-mm-dd")
End Sub

Private Sub ActiveReport_ToolbarClick(ByVal tool As DDActiveReports.DDTool)
If tool.ID <> 999 Then Exit Sub
Unload Me
End Sub