printlabel.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form PrintLabel 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "打印电表标签"
   ClientHeight    =   2355
   ClientLeft      =   2370
   ClientTop       =   2235
   ClientWidth     =   5715
   Icon            =   "PrintLabel.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2355
   ScaleWidth      =   5715
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      Height          =   2415
      Left            =   15
      TabIndex        =   0
      Top             =   -75
      Width           =   5685
      Begin MSComctlLib.Toolbar Toolbar3 
         Height          =   465
         Left            =   4380
         TabIndex        =   2
         Top             =   1740
         Width           =   1095
         _ExtentX        =   1931
         _ExtentY        =   820
         ButtonWidth     =   1614
         ButtonHeight    =   820
         Style           =   1
         TextAlignment   =   1
         ImageList       =   "ImageList1"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   1
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "退出"
               ImageIndex      =   3
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar Toolbar1 
         Height          =   465
         Left            =   2295
         TabIndex        =   1
         Top             =   1710
         Width           =   975
         _ExtentX        =   1720
         _ExtentY        =   820
         ButtonWidth     =   1614
         ButtonHeight    =   820
         Style           =   1
         TextAlignment   =   1
         ImageList       =   "ImageList1"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   1
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "打印"
               ImageIndex      =   1
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   -195
         Top             =   2100
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   25
         ImageHeight     =   25
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   3
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "PrintLabel.frx":0442
               Key             =   ""
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "PrintLabel.frx":0D1E
               Key             =   ""
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "PrintLabel.frx":1042
               Key             =   ""
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "PrintLabel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
  Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
  OpenMdb
  Set MdbR = NdMd.OpenRecordset("SELECT * FROM 用户电费 WHERE  镇村代码='" & UserSeek & "'")
  If MdbR.eof Then
     MsgBox Mid(XzName, 6, 4) & XcName & "用户纪录为空！", vbExclamation
     Exit Sub
   End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    PriUserLabel.Show vbModal
End Sub

Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button)
       Unload Me
End Sub