form_welcome.frm

运用VB和SQL Server实现

VERSION 5.00
Begin VB.Form Form_Welcome 
   Caption         =   "Form1"
   ClientHeight    =   3915
   ClientLeft      =   60
   ClientTop       =   435
   ClientWidth     =   7500
   LinkTopic       =   "Form1"
   ScaleHeight     =   3915
   ScaleWidth      =   7500
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Height          =   3135
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   6975
      Begin VB.Timer Timer1 
         Interval        =   1000
         Left            =   360
         Top             =   2640
      End
      Begin VB.Label Label5 
         Caption         =   "数据初始化中，请稍后。。。"
         Height          =   255
         Left            =   3600
         TabIndex        =   5
         Top             =   2640
         Width           =   2655
      End
      Begin VB.Image Image1 
         Height          =   1935
         Left            =   360
         Top             =   600
         Width           =   2055
      End
      Begin VB.Label Label4 
         Caption         =   "制作人：刘自建"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3360
         TabIndex        =   4
         Top             =   2040
         Width           =   1935
      End
      Begin VB.Label Label3 
         Caption         =   "平台：WIN98/XP"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   5040
         TabIndex        =   3
         Top             =   1680
         Width           =   1815
      End
      Begin VB.Label Label2 
         Caption         =   "家庭理财系统"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   18
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3480
         TabIndex        =   2
         Top             =   960
         Width           =   2415
      End
      Begin VB.Label Label1 
         Caption         =   "欢迎使用本软件"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3240
         TabIndex        =   1
         Top             =   360
         Width           =   3135
      End
   End
End
Attribute VB_Name = "Form_Welcome"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Timer1_Timer()
FormUsr.Show
Unload Me
End Sub