priusercode.dsr

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

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

Private Sub ActiveReport_ReportStart()
    PriUserCode.Printer.DisplayProgressDialog = False
    Me.Toolbar.Tools.Add "退出(&E)"
    Me.Toolbar.Tools(Me.Toolbar.Tools.Count - 1).ID = 999
    dcRptData.DatabaseName = App.Path & "\Data\Eletricity.mdb"
    'SELECT 用户电费.抄表码,用户电费.辅助号,用户电费.用户名称 From 用户电费 WHERE 用户电费.镇村代码='" & UserSeek & "' order by 用户电费.用户编码 asc
    PriUserCode.Printer.PaperSize = 256
    PriUserCode.Printer.PaperHeight = 16000
    PriUserCode.Printer.PaperWidth = 15000
'
    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