www.pudn.com > jiudianguanli.rar > frm1.frm

VERSION 5.00 
Begin VB.Form frm1  
   BorderStyle     =   0  'None 
   Caption         =   "Form1" 
   ClientHeight    =   2610 
   ClientLeft      =   4740 
   ClientTop       =   3990 
   ClientWidth     =   5445 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   2610 
   ScaleWidth      =   5445 
   ShowInTaskbar   =   0   'False 
   Begin VB.Timer Timer2  
      Interval        =   200 
      Left            =   4560 
      Top             =   1560 
   End 
   Begin VB.Timer Timer1  
      Interval        =   2500 
      Left            =   4560 
      Top             =   720 
   End 
   Begin VB.Label Label2  
      BackStyle       =   0  'Transparent 
      Caption         =   "加载数据中" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   375 
      Left            =   1920 
      TabIndex        =   1 
      Top             =   1560 
      Width           =   1455 
   End 
   Begin VB.Label Label1  
      BackStyle       =   0  'Transparent 
      Caption         =   "欢迎使用酒店管理系统" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   15 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   375 
      Left            =   1080 
      TabIndex        =   0 
      Top             =   720 
      Width           =   3255 
   End 
End 
Attribute VB_Name = "frm1" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Timer1_Timer() 
 Unload Me 
    frmtupian.Show 
End Sub 
 
Private Sub Timer2_Timer() 
    frm1.BackColor = RGB(Int(255 + 1) * Rnd, Int(255 + 1) * Rnd, Int(255 + 1) * Rnd) 
End Sub