p_gl.dfm

小学上课排课系统,非常实用,是实际使用软件

        Font.Style = []
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing]
        ParentCtl3D = False
        ParentFont = False
        PopupMenu = PopupMenu3
        TabOrder = 0
        OnDblClick = SGDblClick
        OnSelectCell = SGSelectCell
        RowHeights = (
          48
          48
          48
          48
          48
          48
          48
          48
          48)
      end
    end
    object page: TPageControl
      Left = 0
      Top = 0
      Width = 221
      Height = 284
      ActivePage = JS
      Align = alLeft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabIndex = 1
      TabOrder = 1
      OnChange = pageChange
      object BJ: TTabSheet
        Caption = #29677#32423
        object Tree1: TTreeView
          Left = 0
          Top = 0
          Width = 213
          Height = 293
          Align = alTop
          Color = 14806015
          Ctl3D = True
          HideSelection = False
          Images = ImageList1
          Indent = 19
          ParentCtl3D = False
          ReadOnly = True
          StateImages = ImageList1
          TabOrder = 0
          OnClick = Tree1Click
        end
        object GroupBox1: TGroupBox
          Left = 0
          Top = 113
          Width = 213
          Height = 140
          Align = alBottom
          Caption = #35831#36873#25321#25490#35838#20449#24687#65306
          Ctl3D = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 1
          object Label1: TLabel
            Left = 4
            Top = 28
            Width = 39
            Height = 16
            Caption = #35838#31243#65306
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label2: TLabel
            Left = 4
            Top = 56
            Width = 39
            Height = 16
            Caption = #25945#24072#65306
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object DCB_KC: TDBLookupComboBox
            Left = 48
            Top = 27
            Width = 157
            Height = 22
            Color = 14806015
            Ctl3D = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            KeyField = 'KCH'
            ListField = 'KCM'
            ListSource = dm.DS_KeCheng
            ParentCtl3D = False
            ParentFont = False
            TabOrder = 0
          end
          object DCB_JS: TDBLookupComboBox
            Left = 48
            Top = 55
            Width = 157
            Height = 22
            Color = 14806015
            Ctl3D = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            KeyField = 'JSH'
            ListField = 'JSM'
            ListSource = dm.DS_JiaoShi
            ParentCtl3D = False
            ParentFont = False
            TabOrder = 1
          end
          object Memo1: TMemo
            Left = 4
            Top = 84
            Width = 201
            Height = 53
            BorderStyle = bsNone
            Color = clBtnFace
            Ctl3D = False
            Enabled = False
            Lines.Strings = (
              '  '#27880#65306#35831#36873#25321#39#35838#30446#39#39#25945#24072#39#28982#21518#21435#35838#34920
              '          '#37324#39#21452#20987#39#35774#32622#35813#35838#34920#30340#21333#20803#26684'.'
              '          '#21024#38500#20869#23481#35831#39#21333#20987#39#21491#38190#65281)
            ParentCtl3D = False
            TabOrder = 2
          end
        end
      end
      object JS: TTabSheet
        Caption = #25945#24072
        ImageIndex = 1
        object Tree2: TTreeView
          Left = 0
          Top = 0
          Width = 213
          Height = 253
          Align = alClient
          Color = 14806015
          Ctl3D = True
          Indent = 19
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 0
        end
      end
    end
  end
  object MainMenu1: TMainMenu
    OwnerDraw = True
    Left = 428
    Top = 12
    object F1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N16: TMenuItem
        Caption = #26032#24314#23398#26399#35838#34920'(&N)'
        OnClick = N16Click
      end
      object O1: TMenuItem
        Caption = #25171#24320#23398#26399#35838#34920'(&O)'
        OnClick = O1Click
      end
      object D1: TMenuItem
        Caption = #28165#38500#23398#26399#35838#34920'(&D)'
        OnClick = D1Click
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object C1: TMenuItem
        Caption = #20851#38381#35813#23398#26399#35838#34920'(&C)'
        OnClick = C1Click
      end
    end
    object F2: TMenuItem
      Caption = #26597#35810'(&S)'
      object C2: TMenuItem
        Caption = #35838#31243#26597#35810'(&C)'
        OnClick = C2Click
      end
      object N18: TMenuItem
        Caption = '-'
      end
      object N20: TMenuItem
        Caption = #35838#26102#26597#35810
        Enabled = False
      end
    end
    object P1: TMenuItem
      Caption = #25253#34920'(&P)'
      object C3: TMenuItem
        Caption = #29677#32423#35838#34920'(&C)'
        OnClick = C3Click
      end
      object N19: TMenuItem
        Caption = '-'
      end
      object T1: TMenuItem
        Caption = #25945#24072#35838#34920'(&T)'
        Enabled = False
      end
    end
    object R1: TMenuItem
      Caption = #31995#32479#32500#25252'(&R)'
      object N24: TMenuItem
        Caption = #25968#25454#23383#20856#32500#25252'(&N)'
        OnClick = N24Click
      end
      object N25: TMenuItem
        Caption = '-'
      end
      object B1: TMenuItem
        Caption = #25968#25454#24211#22791#20221'(&B)'
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object N3: TMenuItem
        Caption = #26356#25913#23494#30721
        OnClick = N3Click
      end
      object N2: TMenuItem
        Caption = #25805#20316#21592#31649#29702'(&U)'
        OnClick = N2Click
      end
    end
    object N11: TMenuItem