unit1.dfm

一个简单的权限管理

object Form1: TForm1
  Left = 275
  Top = 142
  Width = 540
  Height = 344
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 532
    Height = 310
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
      object Label1: TLabel
        Left = 184
        Top = 8
        Width = 57
        Height = 15
        Alignment = taRightJustify
        AutoSize = False
        Caption = #29992#25143#32534#30721
      end
      object Label2: TLabel
        Left = 184
        Top = 32
        Width = 57
        Height = 15
        Alignment = taRightJustify
        AutoSize = False
        Caption = #29992#25143#21517#31216
      end
      object Label3: TLabel
        Left = 184
        Top = 56
        Width = 57
        Height = 15
        Alignment = taRightJustify
        AutoSize = False
        Caption = #29992#25143#23494#30721
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 1
        Width = 169
        Height = 246
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        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 Panel1: TPanel
        Left = 173
        Top = 217
        Width = 350
        Height = 30
        BevelOuter = bvLowered
        TabOrder = 1
        object Button1: TButton
          Left = 120
          Top = 4
          Width = 75
          Height = 21
          Caption = #22686#21152
          TabOrder = 0
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 196
          Top = 4
          Width = 75
          Height = 21
          Caption = #20462#25913
          TabOrder = 1
          OnClick = Button2Click
        end
        object Button3: TButton
          Left = 272
          Top = 4
          Width = 75
          Height = 21
          Caption = #21024#38500
          TabOrder = 2
          OnClick = Button3Click
        end
      end
      object DBEdit1: TDBEdit
        Left = 251
        Top = 4
        Width = 45
        Height = 20
        DataField = #29992#25143#32534#30721
        DataSource = DataSource1
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 2
      end
      object DBEdit2: TDBEdit
        Left = 251
        Top = 28
        Width = 82
        Height = 20
        DataField = #29992#25143#21517#31216
        DataSource = DataSource1
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 3
      end
      object DBEdit3: TDBEdit
        Left = 251
        Top = 52
        Width = 82
        Height = 20
        DataField = #29992#25143#23494#30721
        DataSource = DataSource1
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 4
      end
      object DBComboBox1: TDBComboBox
        Left = 251
        Top = 76
        Width = 48
        Height = 20
        DataField = 'QXDJ'
        DataSource = DataSource1
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        ItemHeight = 12
        Items.Strings = (
          '0'
          '1'
          '2'
          '3'
          '4'
          '5')
        TabOrder = 5
      end
      object DBImage1: TDBImage
        Left = 349
        Top = 3
        Width = 171
        Height = 187
        DataField = #29992#25143#29031#29255
        DataSource = DataSource1
        TabOrder = 6
      end
      object DBCheckBox1: TDBCheckBox
        Left = 251
        Top = 100
        Width = 97
        Height = 17
        Caption = 'DBCheckBox1'
        DataField = 'QX1'
        DataSource = DataSource1
        Enabled = False
        TabOrder = 7
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object DBCheckBox2: TDBCheckBox
        Left = 251
        Top = 124
        Width = 97
        Height = 17
        Caption = 'DBCheckBox1'
        DataField = 'QX2'
        DataSource = DataSource1
        Enabled = False
        TabOrder = 8
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object DBCheckBox3: TDBCheckBox
        Left = 251
        Top = 148
        Width = 97
        Height = 17
        Caption = 'DBCheckBox1'
        DataField = 'QX3'
        DataSource = DataSource1
        Enabled = False
        TabOrder = 9
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object DBCheckBox4: TDBCheckBox
        Left = 251
        Top = 172
        Width = 97
        Height = 17
        Caption = 'DBCheckBox1'
        DataField = 'QX4'
        DataSource = DataSource1
        Enabled = False
        TabOrder = 10
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object DBCheckBox5: TDBCheckBox
        Left = 251
        Top = 196
        Width = 97
        Height = 17
        Caption = 'DBCheckBox1'
        DataField = 'QX5'
        DataSource = DataSource1
        Enabled = False
        TabOrder = 11
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object Button4: TButton
        Left = 444
        Top = 193
        Width = 75
        Height = 21
        Caption = #26356#25442#29031#29255
        Enabled = False
        TabOrder = 12
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
    end
  end
  object Panel2: TPanel
    Left = 177
    Top = 272
    Width = 350
    Height = 30
    TabOrder = 1
    Visible = False
    object Button5: TButton
      Left = 120
      Top = 4
      Width = 75
      Height = 21
      Caption = #27491#30830
      TabOrder = 0
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 196
      Top = 4
      Width = 75
      Height = 21
      Caption = #25918#24323
      TabOrder = 1
      OnClick = Button6Click
    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 = 128
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOTable1AfterScroll
    TableName = #29992#25143#26435#38480
    Left = 40
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 72
    Top = 128
  end
end