sysregedit.frm

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

VERSION 5.00
Begin VB.Form SysRegedit 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   3360
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6180
   Icon            =   "SysRegedit.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3360
   ScaleWidth      =   6180
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Caption         =   "注册信息"
      Height          =   3165
      Left            =   90
      TabIndex        =   2
      Top             =   120
      Width           =   4065
      Begin VB.Frame Frame2 
         Caption         =   "设置密码"
         Height          =   3165
         Left            =   0
         TabIndex        =   11
         Top             =   0
         Width           =   4065
         Begin VB.TextBox Text9 
            Height          =   270
            Left            =   1350
            Locked          =   -1  'True
            TabIndex        =   22
            Top             =   300
            Width           =   2475
         End
         Begin VB.TextBox Text8 
            Height          =   270
            Left            =   1395
            TabIndex        =   20
            Text            =   "Text8"
            Top             =   2265
            Width           =   2415
         End
         Begin VB.TextBox Text7 
            Height          =   300
            Left            =   1380
            TabIndex        =   18
            Text            =   "Text7"
            Top             =   1785
            Width           =   945
         End
         Begin VB.CommandButton Command3 
            Caption         =   "确定(&O)"
            Height          =   315
            Left            =   2610
            TabIndex        =   16
            Top             =   2700
            Width           =   945
         End
         Begin VB.TextBox Text6 
            Height          =   315
            Left            =   1380
            TabIndex        =   15
            Text            =   "Text6"
            Top             =   1305
            Width           =   945
         End
         Begin VB.TextBox Text5 
            Height          =   300
            Left            =   1380
            TabIndex        =   14
            Text            =   "Text5"
            Top             =   825
            Width           =   2415
         End
         Begin VB.Label Label9 
            Caption         =   "软件名称："
            Height          =   195
            Left            =   225
            TabIndex        =   21
            Top             =   375
            Width           =   1005
         End
         Begin VB.Label Label8 
            Caption         =   "序列码长度："
            Height          =   195
            Left            =   150
            TabIndex        =   19
            Top             =   1860
            Width           =   1230
         End
         Begin VB.Label Label7 
            Caption         =   "软件序列码："
            Height          =   165
            Left            =   165
            TabIndex        =   17
            Top             =   2295
            Width           =   1140
         End
         Begin VB.Label Label6 
            Caption         =   "密钥长度："
            Height          =   180
            Left            =   180
            TabIndex        =   13
            Top             =   1365
            Width           =   975
         End
         Begin VB.Label Label1 
            Caption         =   "密码："
            Height          =   270
            Left            =   195
            TabIndex        =   12
            Top             =   870
            Width           =   570
         End
      End
      Begin VB.TextBox Text4 
         DragMode        =   1  'Automatic
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   315
         Left            =   1560
         TabIndex        =   10
         Top             =   2580
         Width           =   2355
      End
      Begin VB.TextBox Text3 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   315
         Left            =   1560
         TabIndex        =   8
         Top             =   1890
         Width           =   2355
      End
      Begin VB.TextBox Text2 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   315
         Left            =   1560
         TabIndex        =   6
         Top             =   1125
         Width           =   2355
      End
      Begin VB.TextBox Text1 
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   315
         Left            =   1560
         TabIndex        =   4
         Top             =   360
         Width           =   2355
      End
      Begin VB.Label Label5 
         Caption         =   "注册码："
         Height          =   255
         Left            =   240
         TabIndex        =   9
         Top             =   2625
         Width           =   855
      End
      Begin VB.Label Label4 
         Caption         =   "信箱："
         Height          =   315
         Left            =   240
         TabIndex        =   7
         Top             =   1935
         Width           =   975
      End
      Begin VB.Label Label3 
         Caption         =   "用户姓名："
         Height          =   255
         Left            =   240
         TabIndex        =   5
         Top             =   1200
         Width           =   975
      End
      Begin VB.Label Label2 
         Caption         =   "软件编码："
         Height          =   255
         Left            =   240
         TabIndex        =   3
         Top             =   430
         Width           =   1095
      End
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出注册(&L)"
      Height          =   375
      Left            =   4605
      TabIndex        =   1
      Top             =   2910
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开始注册(&O)"
      Height          =   375
      Left            =   4605
      TabIndex        =   0
      Top             =   2340
      Width           =   1335
   End
End
Attribute VB_Name = "SysRegedit"
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

Private Sub Form_Load()
    Dim TempStr1 As String * 256
    Dim TempStr2 As String * 256
    Dim TempLon1 As Long
    Dim TempLon2 As Long
    Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
    Frame2.Visible = False
End Sub