系统初始化.frm

学生教材管理系统:对学校书库进销存进行管理的系统

VERSION 5.00
Begin VB.Form 系统初始化 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "系统初始化"
   ClientHeight    =   3975
   ClientLeft      =   885
   ClientTop       =   1080
   ClientWidth     =   7620
   Icon            =   "系统初始化.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3975
   ScaleWidth      =   7620
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   3915
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   7575
      Begin VB.CommandButton Command1 
         Caption         =   "初始化"
         Height          =   450
         Left            =   1560
         TabIndex        =   17
         Top             =   3240
         Width           =   2535
      End
      Begin VB.CommandButton Command2 
         Caption         =   "退出"
         Height          =   450
         Left            =   4380
         TabIndex        =   16
         Top             =   3240
         Width           =   2535
      End
      Begin VB.Frame Frame3 
         Height          =   855
         Left            =   120
         TabIndex        =   15
         Top             =   2940
         Width           =   7335
      End
      Begin VB.Frame Frame2 
         Caption         =   "原始数据表"
         Height          =   2235
         Left            =   60
         TabIndex        =   2
         Top             =   660
         Width           =   7455
         Begin VB.CheckBox Check12 
            Caption         =   "学生教材费支出总表"
            Height          =   435
            Left            =   4980
            TabIndex        =   14
            Top             =   1680
            Value           =   1  'Checked
            Width           =   2055
         End
         Begin VB.CheckBox Check11 
            Caption         =   "班级教材费结算清单"
            Height          =   435
            Left            =   4980
            TabIndex        =   13
            Top             =   1200
            Value           =   1  'Checked
            Width           =   1995
         End
         Begin VB.CheckBox Check10 
            Caption         =   "学生基本情况表"
            Height          =   375
            Left            =   4980
            TabIndex        =   12
            Top             =   720
            Width           =   1695
         End
         Begin VB.CheckBox Check9 
            Caption         =   "学生收费表"
            Height          =   435
            Left            =   4980
            TabIndex        =   11
            Top             =   240
            Value           =   1  'Checked
            Width           =   1575
         End
         Begin VB.CheckBox Check8 
            Caption         =   "学生选修课教材费支出情况表"
            Height          =   315
            Left            =   1860
            TabIndex        =   10
            Top             =   1740
            Value           =   1  'Checked
            Width           =   2715
         End
         Begin VB.CheckBox Check7 
            Caption         =   "学生专业课教材费支出情况表"
            Height          =   315
            Left            =   1860
            TabIndex        =   9
            Top             =   1260
            Value           =   1  'Checked
            Width           =   2775
         End
         Begin VB.CheckBox Check6 
            Caption         =   "学生专业课教材情况表"
            Height          =   315
            Left            =   1860
            TabIndex        =   8
            Top             =   780
            Value           =   1  'Checked
            Width           =   2115
         End
         Begin VB.CheckBox Check5 
            Caption         =   "学生选修课教材情况表"
            Height          =   315
            Left            =   1860
            TabIndex        =   7
            Top             =   300
            Value           =   1  'Checked
            Width           =   2115
         End
         Begin VB.CheckBox Check4 
            Caption         =   "教材库存表"
            Height          =   315
            Left            =   120
            TabIndex        =   6
            Top             =   1740
            Width           =   1275
         End
         Begin VB.CheckBox Check3 
            Caption         =   "教材出库表"
            Height          =   315
            Left            =   120
            TabIndex        =   5
            Top             =   1260
            Value           =   1  'Checked
            Width           =   1275
         End
         Begin VB.CheckBox Check2 
            Caption         =   "教材入库表"
            Height          =   315
            Left            =   120
            TabIndex        =   4
            Top             =   780
            Value           =   1  'Checked
            Width           =   1275
         End
         Begin VB.CheckBox Check1 
            Caption         =   "教材征订表"
            Height          =   315
            Left            =   120
            TabIndex        =   3
            Top             =   300
            Value           =   1  'Checked
            Width           =   1275
         End
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "注意：系统初始化将清空系统数据"
         Height          =   180
         Left            =   60
         TabIndex        =   1
         Top             =   240
         Width           =   2700
      End
   End
End
Attribute VB_Name = "系统初始化"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim cnn As ADODB.Connection
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=学生教材管理系统.mdb;Persist Security Info=False"
    Dim sql As String
    aa = MsgBox("确定清空数据表吗?", 32 + 1, "系统初始化")
    If aa = 1 Then
    If Check1.Value = 1 Then
       sql = "delete   from 教材征订表"
       Set rs = cnn.Execute(sql)
    End If
    If Check2.Value = 1 Then
       sql = "delete  from 教材入库表 "
       Set rs = cnn.Execute(sql)
    End If
    If Check3.Value = 1 Then
       sql = "delete  from 教材出库表 "
       Set rs = cnn.Execute(sql)
    End If
    If Check4.Value = 1 Then
       sql = "delete  from 教材库存表 "
       Set rs = cnn.Execute(sql)
    End If
    If Check5.Value = 1 Then
       sql = "delete  from 学生选修课教材情况表 "
       Set rs = cnn.Execute(sql)
    End If
    If Check6.Value = 1 Then
       sql = "delete  from 学生专业课教材情况表 "
       Set rs = cnn.Execute(sql)
    End If
    If Check7.Value = 1 Then
       sql = "delete  from 学生专业课教材费支出情况表 "
       Set rs = cnn.Execute(sql)
    End If
    If Check8.Value = 1 Then
       sql = "delete from 学生选修课教材费支出情况表 "
       Set rs = cnn.Execute(sql)
    End If
    If Check9.Value = 1 Then
       sql = "delete  from 学生收费表"
       Set rs = cnn.Execute(sql)
    End If
    If Check10.Value = 1 Then
       sql = "delete from 学生基本情况表 "
       Set rs = cnn.Execute(sql)
    End If
    If Check11.Value = 1 Then
       sql = "delete from 班级教材费结算清单"
       Set rs = cnn.Execute(sql)
    End If
    If Check12.Value = 1 Then
       sql = "delete from 学生教材费支出总表 "
       Set rs = cnn.Execute(sql)
    End If
    cnn.Close
    MsgBox " 原始数据表清空结束! ", vbOKOnly + vbInformation, "系统初始化"
    End If
    
End Sub

Private Sub Command2_Click()
    
    Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
    主窗体.Enabled = True
End Sub