frmsplash.frm

汽修厂管理软件

VERSION 5.00
Begin VB.Form frmSplash 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   ClientHeight    =   4020
   ClientLeft      =   4680
   ClientTop       =   3615
   ClientWidth     =   7875
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   ScaleHeight     =   4020
   ScaleWidth      =   7875
   Begin VB.Frame Frame1 
      BackColor       =   &H000080FF&
      Height          =   4050
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7920
      Begin VB.Timer Timer1 
         Interval        =   2000
         Left            =   3240
         Top             =   2880
      End
      Begin VB.Label Label1 
         BackColor       =   &H000080FF&
         Caption         =   "Garage Computer-Asis Managent System"
         Height          =   255
         Left            =   2400
         TabIndex        =   8
         Top             =   840
         Width           =   3615
      End
      Begin VB.Image imgLogo 
         Height          =   2385
         Left            =   360
         Picture         =   "frmSplash.frx":000C
         Stretch         =   -1  'True
         Top             =   795
         Width           =   1815
      End
      Begin VB.Label lblCopyright 
         BackColor       =   &H000080FF&
         Caption         =   "版权所有 2004-2008"
         Height          =   255
         Left            =   4440
         TabIndex        =   4
         Top             =   2880
         Width           =   2415
      End
      Begin VB.Label lblCompany 
         BackColor       =   &H000080FF&
         Caption         =   "轻骑兵工作室 出品"
         Height          =   255
         Left            =   4440
         TabIndex        =   3
         Top             =   3240
         Width           =   2415
      End
      Begin VB.Label lblWarning 
         BorderStyle     =   1  'Fixed Single
         Height          =   75
         Left            =   30
         TabIndex        =   2
         Top             =   3780
         Width           =   7845
      End
      Begin VB.Label lblVersion 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackColor       =   &H000080FF&
         Caption         =   "版本:个体1.01"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   5280
         TabIndex        =   5
         Top             =   2400
         Width           =   1710
      End
      Begin VB.Label lblPlatform 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         BackColor       =   &H000080FF&
         Caption         =   "For Windows"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   5280
         TabIndex        =   6
         Top             =   2040
         Width           =   1500
      End
      Begin VB.Label lblProductName 
         AutoSize        =   -1  'True
         BackColor       =   &H000080FF&
         Caption         =   "汽修厂辅助管理软件"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   20.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   405
         Left            =   2400
         TabIndex        =   7
         Top             =   1200
         Width           =   3795
      End
      Begin VB.Label lblLicenseTo 
         BackColor       =   &H000080FF&
         Caption         =   "                                                      授权   快车手汽修使用"
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   6855
      End
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub

Private Sub Form_Load()
    lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
DBPATH = App.Path & "\test.mdb"
SYSTEMDBPATH = App.Path & "\secured.mdw"

lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
On Error GoTo ErrHandle
' Set JETGRG = CreateWorkspace("", "admin", "")
'Set DBSGRG = JETGRG.OpenDatabase(App.Path & "\kcsgarage.mdb", True, False, ";PWD=" & Txt_PWD.Text)
   DBEngine.SystemDB = SYSTEMDBPATH
  
 IsRegistered = ISReged() '判断是否注册
 If IsRegistered = True Then frm_main.mnu_R.Visible = False
   
frm_main.Show

Exit Sub
ErrHandle:
 MsgBox Err.Description




End Sub

Private Sub Frame1_Click()
    Unload Me
End Sub

Private Sub Timer1_Timer()
Unload Me
End Sub


Private Function ISReged() As Boolean

 Dim enc As dsEncrypt
 Dim nKeyHandle As Long, nValueType As Long, nLength As Long
   Dim sValue As String
 Dim strPcCode As String
 Dim strSeriesnum As String

ISReged = False
 sValue = Space(255)

 Call RegCreateKey(HKEY_LOCAL_MACHINE, "Software\HussarWorkRoom", nKeyHandle)
    Call RegQueryValueEx(nKeyHandle, "SeriesNum", 0, nValueType, sValue, 255)
     strSeriesnum = sValue
    strSeriesnum = Trim(strSeriesnum)
    If Len(strSeriesnum) < 2 Then
      ISReged = False
      Exit Function
    End If
    If Asc(Right(strSeriesnum, 1)) = 0 Then strSeriesnum = Mid(strSeriesnum, 1, Len(strSeriesnum) - 1)
    Call RegQueryValueEx(nKeyHandle, "GarageName", 0, nValueType, sValue, 255)
     STRGARAGE = sValue
    
    Call RegQueryValueEx(nKeyHandle, "GarageInfo", 0, nValueType, sValue, 255)
    STRGRGINFO = sValue
   
    Call RegCloseKey(nKeyHandle)
   lblLicenseTo.Caption = Space(20) & " 授权" & STRGARAGE & "使用"
'判断是否注册:
   strPcCode = GetDriveInfo("C:\", GETDI_SERIAL)  ' HD Serial Number
   Set enc = New dsEncrypt
   enc.KeyString = "Hussar"
   
   If strSeriesnum = enc.Encrypt(strPcCode) Then '已经注册
    IsRegistered = True
    ISReged = True
   Else
    IsRegistered = False
    STRGARAGE = STRGARAGE & "[未注册版本]"
    STRGRGINFO = STRGRGINFO & "[未注册版本]"
   End If
   
   
  End Function