formmain.dfm

Delphi数据库编程

object frmMain: TfrmMain
  Left = 263
  Top = 102
  Width = 540
  Height = 450
  Caption = #23398#29983#20449#24687#31649#29702#31995#32479
  Color = clBtnShadow
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poDesktopCenter
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu: TMainMenu
    Left = 24
    Top = 8
    object mntSystem: TMenuItem
      Caption = #31995#32479#32500#25252'(&S)'
      object mntSysDepart: TMenuItem
        Caption = #38498#31995#35774#32622'(&D)'
        OnClick = mntSysDepartClick
      end
      object mntSysClass: TMenuItem
        Caption = #29677#32423#31649#29702'(&C)'
        OnClick = mntSysClassClick
      end
      object mntSysSP: TMenuItem
        Caption = '-'
      end
      object mntSysQuit: TMenuItem
        Caption = #36864#20986#31995#32479'(&Q)'
        OnClick = mntSysQuitClick
      end
    end
    object mntStudent: TMenuItem
      Caption = #23398#29983#31649#29702'(&t)'
      object mntStudentManage: TMenuItem
        Caption = #23398#29983#31649#29702'(&M)'
        OnClick = mntStudentManageClick
      end
      object mntStudentSP: TMenuItem
        Caption = '-'
      end
      object mntStudentQuery: TMenuItem
        Caption = #23398#29983#20449#24687#26597#35810'(&Q)'
        OnClick = mntStudentQueryClick
      end
    end
    object mntEduAdmin: TMenuItem
      Caption = #25945#21153#31649#29702'(&E)'
      object mntEduChange: TMenuItem
        Caption = #23398#31821#21464#26356'(&C)'
        OnClick = mntEduChangeClick
      end
      object mntEdtReward: TMenuItem
        Caption = #22870#21169#24773#20917'(&R)'
        OnClick = mntEdtRewardClick
      end
      object mntEdtPunish: TMenuItem
        Caption = #22788#32602#24773#20917'(&P)'
        OnClick = mntEdtPunishClick
      end
    end
  end
  object dbStudent: TDatabase
    AliasName = 'StudentMIS'
    DatabaseName = 'StudentDB'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 24
    Top = 40
  end
end