main_startup.frm

来自「餐饮管理系统,VB源代码+SQLServer数据库+配置方案」· FRM 代码 · 共 54 行

VERSION 5.00
Begin VB.Form main_Startup 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3450
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6465
   LinkTopic       =   "Form1"
   Picture         =   "main_Startup.frx":0000
   ScaleHeight     =   3450
   ScaleWidth      =   6465
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   2340
      Top             =   1890
   End
End
Attribute VB_Name = "main_Startup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'--------------------------------------------------------------------
'1省略部分

'--------------------------------------------------------------------

'附加数据库定义
'Private con As New ADODB.Connection
'Private rs As New ADODB.Recordset
'Private rsDropDB As New ADODB.Recordset
'Private rsSql As New ADODB.Recordset
'Private Str As String, Source As String, SourceM As String, SourceL As String

'--------------------------------------------------------------------
'2省略部分

'--------------------------------------------------------------------


'--------------------------------------------------------------------
'3省略部分
'--------------------------------------------------------------------

Private Sub Timer1_Timer()
  Unload Me
  main_mima.Show
End Sub