purchinf.dfm

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

          64
          32
          32)
      end
    end
    object TabDoh: TTabSheet
      Caption = '采购单'
      ImageIndex = 3
      object sgPod: TSDGrid
        Left = 0
        Top = 69
        Width = 785
        Height = 419
        Color = clWhite
        ColCount = 19
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        FixedCols = 2
        RowCount = 3
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        Columns = <
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '采购单号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '采购单行号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '物料编码'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '物料名称'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '规格型号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '单位'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '数量'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '单价'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '金额'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clBlack
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '送货数量'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clBlack
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '收货数量'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clBlack
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '退货数量'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clBlack
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '返修数量'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clBlack
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '换货数量'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clBlack
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '在途数量'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clBlack
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '订单号'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clBlack
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '审核'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clBlack
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '结清'
            ColumnWidth = 0
          end>
        ColWidths = (
          4
          112
          66
          82
          71
          50
          59
          49
          35
          65
          56
          58
          64
          64
          64
          69
          64
          32
          29)
      end
    end
    object TabSee: TTabSheet
      Caption = '催货单'
      ImageIndex = 5
      object sgUld: TSDGrid
        Left = 0
        Top = 69
        Width = 787
        Height = 419
        Color = clWhite
        ColCount = 13
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        FixedCols = 2
        RowCount = 3
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        Columns = <
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '函号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '行号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '采购单号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '物料编号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '物料名称'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '规格型号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '单位'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '采购数量'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '未到货数量'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '发货日期'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '交货时间'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '拖期时间'
            ColumnWidth = 0
          end>
        ColWidths = (
          4
          114
          35
          73
          68
          88
          87
          35
          93
          64
          64
          64
          64)
      end
    end
    object TabSheet1: TTabSheet
      Caption = '采购收货单'
      ImageIndex = 6
      object sgPrecd: TSDGrid
        Left = 0
        Top = 69
        Width = 787
        Height = 418
        Color = clWhite
        ColCount = 18
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        FixedCols = 2
        RowCount = 3
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        Columns = <
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '收货单号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '收货单行号'
            ColumnWidth = 0