pm_enter_newautopo.dfm

一个MRPII系统源代码版本

    Height = 244
    inherited Image3: TImage
      Width = 782
      Height = 244
    end
    inherited DBGridEh: TDBGridEh
      Width = 782
      Height = 244
      Columns = <
        Item
          FieldName = 'PONO'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POLINENo'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POLineDATE'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POQTY'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PONoFinishQty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POREFERENCEDPRICE'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POLINESTATUS'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoNoTaxPrice'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PONoTaxAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoTaxPrice'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoTaxAmount'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'POStArtWorkDate'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 782
      Height = 244
      Align = alClient
      DataSource = DataSource
      ReadOnly = True
      TabOrder = 1
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = Act_ModifyExecute
      FrozenCols = 4
      UseMultiTitle = True
      Columns = <
        Item
          FieldName = 'POLINENo'
          Title.Alignment = taCenter
          Title.Caption = '订单行号'
          Width = 28
        end
        Item
          FieldName = 'ItemCode'
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 125
        end
        Item
          FieldName = 'ItemName'
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 250
        end
        Item
          Alignment = taCenter
          FieldName = 'UomName'
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 32
        end
        Item
          FieldName = 'POLINESTATUS'
          PickList.Strings = (
            '1 系统建议'
            '5 准备'
            '6 下达'
            '7 关闭'
            '8 已结算')
          Title.Alignment = taCenter
          Title.Caption = '行状态'
          Width = 45
          KeyList.Strings = (
            '1'
            '5'
            '6'
            '7'
            '8')
        end
        Item
          FieldName = 'POQTY'
          Title.Alignment = taCenter
          Title.Caption = '约定交货量'
          Width = 70
        end
        Item
          FieldName = 'PONoFinishQty'
          Title.Alignment = taCenter
          Title.Caption = '未结量'
          Width = 62
        end
        Item
          FieldName = 'PoTaxPrice'
          Title.Alignment = taCenter
          Title.Caption = '含税价'
          Width = 65
          Visible = False
        end
        Item
          FieldName = 'PoTaxAmount'
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 70
          Visible = False
        end
        Item
          FieldName = 'PoNoTaxPrice'
          Title.Alignment = taCenter
          Title.Caption = '未税价'
          Width = 65
          Visible = False
        end
        Item
          FieldName = 'PONoTaxAmount'
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 70
          Visible = False
        end
        Item
          Alignment = tArightJustify
          FieldName = 'POStArtWorkDate'
          Title.Alignment = taCenter
          Title.Caption = '约定开工日'
          Width = 70
        end
        Item
          Alignment = tArightJustify
          FieldName = 'POLineDATE'
          Title.Alignment = taCenter
          Title.Caption = '约定交货日'
          Width = 70
        end
        Item
          FieldName = 'POREFERENCEDPRICE'
          PickList.Strings = (
            ' '
            '是')
          Title.Alignment = taCenter
          Title.Caption = '是否参考价'
          Width = 42
          KeyList.Strings = (
            '0'
            '1')
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 413
    Top = 179
  end
  inherited ActionList: TActionList
    Top = 192
    inherited Act_InsertLine: TAction
      Enabled = False
      Visible = False
    end
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = ''
    SQL.Strings = (
      
        'select Top 0 Poline.*,Item.ItemName,Uom.UomName from Poline join' +
        ' Item '
      
        'on Poline.ItemCode=Item.ItemCode join Uom on Item.UomCode=Uom.uo' +
        'mCode')
    object AdoQry_BodyPONO: TStringField
      FieldName = 'PONO'
      Size = 16
    end
    object AdoQry_BodyPOLINENo: TIntegerField
      FieldName = 'POLINENo'
      Origin = 'PoLine'
    end
    object AdoQry_BodyItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'PoLine'
      Size = 16
    end
    object AdoQry_BodyPOLineDATE: TDateTimeField
      FieldName = 'POLineDATE'
      Origin = 'PoLine'
      DisplayFormat = 'yyyy.mm.dd'
    end
    object AdoQry_BodyPOQTY2: TFloatField
      FieldName = 'POQTY'
      Origin = 'PoLine'
      DisplayFormat = '#,##0.##'
    end
    object AdoQry_BodyPOQTY: TFloatField
      FieldName = 'maxQTY'
      Origin = 'PoLine'
      DisplayFormat = '#,##0.##'
    end
    object AdoQry_BodyPONoFinishQty: TFloatField
      FieldName = 'PONoFinishQty'
      Origin = 'PoLine'
      DisplayFormat = '#,##0.##'
    end
    object AdoQry_BodyPOREFERENCEDPRICE: TIntegerField
      FieldName = 'POREFERENCEDPRICE'
      Origin = 'PoLine'
    end
    object AdoQry_BodyPOLINESTATUS: TIntegerField
      FieldName = 'POLINESTATUS'
      Origin = 'PoLine'
    end
    object AdoQry_BodyPoNoTaxPrice: TFloatField
      FieldName = 'PoNoTaxPrice'
      Origin = 'PoLine'
      DisplayFormat = '#,##0.00'
    end
    object AdoQry_BodyPONoTaxAmount: TBCDField
      FieldName = 'PONoTaxAmount'
      Origin = 'PoLine'
      DisplayFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object AdoQry_BodyPoTaxPrice: TFloatField
      FieldName = 'PoTaxPrice'
      Origin = 'PoLine'
      DisplayFormat = '#,##0.00'
    end
    object AdoQry_BodyPoTaxAmount: TBCDField
      FieldName = 'PoTaxAmount'
      Origin = 'PoLine'
      DisplayFormat = '#,##0.00'
      Precision = 18
      Size = 2
    end
    object AdoQry_BodyPOStArtWorkDate: TDateTimeField
      FieldName = 'POStArtWorkDate'
      Origin = 'PoLine'
      DisplayFormat = 'yyyy.mm.dd'
    end
    object AdoQry_BodyItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 60
    end
    object AdoQry_BodyUomName: TStringField
      FieldName = 'UomName'
      Origin = 'Uom'
      Size = 10
    end
    object AdoQry_BodySsQty: TFloatField
      FieldName = 'SsQty'
      Origin = 'PoLine'
    end
    object AdoQry_BodyLimItOut: TIntegerField
      FieldName = 'LimItOut'
    end
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
    Left = 536
    Top = 257
  end
  object AdoQry_Head1: TAdoQuery
    Parameters = <>
    Left = 250
    Top = 246
  end
  object AdoQry_Temp: TAdoQuery
    Parameters = <>
    Left = 136
    Top = 239
  end
end