nextmontdata.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form NextMontData 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "数据准备"
   ClientHeight    =   2355
   ClientLeft      =   2025
   ClientTop       =   3000
   ClientWidth     =   5295
   Icon            =   "NextMontData.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2355
   ScaleWidth      =   5295
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   3780
      Top             =   1860
   End
   Begin VB.Frame Frame1 
      Height          =   2055
      Left            =   210
      TabIndex        =   2
      Top             =   105
      Width           =   3450
      Begin MSComctlLib.ProgressBar PBar1 
         Height          =   300
         Left            =   90
         TabIndex        =   8
         Top             =   1620
         Width           =   3135
         _ExtentX        =   5530
         _ExtentY        =   529
         _Version        =   393216
         Appearance      =   1
      End
      Begin VB.Label Label6 
         Caption         =   "    进行数据准备时，请确认系统工作日期的正确性,以及本月的工作是否处理完整."
         ForeColor       =   &H00000000&
         Height          =   735
         Left            =   405
         TabIndex        =   7
         Top             =   525
         Width           =   2895
      End
      Begin VB.Label Label4 
         Height          =   255
         Left            =   3720
         TabIndex        =   6
         Top             =   1440
         Width           =   1695
      End
      Begin VB.Label Label3 
         Height          =   255
         Left            =   840
         TabIndex        =   5
         Top             =   1440
         Width           =   1335
      End
      Begin VB.Label Label2 
         Height          =   255
         Left            =   3720
         TabIndex        =   4
         Top             =   480
         Width           =   1455
      End
      Begin VB.Label Label1 
         Height          =   255
         Left            =   840
         TabIndex        =   3
         Top             =   480
         Width           =   1455
      End
   End
   Begin MSComctlLib.Toolbar Toolbar2 
      Height          =   540
      Left            =   3900
      TabIndex        =   1
      Top             =   1440
      Width           =   1155
      _ExtentX        =   2037
      _ExtentY        =   953
      ButtonWidth     =   1879
      ButtonHeight    =   953
      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      =   2
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   450
      Top             =   2220
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   30
      ImageHeight     =   30
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   2
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "NextMontData.frx":0442
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "NextMontData.frx":075E
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Height          =   540
      Left            =   3885
      TabIndex        =   0
      Top             =   405
      Width           =   1185
      _ExtentX        =   2090
      _ExtentY        =   953
      ButtonWidth     =   1879
      ButtonHeight    =   953
      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 VB.Shape Shape1 
      BorderColor     =   &H00808080&
      Height          =   2265
      Index           =   1
      Left            =   60
      Top             =   30
      Width           =   5160
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00E0E0E0&
      Height          =   2265
      Index           =   0
      Left            =   60
      Top             =   45
      Width           =   5175
   End
End
Attribute VB_Name = "NextMontData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
     On Error Resume Next
     Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
     PBar1.Visible = False
     Timer1.Enabled = False
     OpenMdb
     If Len(UserSeek) = 0 Then
        GzNian = Year(Date)
        GzYue = Format(Month(Date), "0#")
        Call sTruInfo
     End If
End Sub

Private Sub Timer1_Timer()
   Unload Me
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
     Dim SureQ As Integer, I As Integer
     On Error Resume Next
     If pbUserPermission <> "系统管理员" Then
        MsgBox "您的权限不够，请于系统管理员联系!", vbInformation
        Exit Sub
     End If
     If GzYue <> Format(Month(Now), "00") Then
        MsgBox "所选当前工作日期不正确，系统只能准备当月数据！", vbCritical
        Exit Sub
     End If
     SureQ = MsgBox("确认进行此项操作吗？Y/N？", vbQuestion + vbYesNo)
     If SureQ = 6 Then
        Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.[" & AAA & "] AS 上期,用户电费.[" & AA & "] AS 本期 FROM 用户电费 WHERE ISNULL(用户电费.[" & AA & "])=True or len(用户电费.[" & AA & "])=0")
        If MdbR.RecordCount > 0 Then
           Toolbar1.Buttons.Item(1).Enabled = False
           Toolbar2.Buttons.Item(1).Enabled = False
           PBar1.Visible = True
           Screen.MousePointer = 11
           With MdbR
                .MoveLast
                .MoveFirst
                PBar1.Min = 0
                PBar1.Max = .RecordCount
                For I = 1 To .RecordCount
                    .Edit
                    .Fields(1) = .Fields(0)
                    .Update
                    .MoveNext
                    PBar1.Value = I
                Next
         End With
        End If
        MsgBox "下月数据处理完毕!", vbInformation
     End If
     Toolbar1.Buttons.Item(1).Enabled = True
     Toolbar2.Buttons.Item(1).Enabled = True
     Screen.MousePointer = 0
     PBar1.Visible = False
     Timer1.Enabled = True
End Sub

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