frmksmc1.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 FRMksmc1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "考试类型设置"
   ClientHeight    =   3795
   ClientLeft      =   45
   ClientTop       =   615
   ClientWidth     =   2820
   Icon            =   "FRMksmc1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3795
   ScaleWidth      =   2820
   StartUpPosition =   2  '屏幕中心
   Begin ACTIVESKINLibCtl.Skin Skin1 
      Left            =   1110
      OleObjectBlob   =   "FRMksmc1.frx":0312
      Top             =   3510
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access 2000;"
      DatabaseName    =   "E:\学分统计系统 3.0\SET.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   555
      Left            =   3690
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "年级"
      Top             =   5670
      Visible         =   0   'False
      Width           =   1470
   End
   Begin VSFlex7DAOCtl.VSFlexGrid VSFlexGrid1 
      Align           =   1  'Align Top
      Bindings        =   "FRMksmc1.frx":4A801
      Height          =   3795
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   2820
      _cx             =   4974
      _cy             =   6694
      _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 = "FRMksmc1"
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_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
Private Sub INPUT_Click()
    On Error Resume Next
    Dim 科目  As String
    Dim a
    科目 = InputBox("请输入新考试类型：", "添加数据")
    If 科目 = "" Then
        Exit Sub
    Else
        Set db = OpenDatabase(App.Path & "\SET.PAS")
        STR = "INSERT INTO 考试名称  (考试名称) VALUES ('" & 科目 & "')"
        db.Execute STR
        db.Close
        Data1.Refresh
    End If
End Sub
Private Sub VSFlexGrid1_Click()
    On Error Resume Next
    Data1.Recordset.AbsolutePosition = VSFlexGrid1.Row - 1
    '点击表格时，同时将DATA1的数据同步显示，确保准确删除数据
End Sub
Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    Data1.Refresh
    FrmDATA.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