www.pudn.com > new xsc.rar > frmSplash.frm

VERSION 5.00 
Begin VB.Form frmSplash  
   BorderStyle     =   3  'Fixed Dialog 
   ClientHeight    =   4245 
   ClientLeft      =   255 
   ClientTop       =   1410 
   ClientWidth     =   7380 
   ClipControls    =   0   'False 
   ControlBox      =   0   'False 
   Icon            =   "frmSplash.frx":0000 
   KeyPreview      =   -1  'True 
   LinkTopic       =   "Form2" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   4245 
   ScaleWidth      =   7380 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.Frame Frame1  
      Height          =   4050 
      Left            =   120 
      TabIndex        =   0 
      Top             =   60 
      Width           =   7080 
      Begin VB.Timer Timer1  
         Interval        =   2000 
         Left            =   5880 
         Top             =   3240 
      End 
      Begin VB.Label Label1  
         AutoSize        =   -1  'True 
         Caption         =   "数据库：SQL Server2000个人版" 
         Height          =   180 
         Left            =   3240 
         TabIndex        =   4 
         Top             =   2640 
         Width           =   2520 
      End 
      Begin VB.Image imgLogo  
         Height          =   3105 
         Left            =   120 
         Picture         =   "frmSplash.frx":000C 
         Stretch         =   -1  'True 
         Top             =   480 
         Width           =   1815 
      End 
      Begin VB.Label lblCopyright  
         Caption         =   "版权归辽宁省城市建设学校学生处所有" 
         Height          =   255 
         Left            =   3600 
         TabIndex        =   1 
         Top             =   3600 
         Width           =   3135 
      End 
      Begin VB.Label lblProductName  
         AutoSize        =   -1  'True 
         Caption         =   "班主任考核管理系统" 
         BeginProperty Font  
            Name            =   "隶书" 
            Size            =   27.75 
            Charset         =   134 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   555 
         Left            =   1800 
         TabIndex        =   3 
         Top             =   1800 
         Width           =   5265 
      End 
      Begin VB.Label lblCompanyProduct  
         AutoSize        =   -1  'True 
         Caption         =   "辽宁省城市建设学校" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   18 
            Charset         =   134 
            Weight          =   700 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         Height          =   360 
         Left            =   2355 
         TabIndex        =   2 
         Top             =   705 
         Width           =   3375 
      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 
    frmLogin.Show 
End Sub 
 
 
 
Private Sub Frame1_Click() 
    Unload Me 
    frmLogin.Show 
End Sub 
 
Private Sub Timer1_timer() 
  Unload Me 
  frmLogin.Show 
  Beep 
End Sub