u_main.dfm

一个简单的学籍管理软件

object Fm_Main: TFm_Main
  Left = 98
  Top = 115
  AutoScroll = False
  Caption = '力得中小学学籍管理系统'
  ClientHeight = 328
  ClientWidth = 578
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MMenu
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 14
  object MainStateBar: TStatusBar
    Left = 0
    Top = 309
    Width = 578
    Height = 19
    Panels = <
      item
        Width = 280
      end
      item
        Width = 120
      end
      item
        Width = 250
      end>
    SimplePanel = False
  end
  object MMenu: TMainMenu
    Images = ImgList16
    Left = 63
    Top = 8
    object M01: TMenuItem
      Caption = ' 学籍管理(&F)'
      ImageIndex = 35
      object M0101: TMenuItem
        Caption = '学生档案管理(&A)'
        ImageIndex = 28
        OnClick = M0101Click
      end
      object Z0101: TMenuItem
        Caption = '-'
      end
      object M0102: TMenuItem
        Caption = '学生收费情况登记(&V)'
        OnClick = M0102Click
      end
      object M0103: TMenuItem
        Caption = '学籍变更登记(&M)'
        OnClick = M0103Click
      end
      object M0104: TMenuItem
        Caption = '学生综合考评'
        object M010401: TMenuItem
          Caption = '考勤登记(&Q)'
          ImageIndex = 34
          OnClick = M010401Click
        end
        object M010402: TMenuItem
          Caption = '奖惩登记(&W)'
          OnClick = M010402Click
        end
        object M010403: TMenuItem
          Caption = '品行评价登记(&S)'
          OnClick = M010403Click
        end
        object M010404: TMenuItem
          Caption = '身体状况登记(&B)'
          OnClick = M010404Click
        end
        object M010405: TMenuItem
          Caption = '个性发展评价(&G)'
          OnClick = M010405Click
        end
        object M010406: TMenuItem
          Caption = '参加活动情况(&D)'
          OnClick = M010406Click
        end
        object M010407: TMenuItem
          Caption = '一般性评价登记(&M)'
          OnClick = M010407Click
        end
      end
      object M0105: TMenuItem
        Caption = '学期末评语管理(&S)'
        OnClick = M0105Click
      end
      object Z0104: TMenuItem
        Caption = '-'
      end
      object M0106: TMenuItem
        Caption = '注销并重新登记...'
        ImageIndex = 22
        OnClick = M0106Click
      end
      object M0107: TMenuItem
        Caption = '退出(&X) '
        ImageIndex = 4
        ShortCut = 32856
        OnClick = M0107Click
      end
    end
    object M02: TMenuItem
      Caption = '学生成绩管理(&R)'
      object M0201: TMenuItem
        Caption = '课程管理(&C)'
        ImageIndex = 43
        OnClick = M0201Click
      end
      object M0202: TMenuItem
        Caption = '年级课程设置(&S)'
        OnClick = M0202Click
      end
      object M0203: TMenuItem
        Caption = '考试设置(&T)'
        OnClick = M0203Click
      end
      object Z0201: TMenuItem
        Caption = '-'
      end
      object M0204: TMenuItem
        Caption = '成绩登记(&G)'
        OnClick = M0204Click
      end
    end
    object M03: TMenuItem
      Caption = '查询与统计(&S)'
      object M0301: TMenuItem
        Caption = '学生档案查询(&A)'
        ImageIndex = 5
        OnClick = M0301Click
      end
      object M0303: TMenuItem
        Caption = '学生考勤统计表'
        OnClick = M0303Click
      end
      object Z0301: TMenuItem
        Caption = '-'
      end
      object M0304: TMenuItem
        Caption = '各科成绩排序表(&G)'
        ImageIndex = 16
        OnClick = M0304Click
      end
      object Z0302: TMenuItem
        Caption = '-'
        Visible = False
      end
    end
    object M04: TMenuItem
      Caption = '学期参数与期末处理(&G)'
      object M0401: TMenuItem
        Caption = '初始化参数设置(&S)'
        ImageIndex = 29
        OnClick = M0401Click
      end
      object Z0401: TMenuItem
        Caption = '-'
      end
      object M0402: TMenuItem
        Caption = '开始新学期(&N)'
        OnClick = M0402Click
      end
      object M0403: TMenuItem
        Caption = '新学年班级设置(&C)'
        OnClick = M0403Click
      end
      object M0404: TMenuItem
        Caption = '入学成绩科目设置(&K)'
        OnClick = M0404Click
      end
      object M0405: TMenuItem
        Caption = '新学期学费设置(&G)'
        OnClick = M0405Click
      end
      object Z0402: TMenuItem
        Caption = '-'
      end
      object M0406: TMenuItem
        Caption = '期末评语条目管理(&Y)'
        OnClick = M0406Click
      end
      object M0407: TMenuItem
        Caption = '品行评价指标管理(&L)'
        OnClick = M0407Click
      end
      object M0408: TMenuItem
        Caption = '个性发展评价内容管理(&Z)'
        OnClick = M0408Click
      end
    end
    object M05: TMenuItem
      Caption = '系统管理(&T)'
      object M0501: TMenuItem
        Caption = '操作人员管理(&U)'
        ImageIndex = 33
        OnClick = M0501Click
      end
      object M0502: TMenuItem
        Caption = '当前操作人员密码更改(&G)'
        ImageIndex = 22
        OnClick = M0502Click
      end
      object M0503: TMenuItem
        Caption = '系统参数设置(&S)'