formdatavir.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form FormDataVir 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "系统数据校验"
   ClientHeight    =   3345
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7155
   Icon            =   "FormDataVir.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3345
   ScaleWidth      =   7155
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "退出(&E)"
      Height          =   330
      Left            =   5745
      TabIndex        =   9
      Top             =   2835
      Width           =   1170
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定(&O)"
      Height          =   315
      Left            =   4020
      TabIndex        =   8
      Top             =   2835
      Width           =   1290
   End
   Begin VB.Frame Frame1 
      Caption         =   "校验选项"
      Height          =   2475
      Left            =   255
      TabIndex        =   0
      Top             =   210
      Width           =   6645
      Begin VB.CheckBox Check5 
         Caption         =   "错误的编码信息"
         Height          =   255
         Left            =   2640
         TabIndex        =   12
         Top             =   720
         Width           =   1815
      End
      Begin VB.CheckBox Check4 
         Caption         =   "错误的辅助号信息"
         Height          =   255
         Left            =   2640
         TabIndex        =   11
         Top             =   360
         Width           =   2655
      End
      Begin MSComctlLib.ProgressBar ProgressBar1 
         Height          =   270
         Left            =   165
         TabIndex        =   10
         Top             =   2115
         Width           =   6375
         _ExtentX        =   11245
         _ExtentY        =   476
         _Version        =   393216
         Appearance      =   1
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   5355
         TabIndex        =   7
         Text            =   "1"
         Top             =   1320
         Width           =   930
      End
      Begin MSComCtl2.UpDown UpDown1 
         Height          =   285
         Left            =   6285
         TabIndex        =   6
         Top             =   1305
         Width           =   240
         _ExtentX        =   423
         _ExtentY        =   503
         _Version        =   393216
         BuddyControl    =   "Text1"
         BuddyDispid     =   196618
         OrigLeft        =   6150
         OrigTop         =   1740
         OrigRight       =   6390
         OrigBottom      =   2115
         Increment       =   10
         Max             =   1000
         SyncBuddy       =   -1  'True
         BuddyProperty   =   0
         Enabled         =   -1  'True
      End
      Begin VB.OptionButton Option2 
         Caption         =   "自定义"
         Height          =   255
         Left            =   4290
         TabIndex        =   5
         Top             =   1320
         Width           =   885
      End
      Begin VB.OptionButton Option1 
         Caption         =   "根据往期平均值"
         Height          =   225
         Left            =   2550
         TabIndex        =   4
         Top             =   1350
         Width           =   1665
      End
      Begin VB.CheckBox Check3 
         Caption         =   "错误的抄见数信息"
         Height          =   300
         Left            =   360
         TabIndex        =   3
         Top             =   1290
         Width           =   1875
      End
      Begin VB.CheckBox Check2 
         Caption         =   "错误的多价表信息"
         Height          =   285
         Left            =   360
         TabIndex        =   2
         Top             =   840
         Width           =   2160
      End
      Begin VB.CheckBox Check1 
         Caption         =   "错误的台区信息"
         Height          =   195
         Left            =   360
         TabIndex        =   1
         Top             =   450
         Width           =   1695
      End
   End
   Begin VB.Shape Shape2 
      BorderColor     =   &H80000005&
      Height          =   3255
      Left            =   45
      Top             =   45
      Width           =   7095
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H80000003&
      Height          =   3255
      Left            =   30
      Top             =   30
      Width           =   7095
   End
End
Attribute VB_Name = "FormDataVir"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command2_Click()
   Unload Me
End Sub