main.frm

大型商业学分统计系统原代码说明 1.如果在向导设置班级数为8时,此数值为班级总数

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 
   Caption         =   "学分统计系统  <法尔胜光电技术研究中心>"
   ClientHeight    =   5520
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   7440
   Icon            =   "Main.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   5520
   ScaleWidth      =   7440
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComDlg.CommonDialog CMD2 
      Left            =   1860
      Top             =   5730
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComDlg.CommonDialog CMD1 
      Left            =   6210
      Top             =   4740
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin ACTIVESKINLibCtl.Skin Skin1 
      Left            =   4890
      OleObjectBlob   =   "Main.frx":08CA
      Top             =   4500
   End
   Begin VB.Menu FILE 
      Caption         =   "数据"
      Begin VB.Menu LAOD 
         Caption         =   "载入数据"
      End
      Begin VB.Menu NC12 
         Caption         =   "-"
      End
      Begin VB.Menu NEW 
         Caption         =   "新建数据"
      End
      Begin VB.Menu EDIT 
         Caption         =   "修改数据"
      End
      Begin VB.Menu NC1 
         Caption         =   "-"
      End
      Begin VB.Menu EXIT 
         Caption         =   "退出程序"
      End
   End
   Begin VB.Menu SET 
      Caption         =   "设置"
      Begin VB.Menu SCHOOL 
         Caption         =   "设置校名"
         Visible         =   0   'False
      End
      Begin VB.Menu NC15 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu KSLX 
         Caption         =   "考试类型设置"
      End
      Begin VB.Menu NJLX 
         Caption         =   "年级类型设置"
      End
      Begin VB.Menu KMLX 
         Caption         =   "科目类型设置"
      End
      Begin VB.Menu NC2 
         Caption         =   "-"
      End
      Begin VB.Menu SXZH 
         Caption         =   "三项之和设置"
      End
      Begin VB.Menu BFS 
         Caption         =   "百分数设置"
      End
      Begin VB.Menu NC453 
         Caption         =   "-"
      End
      Begin VB.Menu AWERPassword 
         Caption         =   "登陆口令设置"
      End
   End
   Begin VB.Menu DATA 
      Caption         =   "数据安全"
      Begin VB.Menu AUTO_SAVE 
         Caption         =   "数据备份(自动)"
      End
      Begin VB.Menu GHOST_AUTO 
         Caption         =   "数据恢复(自动)"
      End
      Begin VB.Menu nc4 
         Caption         =   "-"
      End
      Begin VB.Menu SAVE 
         Caption         =   "指定目录备份"
      End
      Begin VB.Menu GHOST 
         Caption         =   "指定目录恢复"
      End
   End
   Begin VB.Menu TOOL 
      Caption         =   "数据处理"
      Begin VB.Menu ACCESS 
         Caption         =   "导出为网页文档"
         Begin VB.Menu SXJHDATA 
            Caption         =   "三项之和数据"
         End
         Begin VB.Menu BDJHFX 
            Caption         =   "班级综合分析"
         End
      End
      Begin VB.Menu FMUEXECL 
         Caption         =   "导出为EXCEL格式"
         Begin VB.Menu MNUEC 
            Caption         =   "三项之和报表"
         End
         Begin VB.Menu MEUZHASD 
            Caption         =   "班级综合报表"
         End
         Begin VB.Menu FMUFX 
            Caption         =   "分数分析报表"
         End
         Begin VB.Menu FUMNC 
            Caption         =   "名次分析报表"
         End
      End
      Begin VB.Menu nc5 
         Caption         =   "-"
      End
      Begin VB.Menu DFYGDS 
         Caption         =   "EXCEL生成NHB格式"
      End
      Begin VB.Menu NC567345 
         Caption         =   "-"
      End
      Begin VB.Menu TOOL2 
         Caption         =   "分数统一变更"
      End
      Begin VB.Menu TOOL3 
         Caption         =   "分数填写表"
      End
      Begin VB.Menu NC6 
         Caption         =   "-"
      End
      Begin VB.Menu KSLXBG 
         Caption         =   "考试类型变更"
      End
      Begin VB.Menu KSLXHY 
         Caption         =   "考试类型还原"
      End
      Begin VB.Menu NC66546 
         Caption         =   "-"
      End
      Begin VB.Menu TU45634 
         Caption         =   "高级数据搜索"
      End
   End
   Begin VB.Menu OUT 
      Caption         =   "报表输出"
      Begin VB.Menu XSMC 
         Caption         =   "各班名次统计表"
      End
      Begin VB.Menu FSTJ 
         Caption         =   "各班分数统计表"
      End
      Begin VB.Menu WETR 
         Caption         =   "各班单科目报表"
      End
      Begin VB.Menu serye4 
         Caption         =   "自定义显示报表"
      End
      Begin VB.Menu NC7 
         Caption         =   "-"
      End
      Begin VB.Menu BJXF 
         Caption         =   "班级总分前X名(分数)"
      End
      Begin VB.Menu BJXM 
         Caption         =   "班级总分前X名(名次)"
      End
      Begin VB.Menu NC562452 
         Caption         =   "-"
      End
      Begin VB.Menu NJXF 
         Caption         =   "年级总分前X名(分数)"
      End
      Begin VB.Menu NJXM 
         Caption         =   "年级总分前X名(名次)"
      End
      Begin VB.Menu NC8 
         Caption         =   "-"
      End
      Begin VB.Menu TKBJX 
         Caption         =   "单科班级X名"
      End
      Begin VB.Menu TKNJX 
         Caption         =   "单科年级X名"
      End
      Begin VB.Menu NC9 
         Caption         =   "-"
      End
      Begin VB.Menu SXZHBB 
         Caption         =   "三项之和报表(一)"
      End
      Begin VB.Menu SXZHBBA 
         Caption         =   "三项之和报表(二)"
      End
      Begin VB.Menu SXZHBBAA 
         Caption         =   "三项之和报表(三)"
      End
      Begin VB.Menu MYSELF 
         Caption         =   "自定义三项报表"
      End
      Begin VB.Menu NC44 
         Caption         =   "-"
      End
      Begin VB.Menu BJZH 
         Caption         =   "班级综合报表"
      End
      Begin VB.Menu MYSE 
         Caption         =   "自定义综合报表"
      End
      Begin VB.Menu NC10 
         Caption         =   "-"
      End
      Begin VB.Menu FXBST 
         Caption         =   "分数报送条"
      End
      Begin VB.Menu MZBST 
         Caption         =   "名次报送条"
      End
      Begin VB.Menu dfg56gh 
         Caption         =   "自定义报送条"
      End
      Begin VB.Menu BC455 
         Caption         =   "-"
      End
      Begin VB.Menu ER5 
         Caption         =   "总分分数段人数"
      End
      Begin VB.Menu fha 
         Caption         =   "科目分数段人数"
      End
      Begin VB.Menu NC456345 
         Caption         =   "-"
      End
      Begin VB.Menu KZFP 
         Caption         =   "考场自动分配"
      End
      Begin VB.Menu RASDFGT 
         Caption         =   "自动分班处理"
      End
      Begin VB.Menu NC56783 
         Caption         =   "-"
      End
      Begin VB.Menu ASDF34GR 
         Caption         =   "打印全年级名单"
      End
      Begin VB.Menu TERTERT5 
         Caption         =   "打印全班级名单"
      End
      Begin VB.Menu NC92345634 
         Caption         =   "-"
      End
      Begin VB.Menu DFG34 
         Caption         =   "全年级分数报表"
      End
      Begin VB.Menu SDFGET34 
         Caption         =   "全年级名次报表"
      End
      Begin VB.Menu FHRTRYFRGH 
         Caption         =   "全年级自定义报表"
      End
   End
   Begin VB.Menu SKIN 
      Caption         =   "更换皮肤"
      Begin VB.Menu SKN1 
         Caption         =   "效果一"
         Index           =   0
      End
      Begin VB.Menu SKN1 
         Caption         =   "效果二"
         Index           =   1
      End
      Begin VB.Menu SKN1 
         Caption         =   "效果三"
         Index           =   2
      End
      Begin VB.Menu SKN1 
         Caption         =   "效果四"
         Index           =   3
      End
      Begin VB.Menu SKN1 
         Caption         =   "效果五"
         Index           =   4
      End
      Begin VB.Menu SKN1 
         Caption         =   "效果六"
         Index           =   5
      End
      Begin VB.Menu SKN1 
         Caption         =   "效果七"
         Index           =   6
      End
      Begin VB.Menu SKN1 
         Caption         =   "效果八"
         Index           =   7
      End
      Begin VB.Menu SKN1 
         Caption         =   "效果九"
         Index           =   8
      End
      Begin VB.Menu SKN1 
         Caption         =   "默认效果"
         Checked         =   -1  'True
         Index           =   9
      End
   End
   Begin VB.Menu TOOLS 
      Caption         =   "附增工具集"
      Visible         =   0   'False
      Begin VB.Menu pyglst 
         Caption         =   "评语管理系统"
         Visible         =   0   'False
      End
      Begin VB.Menu OPLA 
         Caption         =   "打开播放器"
      End
      Begin VB.Menu ftsdfe4 
         Caption         =   "英汉互译"
         Visible         =   0   'False
      End
      Begin VB.Menu OPEA 
         Caption         =   "系统颜色提取"
      End
   End
   Begin VB.Menu ABOUT 
      Caption         =   "关于"
      Begin VB.Menu OPHE 
         Caption         =   "打开帮助"
         Visible         =   0   'False
      End
      Begin VB.Menu REG 
         Caption         =   "软件注册"
         Visible         =   0   'False
      End
      Begin VB.Menu ABOUT1 
         Caption         =   "关于程序"
      End
      Begin VB.Menu NC66 
         Caption         =   "-"
         Visible         =   0   'False
      End
      Begin VB.Menu asrt 
         Caption         =   "关于作者"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu emmas 
      Caption         =   "memlf"
      Visible         =   0   'False
      Begin VB.Menu MA 
         Caption         =   "载入数据"
      End
      Begin VB.Menu MEC 
         Caption         =   "新建数据"
      End
      Begin VB.Menu MEB 
         Caption         =   "修改数据"
      End
      Begin VB.Menu NC6665 
         Caption         =   "-"
      End
      Begin VB.Menu mesg 
         Caption         =   "名次统计表"
      End
      Begin VB.Menu gu 
         Caption         =   "分数统计表"
      End
      Begin VB.Menu jass 
         Caption         =   "三项之和报表"
      End
      Begin VB.Menu nc45622