frmsplash.frm

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

VERSION 5.00
Begin VB.Form frmSplash 
   BackColor       =   &H0099CBCC&
   BorderStyle     =   0  'None
   ClientHeight    =   3975
   ClientLeft      =   2925
   ClientTop       =   2490
   ClientWidth     =   4815
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmSplash.frx":000C
   ScaleHeight     =   3975
   ScaleWidth      =   4815
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Visible         =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   90
      Top             =   4125
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   240
      Left            =   3780
      TabIndex        =   5
      Top             =   690
      Width           =   900
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00808080&
      Height          =   255
      Left            =   1560
      TabIndex        =   4
      Top             =   3015
      Width           =   1725
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00808080&
      Height          =   270
      Left            =   1560
      TabIndex        =   3
      Top             =   3300
      Width           =   1725
   End
   Begin VB.Label Label5 
      ForeColor       =   &H0000FFFF&
      Height          =   255
      Left            =   1635
      TabIndex        =   2
      Top             =   4185
      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            =   765
      TabIndex        =   1
      Tag             =   "版权所有"
      Top             =   4665
      Width           =   4350
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "序列码:"
      Height          =   210
      Left            =   930
      TabIndex        =   0
      Top             =   4230
      Width           =   765
   End
End
Attribute VB_Name = "frmSplash"
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
  RegPassTrue = GetSetting(App.EXEName, "RegInfo", "RegTrue", "")
  lblCopyright.Caption = lblCopyright.Caption & " " & LoadResString(102)
  If RegPassTrue = "False" Then
     Label4.ForeColor = vbRed
     Label4.Caption = "您使用的软件未注册,请注册!"
     Label3.Visible = False
     Label2.Visible = False
     Label5.Visible = False
     Label6.Visible = False
  Else
     Label1.Caption = "Ver" & App.Major & "." & App.Minor
     Label3.Caption = QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\杭州华杭电子电器有限公司\乡镇供电所电费处理系统v2.0\2.00", "组织名称")
     Label2.Caption = QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\杭州华杭电子电器有限公司\乡镇供电所电费处理系统v2.0\2.00", "用户名")
     Label5.Caption = QueryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\杭州华杭电子电器有限公司\乡镇供电所电费处理系统v2.0\2.00", "注册码")
  End If
End Sub

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