c初始化.frm

这是一个机房排课系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form C初始化 
   Caption         =   "初始化"
   ClientHeight    =   2925
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5970
   LinkTopic       =   "Form1"
   ScaleHeight     =   2925
   ScaleWidth      =   5970
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame1 
      Caption         =   "初始化"
      Height          =   2775
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   5775
      Begin VB.CommandButton CmdExit 
         BackColor       =   &H00C0C0C0&
         Caption         =   "退出"
         Height          =   360
         Left            =   4080
         Style           =   1  'Graphical
         TabIndex        =   7
         Top             =   2160
         Width           =   800
      End
      Begin VB.CommandButton CmdSave 
         BackColor       =   &H00C0C0C0&
         Caption         =   "初始化"
         Height          =   360
         Left            =   2760
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   2160
         Width           =   1035
      End
      Begin VB.Frame Frame1 
         Caption         =   "数据列表"
         Height          =   1260
         Index           =   1
         Left            =   360
         TabIndex        =   1
         Top             =   720
         Width           =   4980
         Begin VB.CheckBox Check6 
            Caption         =   "排课信息"
            Height          =   240
            Left            =   3240
            TabIndex        =   12
            Top             =   840
            Width           =   1275
         End
         Begin VB.CheckBox Check5 
            Caption         =   "时间段信息"
            Height          =   240
            Left            =   1680
            TabIndex        =   11
            Top             =   840
            Width           =   1635
         End
         Begin VB.CheckBox Check3 
            Caption         =   "班级课程信息"
            Height          =   240
            Left            =   3240
            TabIndex        =   5
            Top             =   240
            Width           =   1395
         End
         Begin VB.CheckBox Check2 
            Caption         =   "课程信息"
            Height          =   240
            Left            =   1680
            TabIndex        =   4
            Top             =   285
            Width           =   1530
         End
         Begin VB.CheckBox Check1 
            Caption         =   "班级信息"
            Height          =   240
            Left            =   120
            TabIndex        =   3
            Top             =   285
            Width           =   1785
         End
         Begin VB.CheckBox Check4 
            Caption         =   "教师信息"
            Height          =   240
            Left            =   120
            TabIndex        =   2
            Top             =   840
            Width           =   1635
         End
      End
      Begin MSComctlLib.ProgressBar ProgressBar1 
         Height          =   360
         Left            =   360
         TabIndex        =   8
         Top             =   2160
         Visible         =   0   'False
         Width           =   2175
         _ExtentX        =   3836
         _ExtentY        =   635
         _Version        =   393216
         Appearance      =   1
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "警告：初始化，系统数据将全部清空。"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   960
         TabIndex        =   10
         Top             =   360
         Width           =   3615
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "警告：初始化，系统数据将全部清空。"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   990
         TabIndex        =   9
         Top             =   340
         Width           =   3735
      End
   End
End
Attribute VB_Name = "C初始化"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim SQL As String
Dim msg As String
Private Sub CmdSave_Click()
'进行初始化操作
    Dim Counnter As Integer
    ProgressBar1.Visible = True
    ProgressBar1.Max = 200
    ProgressBar1.Value = ProgressBar1.Min
    msg = MsgBox("您确实要初始化这些数据吗?", vbYesNo)
    If msg = vbNo Then Exit Sub
    For Counnter = ProgressBar1.Min To ProgressBar1.Max
        ProgressBar1.Value = Counnter
        If Check1.Value = 1 Then        '如果班级信息表被选中
        '删除全部提醒信息数据
            SQL = "delete from 班级信息表"
            Call ExecuteSQL(SQL, msg)
        End If
        If Check2.Value = 1 Then        '如果课程信息表被选中
        '删除全部通讯日志数据
            SQL = "delete from 课程信息表"
            Call ExecuteSQL(SQL, msg)
        End If
        If Check3.Value = 1 Then        '如果班级课程信息表被选中
        '删除全部群组信息数据
            SQL = "delete from 班级课程信息表"
            Call ExecuteSQL(SQL, msg)
        End If
        If Check4.Value = 1 Then        '如果教师信息表被选中
        '删除全部联系人信息数据
            SQL = "delete from 教师信息表"
            Call ExecuteSQL(SQL, msg)
        End If
        If Check5.Value = 1 Then        '如果时间段信息表被选中
        '删除全部联系人信息数据
            SQL = "delete from 时间段信息表"
            Call ExecuteSQL(SQL, msg)
        End If
        If Check6.Value = 1 Then        '如果排课信息表被选中
        '删除全部联系人信息数据
            SQL = "delete from 排课信息表"
            Call ExecuteSQL(SQL, msg)
        End If
  Next Counnter
  ProgressBar1.Visible = False
  ProgressBar1.Value = ProgressBar1.Min
End Sub
Private Sub CmdExit_Click()
'退出操作
    排课系统.Enabled = True
    Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
'退出操作
    排课系统.Enabled = True
    Unload Me
End Sub