providerfrm.dfm

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

              Footers = <>
              Title.TitleButton = True
              Width = 94
            end
            item
              EditButtons = <>
              FieldName = 'NearDate'
              Footers = <>
              Title.TitleButton = True
              Width = 106
            end>
        end
        object RzPanel2: TRzPanel
          Left = 674
          Top = 0
          Width = 100
          Height = 135
          Align = alRight
          BorderOuter = fsNone
          ParentColor = True
          TabOrder = 1
          object RzBitBtn5: TRzBitBtn
            Left = 9
            Top = 24
            Width = 82
            Action = ActNewProvGoods
            Caption = #22686#21152#21327#35758#21697#31181
            Color = 15791348
            HighlightColor = 16026986
            HotTrack = True
            HotTrackColor = 3983359
            ParentColor = False
            TabOrder = 0
            ImageIndex = 12
          end
          object RzBitBtn7: TRzBitBtn
            Left = 9
            Top = 60
            Width = 82
            Action = ActEditProvGoods
            Caption = #20462#25913#21327#35758#21697#31181
            Color = 15791348
            HighlightColor = 16026986
            HotTrack = True
            HotTrackColor = 3983359
            ParentColor = False
            TabOrder = 1
            ImageIndex = 14
          end
          object RzBitBtn8: TRzBitBtn
            Left = 9
            Top = 96
            Width = 82
            Action = ActDelProvGoods
            Caption = #21024#38500#21327#35758#21697#31181
            Color = 15791348
            HighlightColor = 16026986
            HotTrack = True
            HotTrackColor = 3983359
            ParentColor = False
            TabOrder = 2
            ImageIndex = 13
          end
        end
      end
      object TabSheet2: TRzTabSheet
        Caption = #20379#24212#21830#32852#31995#20154#31649#29702
        object dbgProvLinkmans: TxDBGridEh
          Left = 0
          Top = 0
          Width = 674
          Height = 135
          Align = alClient
          AllowedOperations = [alopUpdateEh]
          ColumnDefValues.Title.Alignment = taCenter
          DataSource = DsProvLinkmans
          FixedColor = clActiveBorder
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = GB2312_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -12
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghRowHighlight]
          ReadOnly = True
          RowHeight = 16
          SortLocal = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          TitleHeight = 15
          Columns = <
            item
              EditButtons = <>
              FieldName = 'LinkMan'
              Footers = <>
              Title.TitleButton = True
            end
            item
              EditButtons = <>
              FieldName = 'NickName'
              Footers = <>
              Title.TitleButton = True
            end
            item
              EditButtons = <>
              FieldName = 'Sex'
              Footers = <>
              PickList.Strings = (
                #30007
                #22899)
              Title.TitleButton = True
            end
            item
              EditButtons = <>
              FieldName = 'Birthday'
              Footers = <>
              Title.TitleButton = True
            end
            item
              EditButtons = <>
              FieldName = 'Dept'
              Footers = <>
              Title.TitleButton = True
            end
            item
              EditButtons = <>
              FieldName = 'Duty'
              Footers = <>
              Title.TitleButton = True
            end
            item
              EditButtons = <>
              FieldName = 'Address'
              Footers = <>
              Title.TitleButton = True
            end
            item
              EditButtons = <>
              FieldName = 'Tel1'
              Footers = <>
              Title.TitleButton = True
            end
            item
              EditButtons = <>
              FieldName = 'Tel2'
              Footers = <>
              Title.TitleButton = True
            end
            item
              EditButtons = <>
              FieldName = 'Mobile'
              Footers = <>
              Title.TitleButton = True
            end
            item
              EditButtons = <>
              FieldName = 'OICQ'
              Footers = <>
              Title.TitleButton = True
            end
            item
              EditButtons = <>
              FieldName = 'EMail'
              Footers = <>
              Title.TitleButton = True
            end
            item
              EditButtons = <>
              FieldName = 'Remark'
              Footers = <>
              Title.TitleButton = True
            end>
        end
        object RzPanel1: TRzPanel
          Left = 674
          Top = 0
          Width = 100
          Height = 135
          Align = alRight
          BorderOuter = fsNone
          ParentColor = True
          TabOrder = 1
          object RzBitBtn1: TRzBitBtn
            Left = 8
            Top = 24
            Width = 89
            Action = ActNewLinkman
            Caption = #26032#22686#32852#31995#20154
            Color = 15791348
            HighlightColor = 16026986
            HotTrack = True
            HotTrackColor = 3983359
            ParentColor = False
            TabOrder = 0
            ImageIndex = 12
          end
          object RzBitBtn2: TRzBitBtn
            Left = 8
            Top = 60
            Width = 89
            Action = ActEdtLinkman
            Caption = #20462#25913#32852#31995#20154
            Color = 15791348
            HighlightColor = 16026986
            HotTrack = True
            HotTrackColor = 3983359
            ParentColor = False
            TabOrder = 1
            ImageIndex = 14
          end
          object RzBitBtn3: TRzBitBtn
            Left = 8
            Top = 96
            Width = 89
            Action = ActDelLinkman
            Caption = #21024#38500#32852#31995#20154
            Color = 15791348
            HighlightColor = 16026986
            HotTrack = True
            HotTrackColor = 3983359
            ParentColor = False
            TabOrder = 2
            ImageIndex = 13
          end
        end
      end
    end
  end
  object ptBkPanel: TFlatPanel
    Left = 0
    Top = 0
    Width = 778
    Height = 24
    Color = clMoneyGreen
    Align = alTop
    TabOrder = 3
    UseDockManager = True
    object ptCaption: TRzMarqueeStatus
      Left = 27
      Top = 1
      Width = 702
      Height = 22
      FillColor = clMoneyGreen
      FrameStyle = fsNone
      Align = alClient
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ScrollSize = 2
    end
    object FlatPanel2: TPanel
      Left = 729
      Top = 1
      Width = 48
      Height = 22
      Align = alRight
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 0
      object BtnWhatIs: TFlatSpeedButton
        Left = 4
        Top = 2
        Width = 18
        Height = 18
        Visible = False
      end
      object BtnHelp: TFlatSpeedButton
        Left = 24
        Top = 2
        Width = 18
        Height = 18
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000C40E0000C40E00000000000000000000CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6CED3D6000000000000CED3D6CED3D6CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D600000000000084
          0084848284000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6
          CED3D6000000000000840084848284FFFFFFFFFFFFC6C3C6000000CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6000000000000840084848284FFFFFFFFFFFFFF
          FFFFFFFFFFC6C3C6C6C3C6000000CED3D6CED3D6CED3D6CED3D6000000840084
          848284FFFFFFFFFFFFFFFFFFC6C3C6848284000000C6C3C6C6C3C6C6C3C60000
          00CED3D6CED3D6CED3D6000000FFFFFFFFFFFFFFFFFFC6C3C684828400000084
          0084840084000000C6C3C6C6C3C6C6C3C6000000CED3D6CED3D6000000FFFFFF
          C6C3C6848284000000840084840084840084840084840084000000C6C3C6C6C3
          C6C6C3C6000000CED3D600000084828400000084008484008484008400FFFF84
          0084840084840084840084840084C6C3C6C6C3C6848284000000840084840084
          8400848400848400848400848400840082848400848400848400848400840000
          00C6C3C6848284CED3D6CED3D684008484008484008484008484008484008400
          FFFF00FFFF00FFFF840084840084840084000000848284CED3D6CED3D6CED3D6
          84008484008484008484008484008400828484008400828400FFFF8400848400
          84840084000000CED3D6CED3D6CED3D6CED3D684008484008484008484008400
          FFFF00828400828400FFFF840084840084840084840084000000CED3D6CED3D6
          CED3D6CED3D684008484008484008484008400FFFF00FFFF8400848400848400
          84840084000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D684008484008484
          0084840084840084840084840084000000CED3D6CED3D6CED3D6CED3D6CED3D6
          CED3D6CED3D6CED3D6CED3D6840084840084840084840084000000CED3D6CED3
          D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D684
          0084000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6}
      end
    end
    object FlatPanel3: TPanel
      Left = 1
      Top = 1
      Width = 26
      Height = 22
      Align = alLeft
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 1
      object BtnPopMenu: TFlatSpeedButton
        Left = 4
        Top = 2
        Width = 18
        Height = 18
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333330333333333333330603333333333330666033
          3333333306666603333333306666666033333300006660000333333330666033
          3333333330666033333333333066603333333333300000333333333333333333
          3333333333333333333333333333333333333333333333333333}
        ParentFont = False
        OnClick = BtnPopMenuClick
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 480
    Top = 144
    object ActRefresh: TModlAction
      Caption = #21047#26032'(&R)'
      ImageIndex = 0
      OnExecute = ActRefreshExecute
      Flag2 = 0
      Remark = 'E'
    end
    object ActMore: TModlAction
      Caption = #26356#22810'(&M)'
      ImageIndex = 1
      OnExecute = ActMoreExecute
      Flag2 = 0
      Remark = 'E'