main_startup.frm

餐饮企业的管理系统主要包括前台管理、后台管理、财务管理、报表打印等功能

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