rightmanageunit.dfm

来自「一个用delphi 开发的商场销售系统 涵盖很多功能」· DFM 代码 · 共 96 行

object RightManageForm: TRightManageForm
  Left = 312
  Top = 284
  Width = 437
  Height = 299
  Caption = 'RightManageForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 429
    Height = 225
    Align = alTop
    TabOrder = 0
    object LB_name: TListBox
      Left = 25
      Top = 16
      Width = 168
      Height = 185
      ItemHeight = 13
      Items.Strings = (
        #31649#29702#21592
        #19968#32423
        #20108#32423
        #19977#32423
        #22235#32423
        #38480#21046#32423)
      TabOrder = 0
      OnClick = LB_nameClick
    end
    object CLB_rights: TCheckListBox
      Left = 216
      Top = 16
      Width = 193
      Height = 185
      ItemHeight = 13
      Items.Strings = (
        #26597#30475
        #22686#21152
        #32534#36753
        #21024#38500
        #39640#32423
        #25253#34920#25171#21360
        #25171#21360#39044#35272
        #31995#32479#35774#32622)
      TabOrder = 1
      OnClick = CLB_rightsClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 225
    Width = 429
    Height = 47
    Align = alClient
    TabOrder = 1
    object OKBtn: TButton
      Left = 112
      Top = 6
      Width = 75
      Height = 25
      Caption = #30830#23450'[&O]'
      TabOrder = 0
      OnClick = OKBtnClick
    end
    object CancelBtn: TButton
      Left = 216
      Top = 6
      Width = 75
      Height = 25
      Caption = #21462#28040'[&C]'
      TabOrder = 1
      OnClick = CancelBtnClick
    end
  end
  object query_data: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'HWSHOPDATA'
    Constrained = True
    Left = 24
    Top = 232
  end
end