.#goodscheckaccept.dfm.1.31

群星医药系统源码

inherited FmGoodsCheckAccept: TFmGoodsCheckAccept
  Left = 229
  Top = 178
  Height = 511
  Caption = #37319#36141#33647#21697#36136#37327#39564#25910
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock1: TTBDock
    inherited Toolbar1: TTBToolbar
      DockPos = 0
    end
  end
  inherited TBDock2: TTBDock
    Top = 475
  end
  inherited TBDock3: TTBDock
    Height = 436
  end
  inherited TBDock4: TTBDock
    Height = 436
  end
  inherited plBoard: TRzPanel
    Height = 436
    inherited plHeader: TRzPanel
      Height = 62
      BorderInner = fsBump
      object Label1: TLabel
        Left = 36
        Top = 12
        Width = 60
        Height = 12
        Caption = #39564#25910#21333#21495#65306
      end
      object Label2: TLabel
        Left = 35
        Top = 40
        Width = 60
        Height = 12
        Caption = #39564#25910#26085#26399#65306
      end
      object Label3: TLabel
        Left = 287
        Top = 40
        Width = 60
        Height = 12
        Caption = #37319#36141#21333#21495#65306
      end
      object Label4: TLabel
        Left = 287
        Top = 12
        Width = 60
        Height = 12
        Caption = #20379#24212#21378#21830#65306
      end
      object Label5: TLabel
        Left = 555
        Top = 12
        Width = 60
        Height = 12
        Caption = #22797' '#26680' '#21592#65306
      end
      object Lab_State: TLabel
        Left = 555
        Top = 40
        Width = 96
        Height = 12
        Caption = #21333#25454#29366#24577#65306#26410#23457#26680
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object RzDBEdit1: TRzDBEdit
        Tag = -1
        Left = 96
        Top = 8
        Width = 129
        Height = 20
        DataSource = DsGoodsCheckAccept
        DataField = 'BillNo'
        ReadOnly = True
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object RzDBDateTimePicker1: TRzDBDateTimePicker
        Left = 95
        Top = 36
        Width = 130
        Height = 19
        Date = 37680.088866967590000000
        Time = 37680.088866967590000000
        DateFormat = dfLong
        TabOrder = 1
        FlatButtons = True
        FrameVisible = True
        ShowToday = True
        DataField = 'FDate'
        DataSource = DsGoodsCheckAccept
      end
      object RzDBEdit4: TRzDBEdit
        Tag = -1
        Left = 615
        Top = 8
        Width = 123
        Height = 20
        DataSource = DsGoodsCheckAccept
        DataField = 'Audit'
        ReadOnly = True
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
      end
      object edProvName: TRzDBButtonEdit
        Tag = -1
        Left = 408
        Top = 8
        Width = 97
        Height = 19
        DataSource = DsGoodsCheckAccept
        DataField = 'ProvName'
        ReadOnly = True
        AutoSize = False
        framehottrack = false
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
        OnButtonClick = edProvNameButtonClick
        FlatButtons = True
      end
      object RzDBEdit3: TRzDBEdit
        Left = 348
        Top = 8
        Width = 59
        Height = 19
        DataSource = DsGoodsCheckAccept
        DataField = 'ProvNo'
        AutoSize = False
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 5
      end
      object RzDBButtonEdit1: TRzEdit
        Left = 348
        Top = 36
        Width = 157
        Height = 19
        AutoSize = False
        framehottrack = false
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 4
      end
    end
    inherited plBody: TRzPanel
      Top = 64
      Height = 341
      BorderInner = fsBump
      object dbgGoodsCheckAcceptDtl: TxDBGridEh
        Left = 2
        Top = 2
        Width = 766
        Height = 337
        Align = alClient
        AllowedOperations = [alopUpdateEh, alopAppendEh]
        ColumnDefValues.AutoDropDown = True
        ColumnDefValues.DropDownShowTitles = True
        ColumnDefValues.Title.Alignment = taCenter
        DataSource = DsGoodsCheckAcceptDtl
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking]
        ParentFont = False
        RowHeight = 16
        SortLocal = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleHeight = 2
        TitleLines = 1
        OnEditButtonClick = dbgGoodsCheckAcceptDtlEditButtonClick
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ItemNo'
            Footers = <>
            ReadOnly = True
            Title.TitleButton = True
            Width = 28
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'GoodsID'
            Footers = <>
            Title.TitleButton = True
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            ReadOnly = True
            Title.TitleButton = True
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'Specs'
            Footers = <>
            ReadOnly = True
            Title.TitleButton = True
            Width = 69
          end
          item
            EditButtons = <>
            FieldName = 'Unit'
            Footers = <>
            ReadOnly = True
            Title.TitleButton = True
            Width = 43
          end
          item
            EditButtons = <>
            FieldName = 'BatchNo'
            Footers = <>
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'ProdDate'
            Footers = <>
            Title.TitleButton = True
            Width = 66
          end
          item
            EditButtons = <>
            FieldName = 'ValidDate'
            Footers = <>
            Title.TitleButton = True
            Width = 71
          end
          item
            EditButtons = <>
            FieldName = 'PBillNo'
            Footers = <>
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'PItemNo'
            Footers = <>
            Title.TitleButton = True
          end
          item
            EditButtons = <>
            FieldName = 'EligibleCard'
            Footers = <>
            MRUList.Active = True
            MRUList.Items.Strings = (
              '')
            PickList.Strings = (
              #23436#25972
              #19981#23436#25972)
            Title.TitleButton = True
            Width = 52
          end
          item
            EditButtons = <>
            FieldName = 'QualityState'
            Footers = <>
            PickList.Strings = (
              #19978#31561
              #20013#31561
              #19979#31561)
            Title.TitleButton = True
            Width = 55
          end
          item
            EditButtons = <>
            FieldName = 'PackageState'
            Footers = <>
            PickList.Strings = (
              #31934#32654
              #24179#28129
              #31895#31961
              #27809#26377)
            Title.TitleButton = True
            Width = 55
          end
          item
            EditButtons = <>
            FieldName = 'LabelState'
            Footers = <>
            PickList.Strings = (
              #28165#26224
              #27169#31946
              #27809#26377)
            Title.TitleButton = True
            Width = 57
          end
          item
            EditButtons = <>
            FieldName = 'Directions'
            Footers = <>
            PickList.Strings = (
              #35814#32454
              #31616#30053
              #27809#26377)
            Title.TitleButton = True
            Width = 69
          end
          item
            EditButtons = <>
            FieldName = 'CheckQty'
            Footers = <>
            Title.TitleButton = True
            Width = 53
          end
          item
            EditButtons = <>
            FieldName = 'EligibleQty'