browseadjust.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form BrowseAdjust 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查看调整纪录"
   ClientHeight    =   5970
   ClientLeft      =   585
   ClientTop       =   2115
   ClientWidth     =   10770
   Icon            =   "BrowseAdjust.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5970
   ScaleWidth      =   10770
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      Height          =   5940
      Left            =   15
      TabIndex        =   0
      Top             =   -60
      Width           =   10680
      Begin MSComctlLib.Toolbar Toolbar2 
         Height          =   780
         Left            =   9795
         TabIndex        =   3
         Top             =   2625
         Width           =   645
         _ExtentX        =   1138
         _ExtentY        =   1376
         ButtonWidth     =   1032
         ButtonHeight    =   1376
         Style           =   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            =   9345
         Top             =   4575
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   32
         ImageHeight     =   32
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   2
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "BrowseAdjust.frx":030A
               Key             =   ""
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "BrowseAdjust.frx":062A
               Key             =   ""
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.Toolbar Toolbar1 
         Height          =   780
         Left            =   9810
         TabIndex        =   2
         Top             =   480
         Width           =   645
         _ExtentX        =   1138
         _ExtentY        =   1376
         ButtonWidth     =   1032
         ButtonHeight    =   1376
         Style           =   1
         ImageList       =   "ImageList1"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   1
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "退出"
               ImageIndex      =   2
            EndProperty
         EndProperty
      End
      Begin MSComctlLib.ListView ListView1 
         Height          =   5625
         Left            =   120
         TabIndex        =   1
         Top             =   225
         Width           =   9510
         _ExtentX        =   16775
         _ExtentY        =   9922
         View            =   3
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         NumItems        =   9
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "用户表码"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "用户编码"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   2
            Text            =   "用户名称"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   3
            Text            =   "调整原因"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   4
            Text            =   "改前示数"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   5
            Text            =   "换前示数"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   6
            Text            =   "换后示数"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   7
            Text            =   "换表人"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   8
            Text            =   "换表日期"
            Object.Width           =   2540
         EndProperty
      End
   End
End
Attribute VB_Name = "BrowseAdjust"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim Mrs As Recordset
Private Sub Form_Load()
  Dim SQLA As String
  On Error GoTo FoundErr
  Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 1 - 1000
  OpenMdb
  Set MdbR = NdMd.OpenRecordset("select * from 调整档案 where  镇村代码='" & UserSeek & "'")
  Dim itm As ListItem
  Dim intRecCount, intCounter As Integer
  ListView1.SortKey = 0
  ListView1.SortOrder = lvwAscending
  ListView1.View = lvwReport
  Toolbar2.Visible = False
  If Not MdbR.eof Then
        MdbR.MoveLast
        intRecCount = MdbR.RecordCount
        MdbR.MoveFirst
        For intCounter = 0 To MdbR.RecordCount - 1
            Set itm = ListView1.ListItems.Add(, , CStr(MdbR!用户表码))
            Set Mrs = NdMd.OpenRecordset("select 组合编码,用户编码,用户名称 from 用户电费 where 抄表码= '" & MdbR.Fields!用户表码 & "'")
            itm.SubItems(1) = Mrs!用户编码 & ""
            itm.SubItems(2) = Mrs!用户名称 & ""
            itm.SubItems(3) = MdbR!调整原因 & ""
            itm.SubItems(4) = MdbR!改前示数 & ""
            itm.SubItems(5) = MdbR!换前示数 & ""
            itm.SubItems(6) = MdbR!换后示数 & ""
            itm.SubItems(7) = MdbR!换表人 & ""
            itm.SubItems(8) = MdbR!换表日期 & ""
            MdbR.MoveNext
        Next intCounter
        ListView1.Sorted = True
   Else
        MsgBox XzName & XcName & GzYue & "暂无调整纪录！", vbCritical
        Unload Me
        Exit Sub
   End If
   Exit Sub
   
FoundErr:
       MsgBox Err.Description, vbCritical
       Exit Sub
End Sub

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