selsettlefrm.~dfm

医药连锁经营管理系统源码

        DataSource = DsSelSettle
        DataField = 'DepartNo'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 11
      end
      object edDepartName: TRzDBButtonEdit
        Tag = -1
        Left = 331
        Top = 61
        Width = 90
        Height = 20
        DataSource = DsSelSettle
        DataField = 'DepartName'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 12
        OnButtonClick = edDepartNameButtonClick
        FlatButtons = True
      end
      object cbInOutKind: TRzComboBox
        Left = 67
        Top = 61
        Width = 118
        Height = 20
        Ctl3D = False
        FlatButtons = True
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 10
        Items.Strings = (
          #26399#21021#24212#25910
          #25209#21457#38144#21806
          #20195#38144)
      end
      object RzDBComboBox3: TRzDBComboBox
        Left = 67
        Top = 115
        Width = 118
        Height = 20
        DataField = 'AccountBank'
        DataSource = DsSelSettle
        Ctl3D = False
        FlatButtons = True
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 18
        Items.Strings = (
          #20013#22269#20154#27665#38134#34892
          #20013#22269#25307#21830#38134#34892
          #20013#22269#24314#35774#38134#34892
          #20013#22269#20892#19994#38134#34892)
      end
      object RzDBEdit14: TRzDBEdit
        Left = 487
        Top = 61
        Width = 100
        Height = 20
        DataSource = DsSelSettle
        DataField = 'AccountNo'
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 7
      end
      object RzDBEdit15: TRzDBEdit
        Left = 487
        Top = 88
        Width = 100
        Height = 20
        DataSource = DsSelSettle
        DataField = 'TaxNo'
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 13
      end
      object cbInvoiceType: TRzComboBox
        Left = 487
        Top = 7
        Width = 100
        Height = 20
        Ctl3D = False
        FlatButtons = True
        FrameHotTrack = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 3
        Items.Strings = (
          #26222#36890
          #22686#20540#31246)
      end
      object RzDBEdit6: TRzDBEdit
        Left = 487
        Top = 34
        Width = 100
        Height = 19
        DataSource = DsSelSettle
        DataField = 'InvoiceNo'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 21
      end
    end
    inherited plBody: TRzPanel
      Top = 141
      Width = 782
      Height = 301
      object dbgPchOrderDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 782
        Height = 301
        TabStop = False
        Align = alClient
        AllowedOperations = [alopUpdateEh, alopAppendEh]
        DataSource = DsSelSettleDtl
        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]
        RowHeight = 16
        SortLocal = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleHeight = 15
        OnEditButtonClick = dbgPchOrderDtlEditButtonClick
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 92
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 106
          end
          item
            EditButtons = <>
            FieldName = 'Specs'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 105
          end
          item
            EditButtons = <>
            FieldName = 'Unit'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 49
          end
          item
            EditButtons = <>
            FieldName = 'BatchNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 66
          end
          item
            EditButtons = <>
            FieldName = 'Qty'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'Price'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'TaxRate'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'UnTaxPrice'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'GoodsSum'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'TaxSum'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Amount'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'CostPrice'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'CostAmount'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PBillNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PItemNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PaidUp'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PayDone'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'PayDoneDate'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'Remark'
            Footers = <>
            Title.Alignment = taCenter
          end>
      end
    end
    inherited plFooter: TRzPanel
      Top = 442
      Width = 782
      Height = 60
      object RzLabel15: TRzLabel
        Left = 615
        Top = 10
        Width = 36
        Height = 12
        AutoSize = False
        Caption = #21512#35745#65306
      end
      object RzLabel21: TRzLabel
        Left = 11
        Top = 37
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #22791'    '#27880#65306
      end
      object RzLabel13: TRzLabel
        Left = 299
        Top = 10
        Width = 36
        Height = 12
        AutoSize = False
        Caption = #36135#27454#65306
      end
      object RzLabel14: TRzLabel
        Left = 455
        Top = 10
        Width = 36
        Height = 12
        AutoSize = False
        Caption = #31246#27454#65306
      end
      object RzLabel7: TRzLabel
        Left = 455
        Top = 37
        Width = 48
        Height = 12
        Caption = #21019#24314#32773#65306
      end
      object RzDBLabel1: TRzDBLabel
        Left = 502
        Top = 37
        Width = 60
        Height = 12
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'Creater'
        DataSource = DsSelSettle
      end
      object RzLabel16: TRzLabel
        Left = 579
        Top = 37
        Width = 60
        Height = 12
        Caption = #21019#24314#26085#26399#65306
      end
      object RzDBLabel2: TRzDBLabel
        Left = 639
        Top = 37
        Width = 60
        Height = 12
        AutoSize = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        DataField = 'CreatTime'
        DataSource = DsSelSettle
      end
      object RzLabel22: TRzLabel
        Left = 11
        Top = 10
        Width = 60
        Height = 12
        Caption = #21457#31080#22320#22336#65306
      end
      object RzDBNumericEdit2: TRzDBEdit
        Tag = -1
        Left = 335
        Top = 6