unit1.~dfm

Delphi做的权限管理的例子 可以供作系统的朋友研究学习

        Height = 17
        Caption = 'DBCheckBox1'
        DataField = 'QX3'
        DataSource = DataSource1
        Enabled = False
        TabOrder = 5
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object DBCheckBox4: TDBCheckBox
        Left = 75
        Top = 172
        Width = 97
        Height = 17
        Caption = 'DBCheckBox1'
        DataField = 'QX4'
        DataSource = DataSource1
        Enabled = False
        TabOrder = 6
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object DBCheckBox5: TDBCheckBox
        Left = 75
        Top = 196
        Width = 97
        Height = 17
        Caption = 'DBCheckBox1'
        DataField = 'QX5'
        DataSource = DataSource1
        Enabled = False
        TabOrder = 7
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object DBComboBox1: TDBComboBox
        Left = 75
        Top = 76
        Width = 48
        Height = 20
        DataField = 'QXDJ'
        DataSource = DataSource1
        Enabled = False
        ItemHeight = 12
        Items.Strings = (
          '0'
          '1'
          '2'
          '3'
          '4'
          '5')
        TabOrder = 8
      end
      object Panel4: TPanel
        Left = 188
        Top = 217
        Width = 160
        Height = 27
        BevelOuter = bvLowered
        TabOrder = 9
        Visible = False
        object Button9: TButton
          Left = 4
          Top = 3
          Width = 75
          Height = 21
          Caption = #27491#30830
          TabOrder = 0
          OnClick = Button9Click
        end
        object Button10: TButton
          Left = 80
          Top = 3
          Width = 75
          Height = 21
          Caption = #25918#24323
          TabOrder = 1
          OnClick = Button10Click
        end
      end
      object Button7: TButton
        Left = 267
        Top = 196
        Width = 75
        Height = 21
        Caption = #20462#25913
        TabOrder = 10
        OnClick = Button7Click
      end
      object Button4: TButton
        Left = 267
        Top = 156
        Width = 75
        Height = 21
        Caption = #26356#26032#33756#21333
        TabOrder = 11
        OnClick = Button4Click
      end
      object B1: TButton
        Left = 272
        Top = 8
        Width = 75
        Height = 21
        Caption = #26435#38480'1'
        TabOrder = 12
      end
      object B2: TButton
        Left = 272
        Top = 32
        Width = 75
        Height = 21
        Caption = #26435#38480'2'
        TabOrder = 13
      end
      object B3: TButton
        Left = 272
        Top = 56
        Width = 75
        Height = 21
        Caption = #26435#38480'3'
        TabOrder = 14
      end
      object Button8: TButton
        Left = 240
        Top = 112
        Width = 107
        Height = 21
        Caption = #25511#21046#19979#19968#27493#25805#20316
        TabOrder = 15
        OnClick = Button8Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = #26435#38480'4'
      ImageIndex = 2
    end
    object TabSheet4: TTabSheet
      Caption = #26435#38480'5'
      ImageIndex = 3
    end
  end
  object DBGrid1: TDBGrid
    Left = 3
    Top = 1
    Width = 169
    Height = 277
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #29992#25143#32534#30721
        Title.Alignment = taCenter
        Width = 60
        Visible = True
      end
      item
        Alignment = taCenter
        Expanded = False
        FieldName = #29992#25143#21517#31216
        Title.Alignment = taCenter
        Width = 70
        Visible = True
      end>
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source='#23398#29983#19982#20465#20048#37096'.' +
      'mdb;Persist Security Info=True'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 8
    Top = 64
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOTable1AfterScroll
    TableName = #29992#25143#26435#38480
    Left = 40
    Top = 64
    object ADOTable1DSDesigner: TWideStringField
      FieldName = #29992#25143#32534#30721
      Size = 5
    end
    object ADOTable1DSDesigner2: TWideStringField
      FieldName = #29992#25143#21517#31216
      Size = 10
    end
    object ADOTable1DSDesigner3: TWideStringField
      FieldName = #29992#25143#23494#30721
      Size = 10
    end
    object ADOTable1DSDesigner4: TDateTimeField
      FieldName = #27880#20876#26085#26399
    end
    object ADOTable1DSDesigner5: TBlobField
      FieldName = #29992#25143#29031#29255
    end
    object ADOTable1QX1: TBooleanField
      FieldName = 'QX1'
    end
    object ADOTable1QX2: TBooleanField
      FieldName = 'QX2'
    end
    object ADOTable1QX3: TBooleanField
      FieldName = 'QX3'
    end
    object ADOTable1QX4: TBooleanField
      FieldName = 'QX4'
    end
    object ADOTable1QX5: TBooleanField
      FieldName = 'QX5'
    end
    object ADOTable1QXDJ: TIntegerField
      FieldName = 'QXDJ'
    end
    object ADOTable1qx: TWideStringField
      FieldName = 'qx'
      Size = 50
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 72
    Top = 64
  end
  object PopupMenu1: TPopupMenu
    Left = 372
    Top = 71
    object N1: TMenuItem
      Caption = #26356#25442
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = #22797#21046
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Caption = #31896#36148
      OnClick = N5Click
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object N6: TMenuItem
      Caption = #28165#38500
      OnClick = N6Click
    end
  end
  object OPD1: TOpenPictureDialog
    Filter = 
      'All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.jpg;*.jpeg;*.bmp;*.' +
      'ico;*.emf;*.wmf|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*' +
      '.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp'
    Left = 372
    Top = 39
  end
  object MainMenu1: TMainMenu
    Left = 376
    Top = 104
    object N11: TMenuItem
      Caption = #21151#33021'1'
    end
    object N21: TMenuItem
      Caption = #21151#33021'2'
    end
    object N31: TMenuItem
      Caption = #21151#33021'3'
      object AAAAA1: TMenuItem
        Caption = 'AAAAA'
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object BBBBB1: TMenuItem
        Caption = 'BBBBB'
      end
    end
    object X1: TMenuItem
      Caption = #21151#33021'X'
      object N41: TMenuItem
        Caption = #21151#33021'4'
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object N51: TMenuItem
        Caption = #21151#33021'5'
      end
    end
    object N9: TMenuItem
      Caption = #20851#38381
      OnClick = N9Click
    end
  end
end