updbsystem.frm

一个用VB6.0开发的简单餐会管理系统。在WIN2K

VERSION 5.00
Begin VB.Form UpDBSystem 
   Caption         =   "数据库更新"
   ClientHeight    =   1890
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4815
   LinkTopic       =   "Form1"
   ScaleHeight     =   1890
   ScaleWidth      =   4815
   StartUpPosition =   3  '窗口缺省
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "E:\jp\vb\生日餐会系统\BSystem.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   495
      Left            =   3480
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "基本资料"
      Top             =   1200
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.CommandButton Command1 
      Caption         =   "完   成"
      Height          =   495
      Left            =   1320
      TabIndex        =   0
      Top             =   1080
      Width           =   2055
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   495
      Left            =   360
      TabIndex        =   1
      Top             =   240
      Width           =   2535
   End
End
Attribute VB_Name = "UpDBSystem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''
'''''''''''''''更新程序VER 1.0'''''''''''
'''''''''''''''''''''''''''''''''''''''''


Private Const UPDBSystemVerion = "更新数据库程序 1.0 版"
Private Const UPDBPATH = "C:\BSystem\BSystem.mdb"



Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Command1.Enabled = False
Command1.Caption = "正在更新"
Label1.Caption = UPDBSystemVerion
Data1.DatabaseName = UPDBPATH 'App.Path & "\BSystem.mdb"


UpDBBase
End Sub



'''''''''''''''''''''''
''''更新生日系统数据库
Private Sub UpDBBase()
Data1.Enabled = True
Data1.ReadOnly = False
Data1.RecordSource = "ALTER TABLE 基本资料 ADD COLUMN AA TEXT"
Data1.Refresh
Data1.Recordset.Close
Command1.Enabled = True
Command1.Caption = "更新完成"
End Sub