uproviders.dfm

来自「医药连锁经营管理系统源码」· DFM 代码 · 共 1,224 行 · 第 1/3 页

        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 12
      end
      object edWorkingBound: TRzDBEdit
        Left = 255
        Top = 69
        Width = 142
        Height = 20
        DataSource = DsProviders
        DataField = 'WorkingBound'
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 8
      end
      object edWorkingMode: TRzDBEdit
        Left = 64
        Top = 69
        Width = 132
        Height = 20
        DataSource = DsProviders
        DataField = 'WorkingMode'
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 7
      end
      object edQualityPar: TRzDBEdit
        Left = 112
        Top = 160
        Width = 285
        Height = 20
        DataSource = DsProviders
        DataField = 'QualityPar'
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 18
      end
      object edOwnerKind: TRzDBEdit
        Left = 99
        Top = 130
        Width = 298
        Height = 20
        DataSource = DsProviders
        DataField = 'OwnerKind'
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 15
      end
      object edSubjectDept: TRzDBEdit
        Left = 255
        Top = 39
        Width = 142
        Height = 20
        DataSource = DsProviders
        DataField = 'SubjectDept'
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 4
      end
      object edTrade: TRzDBComboBox
        Left = 64
        Top = 39
        Width = 132
        Height = 20
        DataField = 'Trade'
        DataSource = DsProviders
        AutoComplete = False
        Ctl3D = False
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        ItemHeight = 12
        MaxLength = 16
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 3
      end
      object edRelation: TRzDBComboBox
        Left = 654
        Top = 159
        Width = 122
        Height = 20
        DataField = 'ABCKind'
        DataSource = DsProviders
        Anchors = [akLeft, akTop, akRight]
        AutoComplete = False
        Ctl3D = False
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        ItemHeight = 12
        MaxLength = 4
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 20
        Items.Strings = (
          'A'
          'B'
          'C')
      end
      object edCredit: TRzDBNumericEdit
        Left = 285
        Top = 189
        Width = 112
        Height = 20
        DataSource = DsProviders
        DataField = 'Credit'
        AutoSize = False
        Ctl3D = True
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 22
        DisplayFormat = ',0;(,0)'
      end
      object CkPause: TRzDBCheckBox
        Left = 680
        Top = 100
        Width = 69
        Height = 16
        DataField = 'Pause'
        DataSource = DsProviders
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        Caption = #26242#20572#24448#26469
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        HotTrack = True
        ParentFont = False
        TabOrder = 14
      end
      object edArea: TRzDBButtonEdit
        Left = 64
        Top = 218
        Width = 168
        Height = 20
        DataSource = DsProviders
        DataField = 'Area'
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 24
        FlatButtons = True
      end
      object cmCoinKind: TRzDBEdit
        Left = 466
        Top = 159
        Width = 138
        Height = 20
        DataSource = DsProviders
        DataField = 'PayModeNo'
        Ctl3D = True
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 19
      end
      object edAddress: TRzDBEdit
        Left = 466
        Top = 215
        Width = 310
        Height = 20
        Hint = #32852#31995#22320#22336
        DataSource = DsProviders
        DataField = 'Address'
        Anchors = [akLeft, akTop, akRight]
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        ParentShowHint = False
        ShowHint = True
        TabOnEnter = True
        TabOrder = 26
      end
      object RzDBEdit1: TRzDBEdit
        Left = 466
        Top = 8
        Width = 310
        Height = 20
        DataSource = DsProviders
        DataField = 'FullName'
        Anchors = [akLeft, akTop, akRight]
        framehottrack = false
        FrameHotStyle = fsBump
        FrameStyle = fsGroove
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
      end
    end
    inherited plBody: TRzPanel
      Top = 247
      Height = 227
      BorderInner = fsBump
      Caption = '    '
      object RzPage: TRzPageControl
        Tag = -1
        Left = 2
        Top = 2
        Width = 774
        Height = 223
        ActivePage = TabSheet1
        ActivePageDefault = TabSheet1
        Align = alClient
        Color = 16119543
        FlatColor = 10263441
        HotTrackColor = 3983359
        HotTrackColorType = htctActual
        Images = ImgPopMenu
        ParentColor = False
        TabColors.HighlightBar = 3983359
        TabIndex = 0
        TabOrder = 0
        TabStyle = tsDoubleSlant
        object TabSheet1: TRzTabSheet
          Color = 16119543
          Caption = 'TabSheet1'
          object xDBGridEh1: TxDBGridEh
            Left = 0
            Top = 0
            Width = 770
            Height = 201
            Align = alClient
            AllowedOperations = [alopUpdateEh]
            ColumnDefValues.Title.Alignment = taCenter
            DataSource = DsProvGoods
            FixedColor = clSilver
            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, dghRowHighlight]
            RowHeight = 5
            RowLines = 1
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            TitleLines = 2
            OnColExit = xDBGridEh1ColExit
            OnExit = xDBGridEh1ColExit
            Columns = <
              item
                EditButtons = <>
                FieldName = 'Goodsid'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Name'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Specs'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Price1'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Price2'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Rebate'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'NearDate'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'ProvGoodsID'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Remark'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'ProvNo'
                Footers = <>
                Visible = False
              end>
          end
        end
        object TabSheet2: TRzTabSheet
          Color = 16119543
          Caption = 'TabSheet2'
          object xDBGridEh2: TxDBGridEh
            Left = 0
            Top = 0
            Width = 770
            Height = 201
            Align = alClient
            AllowedOperations = [alopUpdateEh]
            ColumnDefValues.Title.Alignment = taCenter
            DataSource = DsProvLinkmans
            FixedColor = clSilver
            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, dghRowHighlight]
            RowHeight = 5
            RowLines = 1
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            TitleLines = 2
            OnColExit = xDBGridEh2ColExit
            OnExit = xDBGridEh2ColExit
            Columns = <
              item
                EditButtons = <>
                FieldName = 'LinkMan'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'NickName'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Sex'
                Footers = <>
                PickList.Strings = (
                  #30007
                  #22899)
              end
              item
                EditButtons = <>
                FieldName = 'Birthday'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Dept'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Duty'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Address'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'Tel1'