frmsplash1.frm

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

VERSION 5.00
Begin VB.Form frmSplash1 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   5445
   ClientLeft      =   2970
   ClientTop       =   2535
   ClientWidth     =   7275
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmSplash1.frx":0000
   ScaleHeight     =   5445
   ScaleWidth      =   7275
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Visible         =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   90
      Top             =   4125
   End
   Begin VB.Label Label8 
      BackStyle       =   0  'Transparent
      Caption         =   "ND2000电费处理系统"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   585
      Left            =   1440
      TabIndex        =   10
      Top             =   960
      Width           =   5040
   End
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      Caption         =   "乡镇供电所版 Ver 2.0"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   375
      Left            =   3840
      TabIndex        =   9
      Top             =   1680
      Width           =   2655
   End
   Begin VB.Label lblPlatform 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "For Win9x,WinMe WinNT"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   210
      Left            =   3975
      TabIndex        =   8
      Tag             =   "平台"
      Top             =   2040
      Width           =   2520
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "ND2000电费处理系统"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   585
      Left            =   1440
      TabIndex        =   7
      Top             =   1005
      Width           =   5040
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00C00000&
      Height          =   255
      Left            =   2790
      TabIndex        =   6
      Top             =   3405
      Width           =   2850
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00C00000&
      Height          =   270
      Left            =   2790
      TabIndex        =   5
      Top             =   3810
      Width           =   2835
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00C00000&
      Height          =   255
      Left            =   2790
      TabIndex        =   4
      Top             =   4215
      Width           =   2835
   End
   Begin VB.Label lblCopyright 
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "CopyRight(c)  1998-2005 杭州华杭电子电器公司"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   285
      Left            =   3240
      TabIndex        =   3
      Tag             =   "版权所有"
      Top             =   5175
      Width           =   4080
   End
   Begin VB.Label lblWarning 
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "警告：   本软件受中华人民共和国著作权保护法保护，任何个人和单位，未经许可，不能拷贝或复制。本公司保留起诉的权利。"
      ForeColor       =   &H00000000&
      Height          =   405
      Left            =   1365
      TabIndex        =   2
      Tag             =   "警告"
      Top             =   4560
      Width           =   5970
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "序列码:"
      Height          =   210
      Left            =   1380
      TabIndex        =   1
      Top             =   4230
      Width           =   765
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "本软件已注册到："
      Height          =   255
      Left            =   1335
      TabIndex        =   0
      Top             =   3435
      Width           =   3810
   End
   Begin VB.Image Image2 
      Height          =   480
      Left            =   660
      Picture         =   "frmSplash1.frx":77CE
      Top             =   1095
      Width           =   480
   End
End
Attribute VB_Name = "frmSplash1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  Call PutWindowOnTop(Me)
  Dim RegPassTrue As String
  Dim SMSM
  RegPassTrue = GetSetting(App.EXEName, "RegInfo", "RegTrue", "")
  If RegPassTrue = "False" Then
     Label4.ForeColor = vbRed
     Label4.Caption = "您使用的软件未注册,请注册!"
     Label3.Visible = False
     Label2.Visible = False
     Label5.Visible = False
     Label6.Visible = False
  Else
     Dim RegUcode As String, RegSoft As String, RegU As String
 '    RegU = GetSetting(App.EXEName, "RegInfo", "UserN", "")
 '    RegUcode = GetSetting(App.EXEName, "RegInfo", "SuserCode", "")
 '    RegSoft = GetSetting(App.EXEName, "RegInfo", "SoftCode", "")
     '注册码
     SSSS = GetKeyValue(HKEY_LOCAL_MACHINE, GR, gRegCode, "")
     RegUcode = RetuVal
     '组织名称
     SSSS = GetKeyValue(HKEY_LOCAL_MACHINE, GR, gRegEcName, "")
     RegSoft = RetuVal
     '用户名
     SSSS = GetKeyValue(HKEY_LOCAL_MACHINE, GR, gRegUserName, "")
     RegU = RetuVal
     
     
     Label4.Caption = "本软件已注册到："
   '  CompName = sGetComputerName
   '  username = sUserName
     Label3.Caption = RegU
     Label2.Caption = RegSoft 'CompName
     Label5.Caption = RegUcode  'RegSoft & RegUcode
  End If
End Sub

Private Sub Timer1_Timer()
  Unload Me
  Timer1.Enabled = False
End Sub