rsgl_splash.frm

这是一个人事管理系统演示版,用 vb和sql 开发的

VERSION 5.00
Begin VB.Form rsglSplash 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   5985
   ClientLeft      =   255
   ClientTop       =   1410
   ClientWidth     =   9015
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "rsgl_Splash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "rsgl_Splash.frx":000C
   ScaleHeight     =   5985
   ScaleWidth      =   9015
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Left            =   8400
      Top             =   240
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "版权所有，违者必究"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5160
      TabIndex        =   1
      Top             =   5280
      Width           =   3735
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "人事企业管理系统"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   1680
      TabIndex        =   0
      Top             =   1320
      Width           =   4695
   End
End
Attribute VB_Name = "rsglSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'=============此窗体用来演示定时器的使用;窗体切换的处理位置=================
'功能1: 定时30秒后进入系统登录窗体
'功能2: 单击窗体后进入系统登录窗体
'功能3：按任意键进入登录窗体

Option Explicit
'按任意键触发事件
Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
    '打开登录窗体
    rsglLogin.Show
End Sub
Private Sub Form_Load()
' lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
' lblProductName.Caption = App.Title
INIfileName = App.Path & "\rsgl.ini"
    '=============定时器属性也可以在属性窗口上设置====================
    Timer1.Interval = 500  '设置定时器间隔为5秒
    'interval 属性：0,关闭定时器；1--65535 触发间隔时间，单位毫秒，1000毫秒=1秒
    Timer1.Enabled = True '窗体加载时定时器开始有效：计时开始
End Sub
'在frame1上单击触发
Private Sub Frame1_Click()
    Unload Me
    '打开登录窗体
    rsglLogin.Show
End Sub

Private Sub lblCompany_Click()

End Sub

Private Sub lblWarning_Click()

End Sub

'定时器间隔到触发
Private Sub Timer1_Timer()
   Timer1.Enabled = False '或者设置 Timer1.Interval=0
   Unload Me
    '打开登录窗体
   rsglLogin.Show
End Sub