selgoodscheckacceptfrm.dfm

来自「群星医药系统源码」· DFM 代码 · 共 651 行 · 第 1/2 页

inherited FmSelGoodsCheckAccept: TFmSelGoodsCheckAccept
  Left = 191
  Top = 174
  Width = 808
  Height = 580
  Caption = #38144#21806#36864#22238#36136#37327#39564#25910
  PixelsPerInch = 96
  TextHeight = 12
  inherited TBDock1: TTBDock
    Width = 800
    inherited Toolbar1: TTBToolbar
      inherited TBItem11: TTBItem
        Enabled = False
      end
      inherited TBItem10: TTBItem
        Enabled = False
      end
    end
  end
  inherited TBDock2: TTBDock
    Top = 544
    Width = 800
  end
  inherited TBDock3: TTBDock
    Left = 791
    Height = 505
  end
  inherited TBDock4: TTBDock
    Height = 505
  end
  inherited plBoard: TRzPanel
    Width = 782
    Height = 505
    inherited plHeader: TRzPanel
      Width = 778
      Height = 60
      object Label1: TLabel
        Left = 32
        Top = 10
        Width = 48
        Height = 12
        Caption = #39564#25910#21333#21495
      end
      object Label2: TLabel
        Left = 32
        Top = 38
        Width = 48
        Height = 12
        Caption = #39564#25910#26085#26399
      end
      object Label4: TLabel
        Left = 284
        Top = 11
        Width = 48
        Height = 12
        Caption = #38144#36864#21333#21495
      end
      object Label7: TLabel
        Left = 573
        Top = 10
        Width = 36
        Height = 12
        Caption = #22797#26680#21592
      end
      object Label8: TLabel
        Left = 284
        Top = 38
        Width = 48
        Height = 12
        Caption = #23458#25143#21333#20301
      end
      object Lab_State: TLabel
        Left = 584
        Top = 38
        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 DBEdit1: TRzDBEdit
        Tag = -1
        Left = 88
        Top = 6
        Width = 129
        Height = 20
        DataSource = DsGoodsCheckAccept
        DataField = 'BillNo'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 0
      end
      object DBEdit7: TRzDBEdit
        Tag = -1
        Left = 615
        Top = 6
        Width = 100
        Height = 20
        DataSource = DsGoodsCheckAccept
        DataField = 'Audit'
        ReadOnly = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 4
      end
      object DBEdit8: TRzDBEdit
        Left = 339
        Top = 34
        Width = 53
        Height = 20
        DataSource = DsGoodsCheckAccept
        DataField = 'ProvNo'
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 3
      end
      object DBEdit2: TRzDBDateTimePicker
        Left = 88
        Top = 34
        Width = 129
        Height = 19
        Date = 37722.735477685190000000
        Time = 37722.735477685190000000
        DateFormat = dfLong
        TabOrder = 1
        FlatButtons = True
        FrameHotStyle = fsFlat
        FrameVisible = True
        DataField = 'FDate'
        DataSource = DsGoodsCheckAccept
      end
      object RzDBButtonEdit1: TRzEdit
        Left = 339
        Top = 6
        Width = 174
        Height = 20
        FrameHotStyle = fsFlat
        FrameVisible = True
        TabOnEnter = True
        TabOrder = 2
      end
      object edCustName: TRzButtonEdit
        Left = 394
        Top = 34
        Width = 121
        Height = 20
        FrameVisible = True
        TabOrder = 5
        FlatButtons = True
        OnButtonClick = edCustNameButtonClick
      end
    end
    inherited plBody: TRzPanel
      Top = 62
      Width = 778
      Height = 415
      object dbgGoodsCheckAcceptDtl: TxDBGridEh
        Left = 0
        Top = 0
        Width = 778
        Height = 415
        Align = alClient
        AllowedOperations = [alopUpdateEh, alopAppendEh]
        DataSource = DsGoodsCheckAcceptDtl
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        RowHeight = 16
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        TitleHeight = 17
        OnEditButtonClick = dbgGoodsCheckAcceptDtlEditButtonClick
        RowColorsUse = True
        RowColor1 = 16772846
        Columns = <
          item
            EditButtons = <>
            FieldName = 'itemno'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 28
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'goodsid'
            Footers = <>
            Title.Alignment = taCenter
            Width = 67
          end
          item
            EditButtons = <>
            FieldName = 'name'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'specs'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 47
          end
          item
            EditButtons = <>
            FieldName = 'unit'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 30
          end
          item
            EditButtons = <>
            FieldName = 'batchno'
            Footers = <>
            Title.Alignment = taCenter
            Width = 62
          end
          item
            EditButtons = <>
            FieldName = 'proddate'
            Footers = <>
            Title.Alignment = taCenter
            Width = 74
          end
          item
            EditButtons = <>
            FieldName = 'validdate'
            Footers = <>
            Title.Alignment = taCenter
          end
          item
            EditButtons = <>
            FieldName = 'eligiblecard'
            Footers = <>
            Title.Alignment = taCenter
            Width = 68
          end
          item
            EditButtons = <>
            FieldName = 'qualitystate'
            Footers = <>
            PickList.Strings = (
              #21512#26684
              #19981#21512#26684)
            Title.Alignment = taCenter
            Width = 63
          end
          item
            EditButtons = <>
            FieldName = 'packagestate'
            Footers = <>
            PickList.Strings = (
              #21512#26684
              #19981#21512#26684)
            Title.Alignment = taCenter
            Width = 68
          end
          item
            EditButtons = <>
            FieldName = 'labelstate'
            Footers = <>
            PickList.Strings = (
              #21512#26684
              #19981#21512#26684)
            Title.Alignment = taCenter
            Width = 70
          end
          item
            EditButtons = <>
            FieldName = 'directions'
            Footers = <>
            PickList.Strings = (
              #21512#26684
              #19981#21512#26684)
            Title.Alignment = taCenter
            Width = 83
          end
          item
            EditButtons = <>
            FieldName = 'checkqty'
            Footers = <>
            Title.Alignment = taCenter
            Width = 63
          end
          item
            EditButtons = <>
            FieldName = 'eligibleqty'
            Footers = <>
            Title.Alignment = taCenter
            Width = 73
          end
          item
            EditButtons = <>
            FieldName = 'rejectqty'
            Footers = <>
            ReadOnly = True
            Title.Alignment = taCenter
            Width = 73
          end
          item
            EditButtons = <>
            FieldName = 'checkverdict'
            Footers = <>
            PickList.Strings = (
              #21512#26684