frm新建数据库.frm

引用枕善居网站上的职工工资系统

VERSION 5.00
Begin VB.Form Frm新建数据库 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "新建数据库"
   ClientHeight    =   1155
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4275
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1155
   ScaleWidth      =   4275
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "确定(Q)"
      Height          =   375
      Left            =   1440
      TabIndex        =   0
      Top             =   600
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "没有找到数据库，需要创建数据库。"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   120
      Width           =   3855
   End
End
Attribute VB_Name = "Frm新建数据库"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
   shujuku
FileCopy App.Path + "\职工工资管理.mdb", App.Path + "\DATA\职工工资管理.mdb"
Kill App.Path + "\职工工资管理.mdb"
   frm登陆.Show
   frm登陆.Hide
   With FrmUserEdit
   .txtUserName = "Admin"
   .txtPass = 123
   .txtPass2 = 123
   MyUser.User_type = 1
   End With
   Unload Me
   tianjiayonghu
   frm登陆.Visible = True
End Sub

Private Sub Form_Load()
On Error GoTo a
MkDir App.Path + "\data"
a:
End Sub