role_m.dfm

DELPHI计算机科学系教务管理系统,带论文设计,不错的参考

object RoleForm: TRoleForm
  Left = 155
  Top = 132
  Width = 782
  Height = 570
  Caption = #35282#33394#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 774
    Height = 17
    Align = alTop
    Color = clMoneyGreen
    TabOrder = 0
    object Label4: TLabel
      Left = 657
      Top = 1
      Width = 45
      Height = 13
      Caption = '<<<   >>>'
      OnClick = Label4Click
    end
  end
  object Panel2: TPanel
    Left = 576
    Top = 17
    Width = 198
    Height = 526
    Align = alRight
    TabOrder = 1
    object fcTreeView: TfcTreeView
      Left = 1
      Top = 1
      Width = 196
      Height = 524
      Align = alClient
      Indent = 19
      Items.StreamVersion = 1
      Items.Data = {00000000}
      TabOrder = 0
      OnToggleCheckbox = fcTreeViewToggleCheckbox
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 17
    Width = 576
    Height = 526
    Align = alClient
    Color = clInfoBk
    TabOrder = 2
    object Panel4: TPanel
      Left = 1
      Top = 481
      Width = 574
      Height = 44
      Align = alBottom
      BorderStyle = bsSingle
      Color = clMoneyGreen
      TabOrder = 0
      object BitBtn1: TBitBtn
        Left = 91
        Top = 8
        Width = 65
        Height = 25
        Caption = #22686#21152
        ModalResult = 7
        TabOrder = 0
        OnClick = BitBtn1Click
        Glyph.Data = {
          E6000000424DE60000000000000076000000280000000F0000000E0000000100
          04000000000070000000130B0000130B00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8880888888888888888088888888888888808888880008888880888888070888
          8880888888070888888088800007000088808880777777708880888000070000
          8880888888070888888088888807088888808888880008888880888888888888
          88808888888888888880}
      end
      object BitBtn2: TBitBtn
        Left = 155
        Top = 8
        Width = 65
        Height = 25
        Caption = #21024#38500
        TabOrder = 1
        OnClick = BitBtn2Click
        Glyph.Data = {
          DE000000424DDE0000000000000076000000280000000D0000000D0000000100
          0400000000006800000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
          F000FF000000000FF000FF0FFFFFFF0FF000FF000000000FF000FFFFFFFFFFFF
          F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
          F000}
      end
      object BitBtn3: TBitBtn
        Left = 219
        Top = 8
        Width = 65
        Height = 25
        Caption = #20462#25913
        TabOrder = 2
        OnClick = BitBtn3Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
          000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
          00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
          F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
          0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
          FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
          FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
          0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
          00333377737FFFFF773333303300000003333337337777777333}
        NumGlyphs = 2
      end
      object BitBtn4: TBitBtn
        Left = 283
        Top = 8
        Width = 65
        Height = 25
        Caption = #21462#28040
        TabOrder = 3
        OnClick = BitBtn4Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
          3333333777333777FF3333993333339993333377FF3333377FF3399993333339
          993337777FF3333377F3393999333333993337F777FF333337FF993399933333
          399377F3777FF333377F993339993333399377F33777FF33377F993333999333
          399377F333777FF3377F993333399933399377F3333777FF377F993333339993
          399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
          99333773FF3333777733339993333339933333773FFFFFF77333333999999999
          3333333777333777333333333999993333333333377777333333}
        NumGlyphs = 2
      end
      object BitBtn5: TBitBtn
        Left = 347
        Top = 8
        Width = 65
        Height = 25
        Caption = #20445#23384
        TabOrder = 4
        OnClick = BitBtn5Click
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888880000000000000880330000008803088033000000880308803300000088
          0308803300000000030880333333333333088033000000003308803088888888
          0308803088888888030880308888888803088030888888880308803088888888
          0008803088888888080880000000000000088888888888888888}
      end
      object BitBtn6: TBitBtn
        Left = 411
        Top = 8
        Width = 65
        Height = 25
        Caption = #36864#20986
        TabOrder = 5
        OnClick = BitBtn6Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
          33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
          993337777F777F3377F3393999707333993337F77737333337FF993399933333
          399377F3777FF333377F993339903333399377F33737FF33377F993333707333
          399377F333377FF3377F993333101933399377F333777FFF377F993333000993
          399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
          99333773FF777F777733339993707339933333773FF7FFF77333333999999999
          3333333777333777333333333999993333333333377777333333}
        NumGlyphs = 2
      end
    end
    object Panel5: TPanel
      Left = 1
      Top = 377
      Width = 574
      Height = 104
      Align = alBottom
      BorderStyle = bsSingle
      TabOrder = 1
      object Label1: TLabel
        Left = 48
        Top = 27
        Width = 70
        Height = 13
        AutoSize = False
        Caption = #35282#33394#32534#21495#65306
      end
      object Label2: TLabel
        Left = 248
        Top = 28
        Width = 70
        Height = 13
        AutoSize = False
        Caption = #35282#33394#21517#31216#65306
      end
      object Label3: TLabel
        Left = 58
        Top = 67
        Width = 42
        Height = 13
        AutoSize = False
        Caption = #22791#27880#65306
      end
      object Edit1: TEdit
        Left = 112
        Top = 24
        Width = 121
        Height = 21
        TabOrder = 0
      end
      object Edit2: TEdit
        Left = 320
        Top = 24
        Width = 121
        Height = 21
        TabOrder = 1
        OnKeyPress = Edit2KeyPress
      end
      object Edit3: TEdit
        Left = 112
        Top = 64
        Width = 329
        Height = 21
        TabOrder = 2
      end
    end
    object Panel6: TPanel
      Left = 1
      Top = 1
      Width = 574
      Height = 376
      Align = alClient
      TabOrder = 2
      object DBGrid1: TDBGrid
        Left = 1
        Top = 1
        Width = 572
        Height = 374
        Align = alClient
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDrawColumnCell = DBGrid1DrawColumnCell
        Columns = <
          item
            Expanded = False
            FieldName = 'Rno'
            Title.Caption = #35282#33394#32534#21495
            Width = 143
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Rname'
            Title.Caption = #35282#33394#21517#31216
            Width = 180
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Rmemo'
            Title.Caption = #35282#33394#35828#26126
            Width = 371
            Visible = True
          end>
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 120
    Top = 97
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT  Rno, Rname, Rmemo'
      'FROM TRole ')
    Left = 216
    Top = 137
  end
end