frmsplash.frm

这是一款用VB开发功的具有基本功能的酒店管理系统。是一款进行二次开发的不错的代码。

VERSION 5.00
Object = "{50CBA22D-9024-11D1-AD8F-8E94A5273767}#8.6#0"; "TRANIMG2.OCX"
Object = "{608009F3-E1FB-11D2-9BA1-0040D0002C80}#1.0#0"; "NSLOCK15VB6.OCX"
Begin VB.Form frmSplash 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   4560
   ClientLeft      =   255
   ClientTop       =   1410
   ClientWidth     =   7425
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4560
   ScaleWidth      =   7425
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin DevPowerTransImg.TransImg TransImg1 
      Height          =   1470
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   2310
      _ExtentX        =   4075
      _ExtentY        =   2593
      MaskColor       =   16777215
      Transparent     =   -1  'True
      Picture         =   "frmSplash.frx":000C
   End
   Begin VB.Frame Frame1 
      Height          =   40
      Left            =   120
      TabIndex        =   9
      Top             =   3720
      Width           =   7215
   End
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   1560
      Top             =   2520
   End
   Begin nslock15vb6.ActiveLock ActiveLock1 
      Left            =   720
      Top             =   3120
      _ExtentX        =   847
      _ExtentY        =   820
      Password        =   "YourPassword"
      SoftwareName    =   "YourAppName"
      LiberationKeyLength=   16
      SoftwareCodeLength=   16
   End
   Begin VB.Label lblCompanyProduct 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "红日应用软件工作室"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   3390
      TabIndex        =   8
      Top             =   720
      Width           =   2985
   End
   Begin VB.Label lblLicenseTo 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "授权广告： "
      Height          =   255
      Left            =   360
      TabIndex        =   7
      Top             =   360
      Width           =   6855
   End
   Begin VB.Label lblProductName 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "酒店总台管理系统"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2925
      TabIndex        =   6
      Top             =   1320
      Width           =   3975
   End
   Begin VB.Label lblPlatform 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Windows9x/VB6.0"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   4800
      TabIndex        =   5
      Top             =   2040
      Width           =   2040
   End
   Begin VB.Label lblVersion 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "V2.01.01 版"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   240
      Left            =   5400
      TabIndex        =   4
      Top             =   2400
      Width           =   1485
   End
   Begin VB.Label lblWarning 
      BackStyle       =   0  'Transparent
      Caption         =   "警告:本软件受著作权法和国际软件公约保护,未经允许不得复制或改变软件的内容。"
      Height          =   195
      Left            =   360
      TabIndex        =   3
      Top             =   3960
      Width           =   6765
   End
   Begin VB.Label lblCompany 
      BackStyle       =   0  'Transparent
      Caption         =   "红日应用软件工作室 梁秀林"
      Height          =   255
      Left            =   4680
      TabIndex        =   2
      Top             =   3240
      Width           =   2415
   End
   Begin VB.Label lblCopyright 
      BackStyle       =   0  'Transparent
      Caption         =   "版权所有(C) 红日软件工作室,200? Crop."
      Height          =   255
      Left            =   3600
      TabIndex        =   1
      Top             =   3000
      Width           =   3375
   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_Activate()
    If Not ActiveLock1.RegisteredUser Then
       Unload frmSplash
       Load frmRegister
       frmRegister.Show vbModal
    End If
End Sub

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

Private Sub Form_Load()
    lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
    'lblProductName.Caption = App.Title
    
    ActiveLock1.Password = "TYBB"
    
End Sub

Private Sub Frame1_Click()
    Unload frmSplash
End Sub

Private Sub Timer1_Timer()
    Unload frmSplash
End Sub