goodsesfm.~dfm

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

              object ckViewPriceOnDbclick: TRzCheckBox
                Left = 12
                Top = 4
                Width = 93
                Height = 25
                AlignmentVertical = avCenter
                Caption = #21452#20987#21830#21697#36164#26009#26102#26174#31034#20854#20215#26684
                HotTrack = True
                State = cbUnchecked
                TabOrder = 4
              end
            end
            object dbgGoodsPrices: TxDBGridEh
              Left = 0
              Top = 0
              Width = 659
              Height = 149
              Align = alClient
              AutoFitColWidths = True
              DataSource = dsGoodsPrices
              Flat = True
              FooterColor = clWindow
              FooterFont.Charset = GB2312_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -12
              FooterFont.Name = #23435#20307
              FooterFont.Style = []
              ReadOnly = True
              RowHeight = 16
              TabOrder = 1
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = #23435#20307
              TitleFont.Style = []
              TitleHeight = 15
              RowColorsUse = True
              RowColor1 = 16772846
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'GoodsId'
                  Footers = <>
                  Title.Alignment = taCenter
                  Width = 79
                end
                item
                  EditButtons = <>
                  FieldName = 'ModeNo'
                  Footers = <>
                  Title.Alignment = taCenter
                  Width = 95
                end
                item
                  EditButtons = <>
                  FieldName = 'ModeName'
                  Footers = <>
                  Title.Alignment = taCenter
                  Width = 99
                end
                item
                  EditButtons = <>
                  FieldName = 'Price1'
                  Footers = <>
                  Title.Alignment = taCenter
                end
                item
                  EditButtons = <>
                  FieldName = 'Price2'
                  Footers = <>
                  Title.Alignment = taCenter
                end>
            end
          end
          object TPage
            Left = 0
            Top = 0
            Caption = 'GoodsBatchRebate'
            object dbgBatchRebate: TxDBGridEh
              Left = 0
              Top = 0
              Width = 640
              Height = 149
              Align = alClient
              AutoFitColWidths = True
              DataSource = DsGoodsBatchRebate
              Flat = True
              FooterColor = clWindow
              FooterFont.Charset = GB2312_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -12
              FooterFont.Name = #23435#20307
              FooterFont.Style = []
              ReadOnly = True
              RowHeight = 16
              TabOrder = 0
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -12
              TitleFont.Name = #23435#20307
              TitleFont.Style = []
              TitleHeight = 15
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'GoodsID'
                  Footers = <>
                  Title.Alignment = taCenter
                end
                item
                  EditButtons = <>
                  FieldName = 'BatMinQty'
                  Footers = <>
                  Title.Alignment = taCenter
                end
                item
                  EditButtons = <>
                  FieldName = 'BatMaxQty'
                  Footers = <>
                  Title.Alignment = taCenter
                end
                item
                  EditButtons = <>
                  FieldName = 'UNIT'
                  Footers = <>
                  Title.Alignment = taCenter
                end
                item
                  EditButtons = <>
                  FieldName = 'Rebate'
                  Footers = <>
                  Title.Alignment = taCenter
                end
                item
                  EditButtons = <>
                  FieldName = 'Price'
                  Footers = <>
                  Title.Alignment = taCenter
                end
                item
                  EditButtons = <>
                  FieldName = 'RetailAble'
                  Footers = <>
                  Title.Alignment = taCenter
                  Width = 94
                end>
            end
            object RzPanel1: TRzPanel
              Left = 640
              Top = 0
              Width = 133
              Height = 149
              Align = alRight
              BorderOuter = fsGroove
              BorderSides = [sdLeft]
              ParentColor = True
              TabOrder = 1
              object RzBitBtn6: TRzBitBtn
                Left = 6
                Top = 37
                Width = 60
                Action = ActAddBatchRebate
                Caption = #26032#22686
                Color = 15791348
                HighlightColor = 16026986
                HotTrack = True
                HotTrackColor = 3983359
                ParentColor = False
                TabOrder = 0
                ImageIndex = 2
                Images = ImageList1
              end
              object RzBitBtn7: TRzBitBtn
                Left = 70
                Top = 37
                Width = 60
                Action = ActEdtBatchRebate
                Caption = #20462#25913
                Color = 15791348
                HighlightColor = 16026986
                HotTrack = True
                HotTrackColor = 3983359
                ParentColor = False
                TabOrder = 1
                ImageIndex = 4
                Images = ImageList1
              end
              object RzBitBtn8: TRzBitBtn
                Left = 6
                Top = 70
                Width = 60
                Action = ActDelBatchRebate
                Caption = #21024#38500
                Color = 15791348
                HighlightColor = 16026986
                HotTrack = True
                HotTrackColor = 3983359
                ParentColor = False
                TabOrder = 2
                ImageIndex = 5
                Images = ImageList1
              end
              object RzBitBtn9: TRzBitBtn
                Left = 6
                Top = 106
                Width = 124
                Action = ActChkBatchRebate
                Caption = #21512#27861#24615#26816#26597
                Color = 15791348
                HighlightColor = 16026986
                HotTrack = True
                HotTrackColor = 3983359
                ParentColor = False
                TabOrder = 3
                ImageIndex = 12
                Images = ImageList1
              end
              object chkAutoShowBatRebate: TRzCheckBox
                Left = 17
                Top = 8
                Width = 97
                Height = 17
                Caption = #33258#21160#26174#31034#25240#25187
                Checked = True
                FrameColor = 8409372
                HighlightColor = 2203937
                HotTrack = True
                HotTrackColor = 3983359
                HotTrackColorType = htctActual
                State = cbChecked
                TabOrder = 4
                Transparent = True
              end
              object RzBitBtn10: TRzBitBtn
                Left = 70
                Top = 69
                Width = 60
                Action = ActViewBatchRebate
                Caption = #26174#31034
                Color = 15791348
                HighlightColor = 16026986
                HotTrack = True
                HotTrackColor = 3983359
                ParentColor = False
                TabOrder = 5
                ImageIndex = 11
                Images = ImageList1
              end
            end
          end
        end
      end
    end
    object dbgGoodses: TxDBGridEh
      Left = 0
      Top = 0
      Width = 775
      Height = 243
      Align = alClient
      DataSource = dsGoodses
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghRowHighlight]
      ReadOnly = True
      RowHeight = 16
      SortLocal = True
      TabOrder = 3
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      TitleHeight = 15
      OnDblClick = dbgGoodsesDblClick
      OnKeyDown = dbgGoodsesKeyDown
      RowColorsUse = True
      RowColor1 = 16772846
      Columns = <
        item
          EditButtons = <>
          FieldName = 'GoodsID'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'Name'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'EName'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'Alias'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'BarCode'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'BarCode2'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'Pym'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'Specs'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'DoseType'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'MainKind'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'KindNo'
          Footers = <>
          Title.Alignment = taCenter
        end
        item
          EditButtons = <>
          FieldName = 'KindName'