priuserlabel.dsr

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

VERSION 5.00
Begin {82282820-C017-11D0-A87C-00A0C90F29FC} PriUserLabel 
   ClientHeight    =   8595
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   11880
   Icon            =   "PriUserLabel.dsx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "PriUserLabel.dsx":030A
End
Attribute VB_Name = "PriUserLabel"
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()
    PriUserLabel.Caption = XzName & XcName & "用户电表抄表标签"
    'PriUserLabel.PageTopMargin = 210
    'PriUserLabel.PageRightMargin = 0
    'PriUserLabel.PageLeftMargin = 120
    'PriUserLabel.PageBottomMargin = 290
    'PriUserLabel.Printer.DisplayProgressDialog = False
    'PriUserLabel.PageSetup(1, 1) = True
End Sub

Private Sub ActiveReport_ReportStart()
    Me.Toolbar.Tools.Add "退出(&E)"
    Me.Toolbar.Tools(Me.Toolbar.Tools.Count - 1).ID = 999
    
    PriUserLabel.Printer.DisplayProgressDialog = False
    'PriUserLabel.Printer.PaperSize
    PriUserLabel.Printer.PaperSize = 256
    PriUserLabel.Printer.PaperHeight = 16000
    PriUserLabel.Printer.PaperWidth = 15000
    dcRptData.DatabaseName = App.Path & "\Data\Eletricity.mdb"
    dcRptData.RecordSource = "SELECT 用户电费.镇村代码,用户电费.用户编码,用户电费.标签,用户电费.用户名称,用户电费.组合编码,用户电费.辅助号,用户电费.抄表码 FROM 用户电费 WHERE 用户电费.镇村代码='" & UserSeek & "' order by 用户电费.用户编码,用户电费.抄表码 asc"
    Field9.DataField = "用户编码"
    'Field10.DataField = "辅助号"
    Field11.DataField = "用户名称"
End Sub

Private Sub ActiveReport_ToolbarClick(ByVal tool As DDActiveReports.DDTool)
    If tool.ID <> 999 Then Exit Sub
    Unload Me
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 & "电表标签"
     'Label4.Caption = XzName & XcName
     'Label6.Caption = Format(Date, "yyyy-mm-dd")
End Sub