sys_accessctrl.dfm

一个MRPII系统源代码版本

inherited Frm_Sys_AccessCtrl: TFrm_Sys_AccessCtrl
  Left = 284
  Top = 170
  Caption = #29992#25143#26435#38480#32500#25252
  ClientHeight = 466
  ClientWidth = 712
  OldCreateOrder = True
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 184
    Top = 47
    Width = 78
    Height = 12
    Caption = #26435#38480#21015#34920'(&L)'#65306
    FocuScontrol = Grid1
  end
  object Label5: TLabel
    Left = 450
    Top = 46
    Width = 90
    Height = 12
    Caption = #24555#36895#23450#20301#32534#30721':mn'
  end
  object Grid1: TStringGrid
    Left = 184
    Top = 69
    Width = 504
    Height = 382
    ColCount = 3
    DefaultRowHeight = 20
    FixedCols = 0
    RowCount = 10
    Options = [goFixedVertLine, goFixedHorzLine, gOvertLine, goHorzLine, goRangeSelect, goDrawFocusSelected]
    TabOrder = 0
    OnDblClick = Grid1DblClick
    OnDrawCell = Grid1DrawCell
    OnEnter = Grid1Enter
    OnKeyDown = Grid1KeyDown
    OnKeyPress = Grid1KeyPress
    ColWidths = (
      118
      285
      69)
  end
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 712
    Height = 30
    Align = alTop
    AutoSize = True
    TabOrder = 1
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 69
      Height = 22
      Align = alRight
      AutoSize = True
      Caption = 'ToolBar1'
      EdgeBOrders = []
      Flat = True
      Images = Frm_Sys_Global.ImageList
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object tlbtn_Copy: TToolButton
        Left = 0
        Top = 0
        Hint = #22797#21046#20182#20154#26435#38480'(Ctrl+C)'
        ImageIndex = 3
        OnClick = tlbtn_CopyClick
      end
      object tb_givemodule: TToolButton
        Left = 23
        Top = 0
        Hint = #27169#22359#26435#38480#22797#21046'(Ctrl+P)'
        Caption = 'tb_givemodule'
        ImageIndex = 23
        OnClick = tb_givemoduleClick
      end
      object tlbtn_exit: TToolButton
        Left = 46
        Top = 0
        Hint = #36864#20986'(ESc)'
        ImageIndex = 10
        OnClick = tlbtn_exitClick
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 9
    Top = 64
    Width = 162
    Height = 286
    Caption = #26465#20214
    TabOrder = 2
    object Label3: TLabel
      Left = 6
      Top = 83
      Width = 48
      Height = 12
      Caption = #29992#25143'(&U):'
      FocuScontrol = cmbbx_user
    end
    object Label2: TLabel
      Left = 6
      Top = 187
      Width = 48
      Height = 12
      Caption = #27169#22359'(&M):'
      FocuScontrol = cmbbx_Module
    end
    object Label4: TLabel
      Left = 6
      Top = 135
      Width = 30
      Height = 12
      Caption = #32844#21153':'
      Visible = False
    end
    object lbl_Duty: TLabel
      Left = 42
      Top = 135
      Width = 72
      Height = 12
      AutoSize = False
      Visible = False
    end
    object Label6: TLabel
      Left = 8
      Top = 21
      Width = 48
      Height = 12
      Caption = #37096#38376'(&D):'
      FocuScontrol = cmbbx_Dept
    end
    object Label7: TLabel
      Left = 5
      Top = 161
      Width = 30
      Height = 12
      Caption = #23703#20301':'
      Visible = False
    end
    object lbl_Post: TLabel
      Left = 41
      Top = 161
      Width = 6
      Height = 12
      Visible = False
    end
    object cmbbx_user: TComboBox
      Left = 6
      Top = 103
      Width = 146
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      OnChange = cmbbx_Change
    end
    object cmbbx_Module: TComboBox
      Left = 6
      Top = 205
      Width = 145
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      OnChange = cmbbx_Change
    end
    object btn_ok: TButton
      Left = 42
      Top = 250
      Width = 65
      Height = 21
      Caption = #30830#23450'(&O)'
      TabOrder = 3
      OnClick = btn_okClick
    end
    object cmbbx_Dept: TComboBox
      Left = 8
      Top = 41
      Width = 143
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = cmbbx_Change
    end
  end
  object ckbx_usermodule: TCheckBox
    Left = 20
    Top = 368
    Width = 109
    Height = 15
    Caption = #21487#20197#20351#29992#27169#22359'(&A)'
    TabOrder = 3
    OnClick = ckbx_usermoduleClick
  end
  object edt_quickid: TEdit
    Left = 544
    Top = 41
    Width = 108
    Height = 20
    Enabled = False
    TabOrder = 4
  end
  object AdoQry_Tmp1: TAdoQuery
    Parameters = <>
    Left = 256
    Top = 344
  end
  object AdoQry_Tmp2: TAdoQuery
    Parameters = <>
    Left = 296
    Top = 344
  end
  object AdoQry_Tmp3: TAdoQuery
    Parameters = <>
    Left = 288
    Top = 384
  end
end