main.frm

能分班系统采用Z线分班方法：即由系统自动抽签(也可由班主任抽签)

VERSION 5.00
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "ACTSKIN4.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form MAIN 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "智能分班系统"
   ClientHeight    =   5220
   ClientLeft      =   45
   ClientTop       =   615
   ClientWidth     =   6735
   Icon            =   "MAIN.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5220
   ScaleWidth      =   6735
   StartUpPosition =   2  '屏幕中心
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access 2000;"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   615
      Left            =   1680
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   7530
      Visible         =   0   'False
      Width           =   1305
   End
   Begin ACTIVESKINLibCtl.Skin Skin1 
      Left            =   7140
      OleObjectBlob   =   "MAIN.frx":08CA
      Top             =   120
   End
   Begin MSComDlg.CommonDialog CMD1 
      Left            =   5190
      Top             =   7710
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu MEMAIA 
      Caption         =   "数据操作"
      Begin VB.Menu MENEW 
         Caption         =   "新建分班数据"
      End
      Begin VB.Menu MEEDIT 
         Caption         =   "修改分班数据"
      End
      Begin VB.Menu NC45 
         Caption         =   "-"
      End
      Begin VB.Menu GGWER5T 
         Caption         =   "退出程序"
      End
   End
   Begin VB.Menu MELOAD 
      Caption         =   "执行智能分班"
      Begin VB.Menu MEUBX 
         Caption         =   "班级数限制"
         Begin VB.Menu EMEERT 
            Caption         =   "男女与分数平衡"
         End
         Begin VB.Menu SGFH 
            Caption         =   "分数平衡"
         End
         Begin VB.Menu EMASDF 
            Caption         =   "分数高低分配"
         End
      End
      Begin VB.Menu EMSDH 
         Caption         =   "每班人数限制"
         Begin VB.Menu DRTR 
            Caption         =   "男女与分数平衡"
         End
         Begin VB.Menu HFJTY 
            Caption         =   "分数平衡"
         End
         Begin VB.Menu DFH 
            Caption         =   "分数高低分配"
         End
      End
   End
   Begin VB.Menu MESET 
      Caption         =   "设置"
      Begin VB.Menu MEMPASS 
         Caption         =   "设置密码"
      End
      Begin VB.Menu SETSCHOOL 
         Caption         =   "设置校名"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu MEBATOFG 
      Caption         =   "关于程序"
      Begin VB.Menu MEPRO 
         Caption         =   "关于程序"
      End
      Begin VB.Menu MEZHNA 
         Caption         =   "关于作者"
      End
   End
End
Attribute VB_Name = "MAIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim SHFileOp As SHFILEOPSTRUCT

Private Sub Command1_Click()

End Sub

Private Sub DFH_Click()
    On Error Resume Next

    CMD1.FileName = ""
    CMD1.InitDir = App.Path
    CMD1.Flags = cdlOFNHideReadOnly
    CMD1.Filter = "NHB库内文件(*.NHB)|*.NHB|"
    CMD1.ShowOpen
    If CMD1.FileName = "" Then
        Me.Enabled = True
        Exit Sub
    Else

        FRMD.Show 1, MAIN

    End If
End Sub

Private Sub DRTR_Click()
    On Error Resume Next

    CMD1.FileName = ""
    CMD1.InitDir = App.Path
    CMD1.Flags = cdlOFNHideReadOnly
    CMD1.Filter = "NHB库内文件(*.NHB)|*.NHB|"
    CMD1.ShowOpen
    If CMD1.FileName = "" Then
        Me.Enabled = True
        Exit Sub
    Else

        FRMF.Show 1, MAIN

    End If
End Sub

Private Sub EMASDF_Click()
    On Error Resume Next

    CMD1.FileName = ""
    CMD1.InitDir = App.Path
    CMD1.Flags = cdlOFNHideReadOnly
    CMD1.Filter = "NHB库内文件(*.NHB)|*.NHB|"
    CMD1.ShowOpen
    If CMD1.FileName = "" Then
        Me.Enabled = True
        Exit Sub
    Else

        FRMA.Show 1, MAIN

    End If
End Sub

Private Sub EMEERT_Click()
    On Error Resume Next

    CMD1.FileName = ""
    CMD1.InitDir = App.Path
    CMD1.Flags = cdlOFNHideReadOnly
    CMD1.Filter = "NHB库内文件(*.NHB)|*.NHB|"
    CMD1.ShowOpen
    If CMD1.FileName = "" Then
        Me.Enabled = True
        Exit Sub
    Else

        FRMC.Show 1, MAIN

    End If
End Sub

Private Sub Form_Load()
    On Error Resume Next
    sca.Show
    sca.Hide
    If App.PrevInstance Then
        MsgBox "程序已经被运行了！"
        End
    End If

    Skin1.ApplySkin Me.hwnd

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'MELOAD.Visible = False

If Button = 2 Then PopupMenu MELOAD
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    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
    FormUnload True
End Sub

Private Sub GGWER5T_Click()
    On Error Resume Next
    Unload Me
End Sub

Private Sub HFJTY_Click()
    On Error Resume Next

    CMD1.FileName = ""
    CMD1.InitDir = App.Path
    CMD1.Flags = cdlOFNHideReadOnly
    CMD1.Filter = "NHB库内文件(*.NHB)|*.NHB|"
    CMD1.ShowOpen
    If CMD1.FileName = "" Then
        Me.Enabled = True
        Exit Sub
    Else

        FRME.Show 1, MAIN

    End If
End Sub

Private Sub MEEDIT_Click()
    On Error Resume Next
    Me.Enabled = False
    CMD1.CancelError = True
    On Error GoTo 32755
    CMD1.InitDir = App.Path
    CMD1.Flags = cdlOFNHideReadOnly
    CMD1.Filter = "NHB数据文件(*.NHB)|*.NHB|"
    CMD1.FilterIndex = 2
    CMD1.ShowOpen
    DoEvents
    FRMedit.Show
32755:
    Me.Enabled = True
    Exit Sub
End Sub

Private Sub MEMPASS_Click()
    On Error Resume Next
    FRMPASS.Show 1, MAIN
End Sub

Private Sub MENEW_Click()
    On Error Resume Next
    On Error Resume Next
    SHFileOp.wFunc = FO_DELETE
    SHFileOp.pFrom = App.Path & "\TEMP\*.*"
    SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION + FOF_SILENT
    Call SHFileOperation(SHFileOp)
    Me.Enabled = False
    frmnew.Show
End Sub


Private Sub MEPRO_Click()

    On Error Resume Next
    FRMAbout.Show
End Sub

Private Sub MEZHNA_Click()
    On Error Resume Next
    ABOUTaa.Show 1
End Sub

Private Sub SETSCHOOL_Click()
    On Error Resume Next

    Me.Enabled = False
    Frmschname.Show
End Sub

Private Sub SGFH_Click()
    On Error Resume Next

    CMD1.FileName = ""
    CMD1.InitDir = App.Path
    CMD1.Flags = cdlOFNHideReadOnly
    CMD1.Filter = "NHB库内文件(*.NHB)|*.NHB|"
    CMD1.ShowOpen
    If CMD1.FileName = "" Then
        Me.Enabled = True
        Exit Sub
    Else

        FRMB.Show 1, MAIN

    End If
End Sub