frmsetkm1.frm

1.如果在向导设置班级数为8时,此数值为班级总数

VERSION 5.00
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "ACTSKIN4.OCX"
Object = "{D76D7130-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSFLEX7D.OCX"
Begin VB.Form FRMSETKM1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "设置科目"
   ClientHeight    =   4320
   ClientLeft      =   45
   ClientTop       =   615
   ClientWidth     =   3690
   Icon            =   "FRMSETKM1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4320
   ScaleWidth      =   3690
   StartUpPosition =   2  '屏幕中心
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access 2000;"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   405
      Left            =   1350
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   7200
      Width           =   1395
   End
   Begin ACTIVESKINLibCtl.Skin Skin1 
      Left            =   1500
      OleObjectBlob   =   "FRMSETKM1.frx":08CA
      Top             =   3840
   End
   Begin VSFlex7DAOCtl.VSFlexGrid VSFlexGrid1 
      Align           =   4  'Align Right
      Bindings        =   "FRMSETKM1.frx":4ADB9
      Height          =   4320
      Left            =   15
      TabIndex        =   0
      Top             =   0
      Width           =   3675
      _cx             =   6482
      _cy             =   7620
      _ConvInfo       =   -1
      Appearance      =   0
      BorderStyle     =   0
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MousePointer    =   0
      BackColor       =   -2147483643
      ForeColor       =   16711680
      BackColorFixed  =   14803425
      ForeColorFixed  =   -2147483630
      BackColorSel    =   -2147483635
      ForeColorSel    =   -2147483634
      BackColorBkg    =   14803425
      BackColorAlternate=   -2147483643
      GridColor       =   14803425
      GridColorFixed  =   14803425
      TreeColor       =   -2147483632
      FloodColor      =   192
      SheetBorder     =   -2147483642
      FocusRect       =   1
      HighLight       =   1
      AllowSelection  =   -1  'True
      AllowBigSelection=   -1  'True
      AllowUserResizing=   1
      SelectionMode   =   1
      GridLines       =   1
      GridLinesFixed  =   2
      GridLineWidth   =   1
      Rows            =   50
      Cols            =   10
      FixedRows       =   1
      FixedCols       =   1
      RowHeightMin    =   0
      RowHeightMax    =   0
      ColWidthMin     =   0
      ColWidthMax     =   0
      ExtendLastCol   =   0   'False
      FormatString    =   ""
      ScrollTrack     =   -1  'True
      ScrollBars      =   3
      ScrollTips      =   -1  'True
      MergeCells      =   0
      MergeCompare    =   0
      AutoResize      =   -1  'True
      AutoSizeMode    =   0
      AutoSearch      =   0
      AutoSearchDelay =   2
      MultiTotals     =   -1  'True
      SubtotalPosition=   1
      OutlineBar      =   0
      OutlineCol      =   0
      Ellipsis        =   0
      ExplorerBar     =   0
      PicturesOver    =   0   'False
      FillStyle       =   1
      RightToLeft     =   0   'False
      PictureType     =   0
      TabBehavior     =   0
      OwnerDraw       =   0
      Editable        =   0
      ShowComboButton =   2
      WordWrap        =   0   'False
      TextStyle       =   0
      TextStyleFixed  =   0
      OleDragMode     =   0
      OleDropMode     =   0
      DataMode        =   0
      VirtualData     =   -1  'True
      ComboSearch     =   3
      AutoSizeMouse   =   -1  'True
      FrozenRows      =   0
      FrozenCols      =   0
      AllowUserFreezing=   3
      BackColorFrozen =   255
      ForeColorFrozen =   0
      WallPaperAlignment=   9
   End
   Begin VB.Menu TOOLS 
      Caption         =   "数据操作"
      Begin VB.Menu DEL 
         Caption         =   "删除数据"
      End
      Begin VB.Menu INPUT 
         Caption         =   "添加数据"
      End
   End
End
Attribute VB_Name = "FRMSETKM1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim rs As Recordset
Dim STR As String
Private Sub DEL_Click()
    On Error GoTo deldata
    MsgBox "请您删除记录前，选对要删除的对象，否则数据库可能被您意处删除其它数据！！！", vbOKOnly, "警告！"
    Select Case MsgBox("是否真的删除记录吗？", vbOKCancel, "警告！")
        Case vbOK
            Data1.Recordset.Delete
            Data1.Recordset.MoveNext
            If Data1.Recordset.EOF = True Then
                Data1.Recordset.MovePrevious
            End If
            Data1.Refresh
        Case Else
            Cancel = True
    End Select
deldata:
    Select Case Err.Number
        Case 3021
            MsgBox "没有找到要删除的对象！", 32, "提示"
    End Select
End Sub
Private Sub Form_Activate()
    On Error Resume Next
    Data1.DatabaseName = App.Path & "\SET.PAS"
    Data1.RecordSource = "科目"
    Data1.Refresh
End Sub
Private Sub Form_Load()
    On Error Resume Next
    '    Skin1.LoadSkin App.Path & "\SKIN\5.sk"
    Skin1.ApplySkin Me.hwnd
    Data1.DatabaseName = App.Path & "\SET.PAS"
    Data1.RecordSource = "科目"
    Data1.Refresh
End Sub
'下面的代码可以关闭所有打开的 DAO workspace，并释放所占的内存。
Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    FRMkm.Enabled = True
    Dim ws As Workspace
    Dim db As Database
    Dim rs As Recordset
    For Each ws In Workspaces
        For Each db In ws.Databases
            For Each rs In db.Recordsets
                rs.Close
                Set rs = Nothing
            Next
            db.Close
            Set db = Nothing
        Next
        ws.Close
        Set ws = Nothing
    Next
End Sub
Private Sub INPUT_Click()
    On Error Resume Next

    FRMKM11.Show
    Me.Enabled = False
End Sub
Private Sub VSFlexGrid1_Click()
    On Error Resume Next
    Data1.Recordset.AbsolutePosition = VSFlexGrid1.Row - 1
    '点击表格时，同时将DATA1的数据同步显示，确保准确删除数据
End Sub