jz.frm

这个就不用多说了

VERSION 5.00
Begin VB.Form JZ 
   Caption         =   "创建数据库"
   ClientHeight    =   2985
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6510
   Icon            =   "JZ.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   2985
   ScaleWidth      =   6510
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      Height          =   2385
      Left            =   105
      Picture         =   "JZ.frx":0442
      ScaleHeight     =   2325
      ScaleWidth      =   6780
      TabIndex        =   2
      Top             =   60
      Width           =   6840
      Begin VB.TextBox Text2 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1290
         TabIndex        =   6
         Top             =   150
         Width           =   1575
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1290
         TabIndex        =   5
         Top             =   615
         Width           =   4425
      End
      Begin VB.ComboBox Combo1 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         ItemData        =   "JZ.frx":75B86
         Left            =   1290
         List            =   "JZ.frx":75BAE
         TabIndex        =   4
         Top             =   1110
         Width           =   1965
      End
      Begin VB.ComboBox Combo2 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         ItemData        =   "JZ.frx":75BFA
         Left            =   1290
         List            =   "JZ.frx":75C22
         TabIndex        =   3
         Top             =   1590
         Width           =   1965
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "名称"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000017&
         Height          =   495
         Left            =   285
         TabIndex        =   10
         Top             =   600
         Width           =   735
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "编号"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000017&
         Height          =   375
         Left            =   285
         TabIndex        =   9
         Top             =   180
         Width           =   855
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "启用年度"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000017&
         Height          =   435
         Left            =   285
         TabIndex        =   8
         Top             =   1080
         Width           =   1440
      End
      Begin VB.Label Label4 
         BackStyle       =   0  'Transparent
         Caption         =   "启用月份"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000017&
         Height          =   435
         Left            =   285
         TabIndex        =   7
         Top             =   1650
         Width           =   1440
      End
   End
   Begin VB.CommandButton Command2 
      Caption         =   "放弃"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   960
      TabIndex        =   1
      Top             =   2550
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "创建"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3570
      TabIndex        =   0
      Top             =   2535
      Width           =   1335
   End
End
Attribute VB_Name = "JZ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim myclass As New CreateDatabase

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
End Sub
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
Private Sub Combo2_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Private Sub Command1_Click()
If Not IsNumeric(Text2.Text) Then
MsgBox "请输入数字", vbInformation, "提示"
Exit Sub
End If
If InStr(Text2.Text, "0") = 1 Then
MsgBox "开始不能来零", vbInformation, "提示"
Exit Sub
End If
If InStr(Text2.Text, ".") > 1 Then
MsgBox "不能有小数", vbInformation, "提示"
Exit Sub
End If


If Text1.Text = "" Or Text2.Text = "" Then
Exit Sub
End If
If myclass.Create_Database("GYZC" & Text2.Text, Text2.Text, Text1.Text, Combo1.Text, Combo2.Text) Then
MsgBox "建帐成功请重新启动软件", vbInformation, "提示"
Unload Me

End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.Text = Combo1.List(1)
Combo2.Text = Combo2.List(0)
End Sub