upermiss.dfm

在打沙场用的最简单

inherited frmpermiss: Tfrmpermiss
  Left = 262
  Top = 110
  Height = 380
  Caption = #26435#38480#31649#29702
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 490
    Height = 24
    ButtonHeight = 21
    ButtonWidth = 31
    Caption = 'ToolBar1'
    Flat = True
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Hint = #25171#38283
      Action = acopen
      Caption = #25171#38283
    end
    object ToolButton2: TToolButton
      Left = 31
      Top = 0
      Action = acadd
    end
    object ToolButton3: TToolButton
      Left = 62
      Top = 0
      Action = acmodify
    end
    object ToolButton4: TToolButton
      Left = 93
      Top = 0
      Action = acdelete
    end
    object ToolButton5: TToolButton
      Left = 124
      Top = 0
      Action = acprint
    end
    object ToolButton6: TToolButton
      Left = 155
      Top = 0
      Action = accounteract
    end
    object ToolButton7: TToolButton
      Left = 186
      Top = 0
      Hint = #23529#26680
      Action = acconfirm
      Caption = #23529#26680
    end
    object ToolButton8: TToolButton
      Left = 217
      Top = 0
      Hint = #32080#28165
      Action = acfinish
      Caption = #32080#28165
    end
    object ToolButton9: TToolButton
      Left = 248
      Top = 0
      Hint = #20840#36984
      HelpType = htKeyword
      Action = acall
      Caption = #20840#36984
    end
    object ToolButton10: TToolButton
      Left = 279
      Top = 0
      Action = acclear
    end
    object ToolButton11: TToolButton
      Left = 310
      Top = 0
      Action = acsave
    end
  end
  object Grid: TDBGridEh
    Left = 0
    Top = 24
    Width = 490
    Height = 92
    Align = alTop
    Ctl3D = True
    DataSource = DSgrid
    FixedColor = 12835543
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = #32048#26126#39636
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 2
    Columns = <
      item
        EditButtons = <>
        FieldName = 'fid'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #24207#34399
      end
      item
        EditButtons = <>
        FieldName = 'fusercode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #29992#25143#21517#31216
      end
      item
        EditButtons = <>
        FieldName = 'fformcode'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #34920#21333#21517#31216
      end
      item
        EditButtons = <>
        FieldName = 'fuserid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fformid'
        Footers = <>
        Title.Alignment = taCenter
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'fopen'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25171#24320
      end
      item
        EditButtons = <>
        FieldName = 'fadd'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26032#22686
      end
      item
        EditButtons = <>
        FieldName = 'fmodify'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20462#25913
      end
      item
        EditButtons = <>
        FieldName = 'fdelete'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21034#38500
      end
      item
        EditButtons = <>
        FieldName = 'fprint'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25171#21360
      end
      item
        EditButtons = <>
        FieldName = 'fconfirm'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #30830#35748
      end
      item
        EditButtons = <>
        FieldName = 'ffinish'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #23436#25104
      end
      item
        EditButtons = <>
        FieldName = 'fcounteract'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21462#28040
      end>
  end
  object treeuser: TTreeView
    Left = 0
    Top = 116
    Width = 233
    Height = 237
    Align = alLeft
    Images = ImageListuser
    Indent = 19
    PopupMenu = PopupMenu1
    TabOrder = 2
    OnChange = treeuserChange
  end
  object treeform: TTreeView
    Left = 233
    Top = 116
    Width = 257
    Height = 237
    Align = alClient
    Images = ImageListform
    Indent = 19
    TabOrder = 3
    OnChange = treeformChange
  end
  object ActionList: TActionList
    Left = 116
    Top = 230
    object a01: TAction
      Caption = #26032#22686#29992'?'
      Hint = #26032#22686#29992'?'
      OnExecute = a01Execute
    end
    object a02: TAction
      Caption = #20462#25913#29992'?'
      Hint = #20462#25913#29992'?'
      OnExecute = a02Execute
    end
    object a03: TAction
      Caption = '?'#38500#29992'?'
      Hint = '?'#38500#29992'?'
      OnExecute = a03Execute
    end
    object a04: TAction
      Caption = '?'#38480'?'#25215
      Hint = '?'#38480'?'#25215
    end
    object a05: TAction
      Caption = #32676'??'#26009
      Hint = #32676'??'#26009
      OnExecute = a05Execute
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 44
    Top = 223
    object N1: TMenuItem
      Action = a01
      Caption = #26032#22686#29992#25142
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Action = a02
      Caption = #20462#25913#29992#25142
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Action = a03
      Caption = #21034#38500#29992#25142
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Action = a04
      Caption = #27402#38480#32380#25215
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N9: TMenuItem
      Action = a05
      Caption = #32676#32068#36039#26009
    end
  end
  object ImageListuser: TImageList
    Left = 80
    Top = 222
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000104210421042104210421042
      1042104210421042000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000010421042104210421042