frm_csh.frm

采用VB编写的学生订票管理系统 有详细的代码~解压后可以直接使用！~附有使用说明

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Frm_csh 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "初始化"
   ClientHeight    =   2220
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2220
   ScaleWidth      =   7680
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Caption         =   "基础数据"
      Enabled         =   0   'False
      Height          =   900
      Left            =   30
      TabIndex        =   4
      Top             =   255
      Width           =   7455
      Begin VB.CheckBox Check4 
         Caption         =   "求购转让"
         Height          =   315
         Left            =   4500
         TabIndex        =   9
         Top             =   315
         Width           =   1245
      End
      Begin VB.CheckBox Check1 
         Caption         =   "车票预定"
         Height          =   240
         Left            =   420
         TabIndex        =   8
         Top             =   375
         Width           =   1035
      End
      Begin VB.CheckBox Check2 
         Caption         =   "车次信息"
         Height          =   240
         Left            =   1695
         TabIndex        =   7
         Top             =   390
         Width           =   1095
      End
      Begin VB.CheckBox Check5 
         Caption         =   "学生信息"
         Height          =   240
         Left            =   6075
         TabIndex        =   6
         Top             =   375
         Width           =   1230
      End
      Begin VB.CheckBox Check3 
         Caption         =   "车站信息"
         Height          =   240
         Left            =   3075
         TabIndex        =   5
         Top             =   375
         Width           =   1035
      End
   End
   Begin VB.CommandButton Cmd_end 
      Caption         =   "退出"
      Height          =   360
      Left            =   6315
      TabIndex        =   2
      Top             =   1515
      Width           =   1125
   End
   Begin VB.CommandButton Cmd_creat 
      Caption         =   "初始化"
      Enabled         =   0   'False
      Height          =   375
      Left            =   5190
      TabIndex        =   1
      Top             =   1515
      Width           =   1125
   End
   Begin VB.CommandButton Cmd_start 
      Caption         =   "开始"
      Height          =   375
      Left            =   4050
      TabIndex        =   0
      Top             =   1530
      Width           =   1125
   End
   Begin MSComctlLib.ProgressBar ProgressBar1 
      Height          =   360
      Left            =   60
      TabIndex        =   3
      Top             =   1545
      Visible         =   0   'False
      Width           =   3870
      _ExtentX        =   6826
      _ExtentY        =   635
      _Version        =   393216
      Appearance      =   1
   End
End
Attribute VB_Name = "Frm_csh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim workarea(200), sql As String     '定义字符串变量
Dim rs As ADODB.Recordset

Private Sub Cmd_creat_Click()
Dim rs As New ADODB.Recordset
    a = MsgBox("确认初始化该数据？", 4, "系统提示")
    If a = vbYes Then
        ProgressBar1.Visible = True      'ProgressBar 控件ProgressBar 控件通过从左到右用一些方块填充矩形来表示一个较长操作的进度。
        ProgressBar1.Max = UBound(workarea)
        ProgressBar1.Value = ProgressBar1.Min
        For Counter = LBound(workarea) To UBound(workarea)
            'LBound 函数返回一个 Long 型数据，其值为指定数组维可用的最小下标。
            'UBound 函数返回一个 Long 型数据，其值为指定的数组维可用的最大下标。
            workarea(Counter) = "initial value " & Counter
            ProgressBar1.Value = Counter
            If Check1.Value = 1 Then
                rs.Open "delete  from tb_cpyd", cnn, adOpenKeyset, adLockOptimistic
            End If
            If Check2.Value = 1 Then
                rs.Open "delete  from tb_ccxx", cnn, adOpenKeyset, adLockOptimistic
            End If

            If Check3.Value = 1 Then
                rs.Open "delete  from tb_cz", cnn, adOpenKeyset, adLockOptimistic
            End If
            If Check4.Value = 1 Then
                rs.Open "delete from tb_qgzr", cnn, adOpenKeyset, adLockOptimistic
            End If
            If Check5.Value = 1 Then
                rs.Open "delete from tb_stu", cnn, adOpenKeyset, adLockOptimistic
            End If
        Next Counter
    End If
    MsgBox "初始化完成!", , "系统提示"
    ProgressBar1.Visible = False
    ProgressBar1.Value = ProgressBar1.Min
End Sub
Private Sub Cmd_end_Click()
    Unload Me
    Frm_main.Show
End Sub

Private Sub Cmd_start_Click()
    Frame1.Enabled = True: Cmd_creat.Enabled = True
End Sub