pchcheckinfrm.~dfm

群星医药系统源码

inherited FmPchCheckin: TFmPchCheckin
  Left = 178
  Top = 219
  Width = 786
  Height = 477
  Align = alCustom
  Anchors = [akLeft, akTop, akRight, akBottom]
  Caption = #26469#36135#30331#35760
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock1: TTBDock
    Width = 778
    inherited Toolbar1: TTBToolbar
      DockPos = -3
    end
  end
  inherited TBDock2: TTBDock
    Top = 441
    Width = 778
  end
  inherited TBDock3: TTBDock
    Left = 769
    Height = 402
  end
  inherited TBDock4: TTBDock
    Height = 402
  end
  inherited plBoard: TRzPanel
    Width = 760
    Height = 402
    inherited plHeader: TRzPanel
      Width = 756
      Height = 100
      object Label1: TLabel
        Left = 27
        Top = 13
        Width = 60
        Height = 12
        Caption = #21333'    '#21495#65306
      end
      object Label2: TLabel
        Left = 27
        Top = 44
        Width = 60
        Height = 12
        Caption = #26085'    '#26399#65306
      end
      object Label3: TLabel
        Left = 27
        Top = 75
        Width = 60
        Height = 12
        Caption = #35746' '#21333' '#21495#65306
      end
      object Label4: TLabel
        Left = 267
        Top = 75
        Width = 60
        Height = 12
        Caption = #21512' '#21516' '#21495#65306
      end
      object Label5: TLabel
        Left = 540
        Top = 13
        Width = 60
        Height = 12
        Caption = #19994' '#21153' '#21592#65306
      end
      object Label6: TLabel
        Left = 540
        Top = 44
        Width = 60
        Height = 12
        Caption = #22797' '#26680' '#21592#65306
      end
      object Label8: TLabel
        Left = 267
        Top = 44
        Width = 60
        Height = 12
        Caption = #32852' '#31995' '#20154#65306
      end
      object Lab_State: TLabel
        Left = 642
        Top = 74
        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 Label7: TLabel
        Left = 267
        Top = 13
        Width = 60
        Height = 12
        Caption = #20379#24212#21378#21830#65306
      end
      object RzDBEdit1: TRzDBEdit
        Tag = -1
        Left = 87
        Top = 9
        Width = 125
        Height = 20
        DataSource = DsPchCheckin
        DataField = 'BillNo'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object RzDBDateTimePicker1: TRzDBDateTimePicker
        Left = 87
        Top = 39
        Width = 125
        Height = 19
        Date = 37713.861482847220000000
        Time = 37713.861482847220000000
        DateFormat = dfLong
        TabOrder = 5
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        ShowToday = True
        DataField = 'FDate'
        DataSource = DsPchCheckin
      end
      object RzDBEdit2: TRzDBEdit
        Left = 329
        Top = 70
        Width = 167
        Height = 20
        DataSource = DsPchCheckin
        DataField = 'ContractNo'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 9
      end
      object RzDBButtonEdit4: TRzDBButtonEdit
        Tag = -1
        Left = 663
        Top = 9
        Width = 85
        Height = 20
        DataSource = DsPchCheckin
        DataField = 'Name'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 4
        OnButtonClick = RzDBButtonEdit4ButtonClick
        FlatButtons = True
      end
      object RzDBEdit3: TRzDBEdit
        Left = 605
        Top = 9
        Width = 57
        Height = 20
        DataSource = DsPchCheckin
        DataField = 'EmpNO'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
      end
      object RzDBCheckBox2: TRzDBCheckBox
        Left = 541
        Top = 74
        Width = 89
        Height = 17
        DataField = 'Fungible'
        DataSource = DsPchCheckin
        ValueChecked = 'True'
        ValueUnchecked = 'False'
        Caption = #20195#38144#25910#36135
        HotTrack = True
        TabOnEnter = True
        TabOrder = 10
      end
      object RzDBEdit7: TRzDBEdit
        Tag = -1
        Left = 605
        Top = 39
        Width = 143
        Height = 20
        DataSource = DsPchCheckin
        DataField = 'Audit'
        ReadOnly = True
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 7
      end
      object edProvName: TRzDBButtonEdit
        Tag = -1
        Left = 390
        Top = 9
        Width = 106
        Height = 20
        DataSource = DsPchCheckin
        DataField = 'ProvName'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 2
        OnButtonClick = edProvNameButtonClick
        FlatButtons = True
      end
      object RzDBEdit4: TRzDBEdit
        Left = 329
        Top = 9
        Width = 60
        Height = 20
        DataSource = DsPchCheckin
        DataField = 'ProvNo'
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 1
      end
      object RzDBButtonEdit2: TRzDBEdit
        Left = 87
        Top = 70
        Width = 125
        Height = 20
        DataSource = DsPchCheckin
        DataField = 'OrderNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 8
      end
      object RzDBButtonEdit1: TRzDBButtonEdit
        Tag = -1
        Left = 329
        Top = 39
        Width = 167
        Height = 20
        DataSource = DsPchCheckin
        DataField = 'LinkMan'
        ReadOnly = True
        FrameVisible = True
        TabOrder = 6
        OnButtonClick = RzDBButtonEdit1ButtonClick
        FlatButtons = True
      end
    end
    inherited plBody: TRzPanel
      Top = 102
      Width = 756
      Height = 240
      object dbgPchCheckInDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 756
        Height = 240
        TabStop = False
        Align = alClient
        AllowedOperations = [alopUpdateEh, alopAppendEh]
        DataSource = DsPchCheckinDtl
        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 = 17
        OnEditButtonClick = dbgPchCheckInDtlEditButtonClick
        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
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'Specs'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'Unit'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'Qty'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 64
          end
          item
            EditButtons = <>
            FieldName = 'OPrice'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'Rebate'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 46
          end
          item
            EditButtons = <>
            FieldName = 'Price'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'TaxRate'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'UnTaxPrice'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'GoodsSum'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 64
          end
          item
            EditButtons = <>
            FieldName = 'TaxSum'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 64
          end
          item
            EditButtons = <>
            FieldName = 'Amount'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 76
          end
          item
            EditButtons = <>
            FieldName = 'BatchNo'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 64
          end
          item
            EditButtons = <>
            FieldName = 'ProdDate'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 76
          end
          item
            EditButtons = <>
            FieldName = 'ValidDate'
            Footers = <>
            Title.Alignment = taCenter
            Title.TitleButton = True
            Width = 76
          end
          item
            EditButtons = <>
            FieldName = 'PBillNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
            Visible = False
            Width = 76
          end
          item
            EditButtons = <>
            FieldName = 'PItemNo'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Title.TitleButton = True
            Visible = False
            Width = 52
          end