pickup.dfm

一个以前收集的基于C/S架构的ERP客户端源代码

inherited frmPickup: TfrmPickup
  Left = 60
  Top = 154
  Width = 781
  Height = 525
  Caption = '提货单录入'
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object sgStockupd: TSDGrid [0]
    Left = 0
    Top = 204
    Width = 417
    Height = 248
    Hint = '双击增加提货明细'
    Color = 15594976
    ColCount = 9
    DefaultRowHeight = 18
    FixedColor = 8564917
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnDblClick = sgStockupdDblClick
    Columns = <
      item
        ColumnFont.Charset = DEFAULT_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -11
        ColumnFont.Name = 'MS Sans Serif'
        ColumnFont.Style = []
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clGreen
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '备单行号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clGreen
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '订单行号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clGreen
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '货物编码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clGreen
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '单位'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clGreen
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '系数'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clGreen
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '备货数量'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clGreen
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '已提数量'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clGreen
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '货物名称'
        ColumnWidth = 0
      end>
    ColWidths = (
      10
      54
      53
      96
      32
      29
      66
      64
      103)
  end
  object sgPickup: TSDGrid [1]
    Left = 414
    Top = 204
    Width = 355
    Height = 248
    Hint = '双击修改记录'
    Color = 15594976
    ColCount = 8
    DefaultRowHeight = 18
    FixedColor = 8564917
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnDblClick = sgPickupDblClick
    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 = clNavy
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '行号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '备单行号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '货物编号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '单位'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '提货数量'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '批次'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -13
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '货物名称'
        ColumnWidth = 0
      end>
    ColWidths = (
      10
      31
      57
      115
      33
      65
      33
      113)
  end
  object FloatPanel2: TFloatPanel [2]
    Left = 2
    Top = 204
    Width = 771
    Height = 253
    Color = 15594976
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 3
    object Label10: TLabel
      Left = 28
      Top = 50
      Width = 72
      Height = 12
      Caption = '提货单行号：'
    end
    object Label11: TLabel
      Left = 28
      Top = 124
      Width = 60
      Height = 12
      Caption = '订单行号：'
    end
    object Label12: TLabel
      Left = 28
      Top = 87
      Width = 72
      Height = 12
      Caption = '备货单行号：'
    end
    object Label13: TLabel
      Left = 511
      Top = 79
      Width = 60
      Height = 12
      Caption = '需提数量：'
    end
    object Label14: TLabel
      Left = 28
      Top = 198
      Width = 60
      Height = 12
      Caption = '货物代码：'
    end
    object Label15: TLabel
      Left = 264
      Top = 88
      Width = 60
      Height = 12
      Caption = '计量单位：'
    end
    object Label16: TLabel
      Left = 264
      Top = 126
      Width = 60
      Height = 12
      Caption = '换算系数：'
    end
    object Label17: TLabel
      Left = 511
      Top = 117
      Width = 60
      Height = 12
      Caption = '提货货位：'
    end
    object Label18: TLabel
      Left = 28
      Top = 161
      Width = 60
      Height = 12
      Caption = '提货批号：'
    end
    object Label19: TLabel
      Left = 511
      Top = 155
      Width = 60
      Height = 12
      Caption = '运输方式：'
    end
    object Label20: TLabel
      Left = 511
      Top = 193
      Width = 60
      Height = 12
      Caption = '结算方式：'
    end
    object Label21: TLabel
      Left = 264
      Top = 51
      Width = 60
      Height = 12
      Caption = '货物名称：'
    end
    object Label22: TLabel
      Left = 264
      Top = 163
      Width = 60
      Height = 12
      Caption = '备货数量：'
    end
    object Label23: TLabel
      Left = 264
      Top = 200
      Width = 60
      Height = 12
      Caption = '已提数量：'
    end
    object sePickupdLine: TSDEdit
      Left = 107
      Top = 41
      Width = 125
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 0
      Text = 'sePickupdLine'
      SplitSymbol = ' | '
    end
    object sePickupdBatchCode: TSDEdit
      Left = 107
      Top = 156
      Width = 125
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 1
      Text = 'sePickupdBatchCode'
      SplitSymbol = ' | '
    end
    object sePickupdGoodsName: TSDEdit
      Left = 333
      Top = 44
      Width = 128
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 2
      Text = 'sePickupdGoodsName'
      SplitSymbol = ' | '
    end
    object sePickupdEnrate: TSDEdit
      Left = 333
      Top = 120
      Width = 128
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 3
      Text = 'sePickupdEnrate'
      SplitSymbol = ' | '
    end
    object sePickupdQty: TSDEdit
      Left = 576
      Top = 75
      Width = 121
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 4
      Text = 'sePickupdQty'
      OnExit = sePickupdQtyExit
      SplitSymbol = ' | '
    end
    object scPickupdLocCode: TSDComboBox
      Left = 576
      Top = 113
      Width = 121
      Height = 20
      Color = 15594976
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 5
      Text = 'scPickupdLocCode'
    end
    object scPickupdTransCode: TSDComboBox
      Left = 576
      Top = 151
      Width = 121
      Height = 20
      Color = 15594976