frmkshy.frm

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

VERSION 5.00
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "ACTSKIN4.OCX"
Begin VB.Form Frmkshy 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "考试类型还原"
   ClientHeight    =   840
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   2745
   Icon            =   "Frmkshy.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   840
   ScaleWidth      =   2745
   StartUpPosition =   2  '屏幕中心
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access 2000;"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   405
      Left            =   750
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   5610
      Width           =   1395
   End
   Begin VB.TextBox Text5 
      DataSource      =   "Data1"
      Height          =   525
      Left            =   900
      TabIndex        =   6
      Text            =   "Text5"
      Top             =   4080
      Width           =   1245
   End
   Begin VB.TextBox Text4 
      DataSource      =   "Data1"
      Height          =   525
      Left            =   780
      TabIndex        =   5
      Text            =   "Text4"
      Top             =   3420
      Width           =   1245
   End
   Begin VB.TextBox Text3 
      DataSource      =   "Data1"
      Height          =   525
      Left            =   840
      TabIndex        =   4
      Text            =   "Text3"
      Top             =   2850
      Width           =   1245
   End
   Begin VB.TextBox Text2 
      DataSource      =   "Data1"
      Height          =   525
      Left            =   870
      TabIndex        =   3
      Text            =   "Text2"
      Top             =   2250
      Width           =   1245
   End
   Begin VB.TextBox Text1 
      DataSource      =   "Data1"
      Height          =   525
      Left            =   870
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   1620
      Width           =   1245
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出还原"
      Height          =   465
      Left            =   210
      TabIndex        =   1
      Top             =   180
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定还原"
      Height          =   465
      Left            =   1470
      TabIndex        =   0
      Top             =   180
      Width           =   1095
   End
   Begin ACTIVESKINLibCtl.Skin Skin1 
      Left            =   1080
      OleObjectBlob   =   "Frmkshy.frx":08CA
      Top             =   30
   End
End
Attribute VB_Name = "Frmkshy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim HHVI As String
Dim db As Database
Dim rs As Recordset
Dim One As String
Dim SHFileOp As SHFILEOPSTRUCT
Private Sub Command1_Click()
    On Error Resume Next
    Select Case MsgBox("是否真的还原此数据库吗？", vbOKCancel, "警告！")
        Case vbOK
            If HHVI = One Then MsgBox "此数据未修改过", 64, "无需变更": Command1.Enabled = False: Exit Sub
            Set db = OpenDatabase(MAIN.CMD2.filename)
            db.Execute "UPDATE COM SET 代码='" & HHVI & "' WHERE 标记='名称'"
            db.Close
            Set db = Nothing
            SHFileOp.wFunc = FO_COPY
            SHFileOp.pFrom = MAIN.CMD2.filename
            SHFileOp.pTo = App.Path & "\DATA\" & HHVI & ".NHB"
            SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR + FOF_NOCONFIRMATION
            Call SHFileOperation(SHFileOp)
            MsgBox "数据成功还原!", 32, "提示"
            Select Case MsgBox("是否删除原数据库吗？", vbOKCancel, "警告！")
                Case vbOK
                    SHFileOp.wFunc = FO_DELETE
                    SHFileOp.pFrom = MAIN.CMD2.filename
                    SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
                    Call SHFileOperation(SHFileOp)
                    MsgBox "成功删除原数据!", 32, "提示"
                    MAIN.CMD2.filename = ""
                    Unload Me
                    Cancel = True
                    Unload Me
            End Select
            Cancel = True
            Unload Me
    End Select
End Sub
Private Sub Command2_Click()
    On Error Resume Next

    Unload Me
End Sub
Private Sub Form_Load()
    On Error Resume Next
    MAIN.Enabled = False
    '    Skin1.LoadSkin App.Path & "\SKIN\1.sk"
    Skin1.ApplySkin Me.hwnd
    If MAIN.CMD2.filename = "" Then MsgBox "未载入更改数据对象", 32, "提示": Command1.Enabled = False: Exit Sub
    Set db = OpenDatabase(MAIN.CMD2.filename)
    Set rs = db.OpenRecordset("SELECT * FROM COM WHERE 标记='名称'")
    One = rs![代码]
    db.Close
    Text1.DataField = "学年1"
    Text2.DataField = "学年2"
    Text3.DataField = "学期"
    Text4.DataField = "年级"
    Text5.DataField = "考试名称"
    Data1.DatabaseName = MAIN.CMD2.filename
    Data1.RecordSource = "年级"
    Data1.Refresh
    HHVI = Text1.Text & "至" & Text2.Text & Text3.Text & Text4.Text & Text5.Text
    Text6 = HHVI
    Data1.Database.Close
End Sub
'下面的代码可以关闭所有打开的 DAO workspace，并释放所占的内存。
Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    MAIN.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