.#pchspeer.dfm.1.37

群星医药系统源码

inherited FmPchSpeer: TFmPchSpeer
  Left = 219
  Top = 134
  Height = 481
  Caption = #37319#36141#35810#20215
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock2: TTBDock
    Top = 445
  end
  inherited TBDock3: TTBDock
    Height = 406
  end
  inherited TBDock4: TTBDock
    Height = 406
  end
  inherited plBoard: TRzPanel
    Height = 406
    inherited plHeader: TRzPanel
      Height = 92
      BorderInner = fsBump
      object RzLabel1: TRzLabel
        Left = 30
        Top = 15
        Width = 60
        Height = 12
        Caption = #21333#25454#32534#21495#65306
      end
      object RzLabel2: TRzLabel
        Left = 30
        Top = 43
        Width = 60
        Height = 12
        Caption = #35810#20215#26085#26399#65306
      end
      object RzLabel3: TRzLabel
        Left = 30
        Top = 71
        Width = 60
        Height = 12
        Caption = #26377#25928#26085#26399#65306
      end
      object Lab_State: TLabel
        Left = 562
        Top = 71
        Width = 96
        Height = 12
        Caption = #21333#25454#29366#24577#65306#26410#23457#26680
        Font.Charset = GB2312_CHARSET
        Font.Color = clHotLight
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object RzLabel6: TRzLabel
        Left = 291
        Top = 43
        Width = 60
        Height = 12
        Caption = #32852' '#31995' '#20154#65306
      end
      object RzLabel18: TRzLabel
        Left = 291
        Top = 71
        Width = 60
        Height = 12
        Caption = #32467#31639#26041#24335#65306
      end
      object Label7: TLabel
        Left = 291
        Top = 15
        Width = 60
        Height = 12
        Caption = #20379#24212#21378#21830#65306
      end
      object RzLabel4: TRzLabel
        Left = 561
        Top = 15
        Width = 60
        Height = 12
        Caption = #19994' '#21153' '#21592#65306
      end
      object RzLabel5: TRzLabel
        Left = 562
        Top = 43
        Width = 60
        Height = 12
        Caption = #22797' '#26680' '#21592#65306
      end
      object RzDBEdit2: TRzDBEdit
        Tag = -1
        Left = 91
        Top = 10
        Width = 122
        Height = 20
        DataSource = DsPchSpeer
        DataField = 'BillNo'
        ReadOnly = True
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object RzDBDateTimePicker1: TRzDBDateTimePicker
        Left = 91
        Top = 38
        Width = 122
        Height = 19
        Date = 37637.621940023150000000
        Time = 37637.621940023150000000
        DateFormat = dfLong
        TabOrder = 1
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ShowToday = True
        DataField = 'FDate'
        DataSource = DsPchSpeer
      end
      object RzDBDateTimePicker2: TRzDBDateTimePicker
        Left = 91
        Top = 66
        Width = 122
        Height = 19
        Date = 37637.621940023150000000
        Time = 37637.621940023150000000
        DateFormat = dfLong
        TabOrder = 2
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ShowToday = True
        DataField = 'ValidDate'
        DataSource = DsPchSpeer
      end
      object edProvName: TRzDBButtonEdit
        Tag = -1
        Left = 406
        Top = 10
        Width = 90
        Height = 20
        DataSource = DsPchSpeer
        DataField = 'ProvName'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 8
        OnButtonClick = edProvNameButtonClick
        FlatButtons = True
      end
      object RzDBEdit9: TRzDBEdit
        Left = 351
        Top = 10
        Width = 54
        Height = 20
        DataSource = DsPchSpeer
        DataField = 'ProvNo'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
      end
      object cbPayModes: TRzComboBox
        Left = 351
        Top = 66
        Width = 145
        Height = 20
        AutoComplete = False
        Style = csDropDownList
        Ctl3D = False
        DisabledColor = clWhite
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ItemHeight = 12
        ParentCtl3D = False
        TabOnEnter = True
        TabOrder = 5
      end
      object DBEdit6: TRzDBEdit
        Left = 621
        Top = 10
        Width = 52
        Height = 20
        DataSource = DsPchSpeer
        DataField = 'EmpNO'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 6
      end
      object RzDBButtonEdit1: TRzDBButtonEdit
        Tag = -1
        Left = 674
        Top = 10
        Width = 80
        Height = 20
        DataSource = DsPchSpeer
        DataField = 'Name'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 9
        OnButtonClick = RzDBButtonEdit1ButtonClick
        FlatButtons = True
      end
      object RzDBEdit8: TRzDBEdit
        Tag = -1
        Left = 621
        Top = 38
        Width = 133
        Height = 20
        DataSource = DsPchSpeer
        DataField = 'Audit'
        ReadOnly = True
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 7
      end
      object RzDBButtonEdit2: TRzDBButtonEdit
        Tag = -1
        Left = 351
        Top = 38
        Width = 145
        Height = 20
        DataSource = DsPchSpeer
        DataField = 'LinkMan'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 4
        OnButtonClick = RzDBButtonEdit2ButtonClick
        FlatButtons = True
      end
    end
    inherited plBody: TRzPanel
      Top = 94
      Height = 255
      BorderInner = fsBump
      object dbgPchSpeer: TxDBGridEh
        Left = 2
        Top = 2
        Width = 766
        Height = 251
        Align = alClient
        AllowedOperations = [alopUpdateEh, alopAppendEh]
        DataSource = DsPchSpeerDtl
        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]
        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 = dbgPchSpeerEditButtonClick
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 28
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 75
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 87
          end
          item
            EditButtons = <>
            FieldName = 'Specs'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 65
          end
          item
            EditButtons = <>
            FieldName = 'Unit'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 35
          end
          item
            EditButtons = <>
            FieldName = 'Qty'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 57
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'OPrice'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'Rebate'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 47
          end
          item
            EditButtons = <>
            FieldName = 'Price'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 71
          end
          item
            EditButtons = <>
            FieldName = 'TaxRate'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'UnTaxPrice'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 67
          end
          item
            EditButtons = <>
            FieldName = 'GoodsSum'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 77
          end
          item
            EditButtons = <>
            FieldName = 'TaxSum'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 81
          end
          item
            EditButtons = <>
            FieldName = 'Amount'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 82
          end
          item
            EditButtons = <>
            FieldName = 'ProvGoodsID'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'ReMark'
            Footers = <>