formmain.dfm

Delphi数据库编程

object frmMain: TfrmMain
  Left = 360
  Top = 101
  Width = 501
  Height = 435
  Caption = #35838#31243#31649#29702#31995#32479
  Color = clAppWorkSpace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu1: TMainMenu
    Left = 112
    Top = 64
    object mntCourse: TMenuItem
      Caption = #35838#31243#31649#29702'(&C)'
      object mntCourseManage: TMenuItem
        Caption = #35838#31243#35774#32622'(&M)'
        OnClick = mntCourseManageClick
      end
      object mntCourseArrange: TMenuItem
        Caption = #35838#31243#23433#25490'(&A)'
        OnClick = mntCourseArrangeClick
      end
      object mntCourseQuery: TMenuItem
        Caption = #35838#31243#26597#35810'(&Q)'
        OnClick = mntCourseQueryClick
      end
      object mntCourseClass: TMenuItem
        Caption = #29677#32423#35838#34920'(&T)'
        OnClick = mntCourseClassClick
      end
    end
    object mntScore: TMenuItem
      Caption = #25104#32489#31649#29702'(&S)'
      object mntScoreManage: TMenuItem
        Caption = #25104#32489#24211#31649#29702'(M)'
        OnClick = mntScoreManageClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mntScoreStudent: TMenuItem
        Caption = #23398#29983#25104#32489#26597#35810'(&Q)'
        OnClick = mntScoreStudentClick
      end
      object mntScoreClass: TMenuItem
        Caption = #29677#32423#25104#32489#20998#26512'(&A)'
        OnClick = mntScoreClassClick
      end
    end
    object mntSystem: TMenuItem
      Caption = #31995#32479#32500#25252'(&M)'
      object mntSysUser: TMenuItem
        Caption = #29992#25143#31649#29702'(&U)'
        OnClick = mntSysUserClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mntSysAbout: TMenuItem
        Caption = #20851#20110'(&A)'
        OnClick = mntSysAboutClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object mntSysQuit: TMenuItem
        Caption = #36864#20986#31995#32479'(&Q)'
        OnClick = mntSysQuitClick
      end
    end
  end
  object dbCourseMIS: TDatabase
    AliasName = 'CourseMIS'
    Connected = True
    DatabaseName = 'DBCourse'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 112
    Top = 96
  end
end