main.dfm

来自「C++ Builder数据库开发经典案例解析 示例程序都是在C++ Build」· DFM 代码 · 共 279 行

object fmMain: TfmMain
  Left = 161
  Top = 111
  Width = 659
  Height = 502
  Caption = 'EIS'#25945#21153#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    D9D959500000AFFFAAA7AA00000000009F9595900000AFFFFA8AAA0000000000
    000000000000AFFFAAA7AA00000000009F9595900000AFFFFA8AAA0000000000
    DFD959500000AFFFAAA7AA00000000009F9595900000AFFFFA8AAA0000000000
    DFD959500000AFFFA7A7AA00000000009F9595900000A0F0A000000000000000
    DF911150000AAFFFAFA7AAA0000000009F000190000AAFFFFA8A7AA000000000
    DF0F01500000A0F0A0000000000000009F0801900000AFFFFA8AAA0000000000
    DF0801500000AFFFAAA7AA00000000009F0801900000AFFFFA8AAA0000000000
    DF0801500000AFFFAAA7AA00000000009F0801900000AFFFFA8AAA0000000000
    DF080150000000F0A0000000000000009F08019000000AFFFA7AA00000000000
    DF08015000000AFFAAAAA000000000009F08019000000AFFFA7AA00000000000
    DF08015000000AFFAAAAA000000000009F080190000000000000000000000000
    DF0801500000000AAAA00000000000009F0801900000000AAAA0000000000000
    DF0801500000000AAAA00000000000009F08019000000000AAA0000000000000
    DF080150000000000AA00000000000009F080190000000000000000000000000
    007F700000000000000000000000000008B8B800000000000000000000000000
    0000000000000000000000000000E00E001FE00E001FE00E001FF01E001FE00E
    001FE00E001FE00E001FE00E001FE00C000FE00C000FE00C000FE00C000FE00E
    001FE00E001FE00E001FE00E001FE00E001FE00F003FE00F003FE00F003FE00F
    003FE00F003FE00F003FE00FC0FFE00FC0FFE00FC0FFE00FC0FFE00FE0FFE00F
    F0FFE00FFFFFF01FFFFFF83FFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    00000080800080000000800080008080000080808000C0C0C0000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000D9
    D9000AFFA000009D95000AFAA00000D9D9000AFFA000009D95000F0F000000D0
    0900AFFAAA00009805000F0F000000D809000AFFA000009805000AFAA00000D8
    090000000000009805000AFFA00000D80900000000000098050000AA000000D8
    0900000A0000009D950000000000000000000000000081030000810300008103
    0000810300008001000080010000800100008103000081030000810300008103
    0000810300008187000081C7000081E70000C3FF0000}
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 112
    Top = 56
    Width = 153
    Height = 145
    Shape = bsFrame
  end
  object Bevel4: TBevel
    Left = 224
    Top = 248
    Width = 153
    Height = 105
    Shape = bsFrame
  end
  object Bevel3: TBevel
    Left = 352
    Top = 56
    Width = 153
    Height = 145
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 136
    Top = 80
    Width = 96
    Height = 16
    Cursor = crHandPoint
    Caption = #29677#32423#20449#24687#32500#25252
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label2: TLabel
    Left = 136
    Top = 122
    Width = 96
    Height = 16
    Cursor = crHandPoint
    Caption = #23398#29983#20449#24687#32500#25252
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label4: TLabel
    Left = 136
    Top = 166
    Width = 96
    Height = 16
    Cursor = crHandPoint
    Caption = #35838#31243#20449#24687#32500#25252
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label5: TLabel
    Left = 256
    Top = 292
    Width = 80
    Height = 16
    Cursor = crHandPoint
    Caption = #25171#21360#25104#32489#21333
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label7: TLabel
    Left = 376
    Top = 169
    Width = 64
    Height = 16
    Cursor = crHandPoint
    Caption = #25104#32489#36755#20837
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label9: TLabel
    Left = 376
    Top = 80
    Width = 64
    Height = 16
    Cursor = crHandPoint
    Caption = #23398#29983#36873#35838
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label10: TLabel
    Left = 376
    Top = 122
    Width = 64
    Height = 16
    Cursor = crHandPoint
    Caption = #35838#34920#26597#35810
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label1Click
  end
  object Label11: TLabel
    Left = 363
    Top = 50
    Width = 56
    Height = 14
    Caption = #25945#23398#31649#29702
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 232
    Top = 241
    Width = 56
    Height = 14
    Caption = #25253#34920#32479#35745
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel
    Left = 122
    Top = 50
    Width = 56
    Height = 14
    Caption = #22522#30784#32500#25252
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 437
    Width = 651
    Height = 19
    Panels = <
      item
        Text = #25968#25454#24211#24320#21457#32463#20856#26696#20363#35299#26512'   '#28165#21326#22823#23398#20986#29256#31038'   '#29992#25143#30331#24405#21151#33021#21644#26435#38480#31649#29702#21151#33021#21442#32771#36827#38144#23384#23454#20363
        Width = 500
      end
      item
        Width = 30
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 280
    object mnuInfo: TMenuItem
      Caption = #22522#30784#32500#25252
      object mnuClassInfo: TMenuItem
        Caption = #29677#32423#20449#24687#32500#25252
        OnClick = mnuClassInfoClick
      end
      object mnuStudentInfo: TMenuItem
        Caption = #23398#29983#20449#24687#32500#25252
        OnClick = mnuStudentInfoClick
      end
      object mnuCourseInfo: TMenuItem
        Caption = #35838#31243#20449#24687#32500#25252
        OnClick = mnuCourseInfoClick
      end
    end
    object mnuEdu: TMenuItem
      Caption = #25945#23398#31649#29702
      object mnuSelectCourse: TMenuItem
        Caption = #23398#29983#36873#35838
        OnClick = mnuSelectCourseClick
      end
      object mnuQueryCourse: TMenuItem
        Caption = #35838#34920#26597#35810
        OnClick = mnuQueryCourseClick
      end
      object mnuInputGrade: TMenuItem
        Caption = #25104#32489#36755#20837
        OnClick = mnuInputGradeClick
      end
    end
    object mnuQuery: TMenuItem
      Caption = #25253#34920#32479#35745
      object mnuPrintGrade: TMenuItem
        Caption = #25171#21360#25104#32489#21333
        OnClick = mnuPrintGradeClick
      end
    end
    object mnuExit: TMenuItem
      Caption = #36864#20986#31995#32479
      OnClick = mnuExitClick
    end
  end
end