atpquery.dfm

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· DFM 代码 · 共 680 行 · 第 1/2 页

inherited frmATPQuery: TfrmATPQuery
  Left = 86
  Top = 97
  VertScrollBar.Range = 0
  BorderStyle = bsSingle
  Caption = 'ATP查询'
  ClientHeight = 377
  ClientWidth = 625
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 356
    Width = 625
    Height = 21
  end
  inherited CoolBar1: TCoolBar
    Width = 625
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 625
      end>
    inherited tbMainBar: TToolBar
      Width = 612
      inherited tbQuery: TToolButton
        Visible = False
      end
    end
  end
  object pctMain: TPageControl [2]
    Left = 0
    Top = 39
    Width = 625
    Height = 317
    ActivePage = atpClothInv
    Align = alClient
    TabOrder = 2
    object atpClothInv: TTabSheet
      Caption = '面料库存'
      object sgATPCloth: TSDGrid
        Left = 0
        Top = 0
        Width = 617
        Height = 290
        Align = alClient
        ColCount = 8
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goAlwaysShowEditor]
        ParentCtl3D = False
        TabOrder = 0
        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 = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            ColHorAlign = haCenter
            TitleString = '订单号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            ColHorAlign = haCenter
            TitleString = '面料号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            ColHorAlign = haCenter
            TitleString = '面料名称'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColHorAlign = haRight
            TitleString = '需求量'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColHorAlign = haRight
            TitleString = '现有库存'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColHorAlign = haRight
            TitleString = '已分配量'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColHorAlign = haRight
            TitleString = '可分配量'
            ColumnWidth = 0
          end>
        ColWidths = (
          3
          100
          92
          87
          77
          74
          82
          84)
      end
    end
    object pctPurchase: TTabSheet
      Caption = ' 采  购 '
      ImageIndex = 1
      object sgATPPurchase: TSDGrid
        Left = 0
        Top = 0
        Width = 604
        Height = 271
        Align = alClient
        ColCount = 7
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goAlwaysShowEditor]
        ParentCtl3D = False
        TabOrder = 0
        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 = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '面料编码'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            ColHorAlign = haRight
            TitleString = '采购提前期'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            ColHorAlign = haRight
            TitleString = '采购能力'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            ColHorAlign = haRight
            TitleString = '请购数量'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColHorAlign = haRight
            TitleString = '采购数量'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColHorAlign = haRight
            TitleString = '在途单数量'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '供应商现有库存'
            ColumnWidth = 0
          end>
        ColWidths = (
          2
          100
          99
          99
          85
          97
          93)
      end
    end
    object pctSale: TTabSheet
      Caption = ' 销  售 '
      ImageIndex = 2
      object sgATPSale: TSDGrid
        Left = 0
        Top = 0
        Width = 617
        Height = 290
        Align = alClient
        ColCount = 4
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goAlwaysShowEditor]
        ParentCtl3D = False
        TabOrder = 0
        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 = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '面料'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '当日预定'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '当日接单'
            ColumnWidth = 0
          end>
        ColWidths = (
          4
          124
          86
          107)
      end
    end
    object pctAnswerDate: TTabSheet
      Caption = '答应时间'
      ImageIndex = 3
      object fpAnswerDate: TFloatPanel
        Left = 0
        Top = 0
        Width = 604
        Height = 271
        Align = alClient
        Color = clWhite
        Caption = 'ATP查询'
        ParentColor = False
        TabOrder = 0
        object GroupBox1: TGroupBox
          Left = 307
          Top = 20
          Width = 265
          Height = 223
          Caption = '订单数量平均参考：'
          TabOrder = 0
          object Label2: TLabel
            Left = 19
            Top = 73
            Width = 72
            Height = 12
            Caption = '最大接单量：'
          end
          object Label3: TLabel
            Left = 19
            Top = 104
            Width = 72
            Height = 12
            Caption = '最小接单量：'