inoutkindfm.dfm

来自「群星医药系统源码」· DFM 代码 · 共 415 行 · 第 1/2 页

    Height = 24
    Action = ActRefresh
    Caption = #21047#26032'(&R)'
    Color = 15791348
    HighlightColor = 16026986
    HotTrack = True
    HotTrackColor = 3983359
    ParentColor = False
    TabOrder = 6
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000FF00FFA57573
      A57573A57573A57573A57573A57573A57573A57573A57573A57573A57573A575
      73A575738C5D5AFF00FFFF00FFAD827BFFE7CE009A00FFE7C6FFE7C6D6CF948C
      C36B9CCB84E7D3ADFFDFB5FFD7ADFFD7ADFFD7AD8C5D5AFF00FFFF00FFAD827B
      FFEFDE009A008CC36B4AB642009A00009A00009A00009A0073B652FFDFB5FFDF
      B5FFD7AD8C5D5AFF00FFFF00FFB5827BFFEFDE009A00009A00009A00009A0000
      9A00009A00009A00009A0073B652FFDFB5FFD7AD8C5D5AFF00FFFF00FFB5827B
      FFEFDE009A00009A00009A00009A0029B2298CC36B73B652089610009A00D6CF
      94FFDFB58C5D5AFF00FFFF00FFBD9284FFF3E7009A00009A00009A00009A008C
      C36BFFE7CEFFE7CEEFDBB542AA314AB642FFDFB58C5D5AFF00FFFF00FFC6927B
      FFF3E7009A00009A00009A00009A00009A00009A00FFE7CEFFE7CEEFDBB529B2
      29FFDFB59C6563FF00FFFF00FFC6927B7BD373FFFBEFFFF3E7FFF3E7FFF3E7FF
      E7CEFFE7CEFFE7CEFFE7CEFFE7C6FFE7C6FFE7C69C6563FF00FFFF00FFCE9A84
      7BD373D6DBA5FFFBEFFFFBEFFFF3E7009A00009A00009A00009A00009A00FFE7
      CEFFE7C69C6563FF00FFFF00FFCE9A84DEE7C6089610DEE7C6FFFBEFFFFBEFEF
      E3DE29B229009A00009A00009A00FFEFDEFFE7CEA56D6BFF00FFFF00FFCE9A84
      FFFFFF4AB642009A007BD373DEE7C6DEE7C64AB642009A00009A00009A00FFE7
      CEFFE7CEA57573FF00FFFF00FFD6A684FFFFFFD6F3C6009A00009A00009A0000
      9A00009A00009A00009A00FFAEADEFBEB5FFAEADA57573FF00FFFF00FFD6A684
      FFFFFFFFFFFFA5CB94009A00009A00009A00009A00009A0010AE21B57D73B57D
      73B57D73A57573FF00FFFF00FFDEAE94FFFFFFFFFFFFFFFFFFDEE3DE7BD3734A
      B6424AB6429CCB84EFE3DEB57D73FFBE63CE9A63CE9A84FF00FFFF00FFDEB68C
      FFFFFFFFFFFFFFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F3F7F7F3F7B57D73D6A6
      84D6A684FF00FFFF00FFFF00FFF7BE94E7AE84E7AE84E7AE84E7AE84E7AE84E7
      AE84E7AE84E7AE84E7AE84B57D73D6A684FF00FFFF00FFFF00FF}
  end
  object RzBitBtn1: TRzBitBtn
    Left = 222
    Top = 245
    Width = 90
    Height = 24
    Action = ActExit
    Caption = #36864#20986'(&X)'
    Color = 15791348
    HighlightColor = 16026986
    HotTrack = True
    HotTrackColor = 3983359
    ParentColor = False
    TabOrder = 7
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000C40E0000C40E00001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
      7777777770777777777777770077777777777770307777777777770330777777
      77770033300000000777703330FF07777777703300FF07777477703330FF0777
      4477703330FF07744444703330FF07444444703330FF0774444470330FFF0777
      44777030FFFF07777477700FFFFF077777777000000007777777}
  end
  object xDBGridEh1: TxDBGridEh
    Left = 0
    Top = 18
    Width = 203
    Height = 258
    Hint = #21452#20987#21487#36864#20986'...'
    Align = alLeft
    DataSource = DsInOutKind
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 8
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = xDBGridEh1DblClick
    RowColorsUse = True
    RowColor1 = 16772846
    Columns = <
      item
        EditButtons = <>
        FieldName = 'KindID'
        Footers = <>
        Width = 56
      end
      item
        EditButtons = <>
        FieldName = 'KindName'
        Footers = <>
        Width = 114
      end>
  end
  object edName: TRzEdit
    Left = 207
    Top = 80
    Width = 118
    Height = 20
    FrameHotStyle = fsBump
    FrameStyle = fsBump
    FrameVisible = True
    MaxLength = -1
    ReadOnly = True
    TabOnEnter = True
    TabOrder = 2
  end
  object edId: TRzNumericEdit
    Left = 207
    Top = 40
    Width = 118
    Height = 20
    Text = '0'
    Alignment = taLeftJustify
    FrameHotStyle = fsBump
    FrameStyle = fsBump
    FrameVisible = True
    MaxLength = -1
    TabOnEnter = True
    TabOrder = 1
    Max = 100000.000000000000000000
    Min = 1.000000000000000000
    DisplayFormat = '0'
  end
  object CdsInOutKind: TckClientDataSet
    Aggregates = <>
    IndexFieldNames = 'KindId'
    Params = <>
    ProviderName = 'DspInOutKind'
    OnNewRecord = CdsInOutKindNewRecord
    OnReconcileError = CdsInOutKindReconcileError
    Left = 56
    Top = 100
    object CdsInOutKindInOut: TIntegerField
      DisplayLabel = #20986#20837#26041#24335
      FieldName = 'InOut'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsInOutKindKindID: TIntegerField
      DisplayLabel = #26041#24335'ID'
      FieldName = 'KindID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CdsInOutKindKindName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'KindName'
    end
  end
  object DsInOutKind: TDataSource
    DataSet = CdsInOutKind
    Left = 48
    Top = 168
  end
  object ActionList1: TActionList
    Left = 120
    Top = 100
    object ActRefresh: TModlAction
      Category = 'Module'
      Caption = #21047#26032'(&R)'
      OnExecute = ActRefreshExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActNew: TModlAction
      Category = 'Module'
      Caption = #26032#22686'(&N)'
      OnExecute = ActNewExecute
      Flag2 = 0
      Remark = 'I'
    end
    object ActModify: TModlAction
      Category = 'Module'
      Caption = #20462#25913'(&M)'
      Flag2 = 0
      Remark = 'M'
    end
    object ActDel: TModlAction
      Category = 'Module'
      Caption = #21024#38500'(&D)'
      OnExecute = ActDelExecute
      Flag2 = 0
      Remark = 'D'
    end
    object ActSave: TModlAction
      Category = 'Module'
      Caption = #20445#23384'(&S)'
      OnExecute = ActSaveExecute
      Flag2 = 0
      Remark = 'M'
    end
    object ActExit: TModlAction
      Category = 'Module'
      Caption = #36864#20986'(&X)'
      OnExecute = ActExitExecute
      Flag2 = 0
      Remark = 'E'
    end
  end
end