qidong.frm

来自「一个简单的数据库操作例子,特别适合初学者.vb数据库编程练习」· FRM 代码 · 共 45 行

VERSION 5.00
Begin VB.Form 启动 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   4125
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7800
   LinkTopic       =   "Form1"
   ScaleHeight     =   4125
   ScaleWidth      =   7800
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1500
      Left            =   120
      Top             =   120
   End
   Begin VB.Image Image1 
      Height          =   4125
      Left            =   0
      Picture         =   "qidong.frx":0000
      Top             =   0
      Width           =   7800
   End
End
Attribute VB_Name = "启动"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Timer1.Enabled = True
    Set Conn = New ADODB.Connection
    Dim strConn As String
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\order.mdb" & ";Persist Security Info=False"
    Conn.Open strConn
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Unload Me
End Sub