开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > 其他数据库 > 查看源码
frmSplash.frm
资源名称：考勤6.rar　[点击查看]
上传用户：djzm888
上传日期：2013-02-15
资源大小：867k
文件大小：2k
源码类别：

其他数据库

开发平台：

Visual Basic

frmSplash.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BackColor       =   &H00808000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   4440
  6.    ClientLeft      =   255
  7.    ClientTop       =   1410
  8.    ClientWidth     =   7470
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    Picture         =   "frmSplash.frx":0000
  16.    ScaleHeight     =   4440
  17.    ScaleWidth      =   7470
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  '屏幕中心
  20.    Begin VB.Timer Timer1 
  21.       Interval        =   2000
  22.       Left            =   6795
  23.       Top             =   3675
  24.    End
  25.    Begin VB.Label Label1 
  26.       BackStyle       =   0  'Transparent
  27.       BeginProperty Font 
  28.          Name            =   "宋体"
  29.          Size            =   12
  30.          Charset         =   134
  31.          Weight          =   400
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       ForeColor       =   &H00FF0000&
  37.       Height          =   255
  38.       Left            =   240
  39.       TabIndex        =   0
  40.       Top             =   3300
  41.       Width           =   4890
  42.    End
  43. End
  44. Attribute VB_Name = "frmSplash"
  45. Attribute VB_GlobalNameSpace = False
  46. Attribute VB_Creatable = False
  47. Attribute VB_PredeclaredId = True
  48. Attribute VB_Exposed = False
  49. Option Explicit
  50. Private Sub Form_Load()
  51.     Timer1.Enabled = True
  52.     Me.Show
  53.     Label1.Caption = "系统正在启动，请稍候..."
  54.     Me.Refresh
  55. End Sub
  57. Private Sub Timer1_Timer()
  58.     Timer1.Enabled = False
  59.     Dim Fr As New frmLogin
  60.     Set Fr = New frmLogin
  61.     Fr.Show 1
  62.     If Not Fr.LoginSucceeded Then
  63.         EndSystem
  64.     Else
  65.         frmMDI.Show
  66.         Unload Me
  67.     End If
  68. End Sub
  69. Private Sub Form_Click()
  70.     Timer1_Timer
  71. End Sub
  73. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  74.     If KeyCode = vbKeyReturn Then
  75.         Timer1_Timer
  76.     End If
  77. End Sub