unit1.dfm

Raize的RzCheckTree权限管理 本程序使用Delphi7和Raize4.1控件里的RzCheckTree实现权限管理 请下载Raize安装后使用本程序 access2000作为数据库

object Form1: TForm1
  Left = 331
  Top = 288
  Width = 623
  Height = 429
  BorderIcons = [biSystemMenu]
  Caption = 'Raize'#19979#30340'RzCheckTree '#35835#21462#19982#35843#32622'Menu'#33756#21333#26435#38480
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object RzCheckTree: TRzCheckTree
    Left = 432
    Top = 0
    Width = 169
    Height = 377
    Indent = 19
    SelectionPen.Color = clBtnShadow
    StateImages = RzCheckTree.CheckImages
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 72
    Width = 401
    Height = 233
    DataSource = DataSource
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'Code'
        Title.Alignment = taCenter
        Title.Caption = #20195#30721
        Width = 77
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Users'
        Title.Alignment = taCenter
        Title.Caption = #29992#25143
        Width = 86
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Remarks'
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Width = 187
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 442
    Top = 2
    Width = 156
    Height = 18
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 2
  end
  object ButtonSave: TButton
    Left = 336
    Top = 344
    Width = 75
    Height = 25
    Caption = #20445#23384'&S'
    TabOrder = 3
    OnClick = ButtonSaveClick
  end
  object ButtonRead: TButton
    Left = 240
    Top = 344
    Width = 89
    Height = 25
    Caption = #35835#21462#26435#38480'&R'
    TabOrder = 4
    OnClick = ButtonReadClick
  end
  object MainMenu: TMainMenu
    AutoHotkeys = maManual
    Left = 104
    Top = 224
    object N1: TMenuItem
      Caption = #19968#32423#33756#21333'1'
      object N111: TMenuItem
        Caption = #20108#32423#33756#21333'11'
      end
      object N121: TMenuItem
        Caption = #20108#32423#33756#21333'12'
      end
      object N131: TMenuItem
        Caption = #20108#32423#33756#21333'13'
      end
      object N141: TMenuItem
        Caption = #20108#32423#33756#21333'14'
      end
    end
    object N21: TMenuItem
      Caption = #19968#32423#33756#21333'2'
      object N211: TMenuItem
        Caption = #20108#32423#33756#21333'21'
      end
      object N221: TMenuItem
        Caption = #20108#32423#33756#21333'22'
      end
      object N231: TMenuItem
        Caption = #20108#32423#33756#21333'23'
      end
      object N241: TMenuItem
        Caption = #20108#32423#33756#21333'24'
      end
      object N251: TMenuItem
        Caption = #20108#32423#33756#21333'25'
      end
      object N261: TMenuItem
        Caption = #20108#32423#33756#21333'26'
      end
    end
    object N31: TMenuItem
      Caption = #19968#32423#33756#21333'3'
      object N311: TMenuItem
        Caption = #20108#32423#33756#21333'31'
      end
      object N321: TMenuItem
        Caption = #20108#32423#33756#21333'32'
      end
    end
    object N41: TMenuItem
      Caption = #19968#32423#33756#21333'4'
      object N411: TMenuItem
        Caption = #20108#32423#33756#21333'41'
      end
    end
    object N51: TMenuItem
      Caption = #19968#32423#33756#21333'5'
      object N511: TMenuItem
        Caption = #20108#32423#33756#21333'51'
      end
      object N521: TMenuItem
        Caption = #20108#32423#33756#21333'52'
      end
    end
  end
  object Conn: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Authority.mdb;Persi' +
      'st Security Info=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 160
    Top = 224
  end
  object ADOQuery: TADOQuery
    Connection = Conn
    CursorType = ctStatic
    AfterScroll = ADOQueryAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from users')
    Left = 224
    Top = 224
  end
  object DataSource: TDataSource
    DataSet = ADOQuery
    Left = 288
    Top = 224
  end
  object Temp: TADOQuery
    Connection = Conn
    Parameters = <>
    Left = 336
    Top = 224
  end
end