【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“C初始化.frm”一文，供大家参考学习!

    VERSION 5.00
    Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
    Begin VB.Form frminlitialize 
       Caption         =   "初始化"
       ClientHeight    =   2925
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   5970
       LinkTopic       =   "Form1"
       ScaleHeight     =   2925
       ScaleWidth      =   5970
       StartUpPosition =   3  '窗口缺省
       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          =   1560
             Index           =   1
             Left            =   240
             TabIndex        =   1
             Top             =   360
             Width           =   5040
             Begin VB.CheckBox Check6 
                Caption         =   "排课信息"
                Height          =   240
                Left            =   3240
                TabIndex        =   10
                Top             =   840
                Width           =   1275
             End
             Begin VB.CheckBox Check5 
                Caption         =   "时间段信息"
                Height          =   240
                Left            =   1680
                TabIndex        =   9
                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
       End
    End
    Attribute VB_Name = "frminlitialize"
    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()
    '退出操作
        frmOCSS.Enabled = True
        Unload Me
    End Sub
    Private Sub Form_Unload(Cancel As Integer)
    '退出操作
        frmOCSS.Enabled = True
        Unload Me
    End Sub