zth.dfm

速达开源ERP系统

inherited frmZth: TfrmZth
  Left = 13
  Top = 30
  Width = 724
  Height = 503
  Caption = '采购在途单'
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object sgZth: TSDGrid [0]
    Left = 1
    Top = 130
    Width = 709
    Height = 267
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clWhite
    ColCount = 9
    Ctl3D = False
    DefaultRowHeight = 18
    FixedColor = 8564917
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    PopupMenu = pmDetail
    TabOrder = 2
    OnDblClick = sgZthDblClick
    OnSelectCell = sgZthSelectCell
    Columns = <
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '行号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '采购单号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '采购单行号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '物料编码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '计量单位'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '换算系数'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '在途数量'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '交货日期'
        ColumnWidth = 0
      end>
    ColWidths = (
      11
      64
      97
      69
      117
      59
      74
      75
      72)
  end
  object FloatPanel2: TFloatPanel [1]
    Left = 0
    Top = 129
    Width = 716
    Height = 273
    Align = alClient
    Color = clWhite
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 4
    object GroupBox1: TGroupBox
      Left = 7
      Top = 1
      Width = 347
      Height = 264
      TabOrder = 0
      object Label25: TLabel
        Left = 19
        Top = 155
        Width = 54
        Height = 12
        Caption = '计量单位:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label26: TLabel
        Left = 19
        Top = 183
        Width = 54
        Height = 12
        Caption = '换算系数:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label30: TLabel
        Left = 19
        Top = 16
        Width = 66
        Height = 12
        Caption = '在途单行号:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label31: TLabel
        Left = 19
        Top = 100
        Width = 54
        Height = 12
        Caption = '货物编码:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label32: TLabel
        Left = 19
        Top = 44
        Width = 54
        Height = 12
        Caption = '采购单号:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label33: TLabel
        Left = 19
        Top = 72
        Width = 66
        Height = 12
        Caption = '采购单行号:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label34: TLabel
        Left = 19
        Top = 128
        Width = 54
        Height = 12
        Caption = '货物名称:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label35: TLabel
        Left = 19
        Top = 239
        Width = 54
        Height = 12
        Caption = '在途数量:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 19
        Top = 211
        Width = 54
        Height = 12
        Caption = '单    价:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label40: TLabel
        Left = 194
        Top = 238
        Width = 54
        Height = 12
        Caption = '收货数量:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object seZtdLine: TSDEdit
        Left = 80
        Top = 12
        Width = 99
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 0
        Text = 'seZtdLine'
        CharType = ctNumeric
        SplitSymbol = ' | '
      end
      object seZtdGoodsName: TSDEdit
        Left = 80
        Top = 124
        Width = 189
        Height = 18
        TabStop = False
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 4
        Text = 'seZtdGoodsName'
        SplitSymbol = ' | '
      end
      object seZtdQty: TSDEdit
        Left = 80
        Top = 235
        Width = 110
        Height = 18
        Ctl3D = False
        MaxLength = 12
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 6
        Text = 'seZtdQty'
        CharType = ctMathematic
        OnButtonClick = seZtdQtyButtonClick
        ButtonVisible = True
        SplitSymbol = ' | '
      end
      object seZtdPrice: TSDEdit
        Left = 80
        Top = 207
        Width = 110
        Height = 18
        TabStop = False
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 5
        Text = 'seZtdPrice'
        SplitSymbol = ' | '
      end
      object seZtdGoods: TSDEdit
        Left = 80
        Top = 96
        Width = 188
        Height = 18
        TabStop = False
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 3
        Text = 'seZtdGoods'
        SplitSymbol = ' | '
      end
      object seZtdPoCode: TSDEdit
        Left = 80
        Top = 40
        Width = 182
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 1
        Text = 'seZtdPoCode'
        OnButtonClick = seZtdPoCodeButtonClick
        ButtonVisible = True
        SplitSymbol = ' | '
      end
      object seZtdPodLine: TSDEdit
        Left = 80
        Top = 68
        Width = 121
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 2
        Text = '0'
        DataType = dtNumber
        CharType = ctMathematic
        SplitSymbol = ' | '
        DefaultValue = '0'
      end
      object seZtdRQty: TSDEdit
        Left = 252
        Top = 234
        Width = 77
        Height = 18
        TabStop = False
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 7
        Text = '0'
        DataType = dtNumber
        CharType = ctMathematic
        SplitSymbol = ' | '
        DefaultValue = '0'
      end
      object seZtdConvRate: TSDEdit
        Left = 80
        Top = 180
        Width = 109
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 8
        Text = 'seZtdConvRate'
        SplitSymbol = ' | '
      end
      object scZtdUnit: TSDComboBox
        Left = 80
        Top = 150
        Width = 108
        Height = 20
        Ctl3D = False
        ItemHeight = 12
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 9
        Text = 'scZtdUnit'
        KeyItem = cbItem2
      end
    end
    object GroupBox3: TGroupBox
      Left = 357
      Top = 109
      Width = 237
      Height = 156
      Caption = '日期'
      TabOrder = 1
      object Label36: TLabel
        Left = 14
        Top = 26
        Width = 54
        Height = 12
        Caption = '需求日期:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label37: TLabel
        Left = 14
        Top = 53
        Width = 54
        Height = 12
        Caption = '交货日期:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label38: TLabel
        Left = 14
        Top = 80
        Width = 54
        Height = 12
        Caption = '发出日期:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []