pm_qry_poexecutedetail.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Qry_PoExecuteDetail: TFrm_Pm_Qry_PoExecuteDetail
  Left = 3
  Top = 115
  Caption = '采购订单到货情况明细表'
  ClientWidth = 765
  FormStyle = fsMDIChild
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 765
    inherited ToolBar: TToolBar
      Width = 178
      object ToolButton2: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 44
        Style = tbsSeparator
      end
      object ToolButton4: TToolButton
        Left = 31
        Top = 0
        Caption = 'ToolButton4'
        ImageIndex = 12
        OnClick = Act_FilterExecute
      end
      object ToolButton9: TToolButton
        Left = 54
        Top = 0
        Width = 8
        Caption = 'ToolButton9'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object ToolButton8: TToolButton
        Left = 62
        Top = 0
        Action = Act_Excel
      end
      object ToolButton3: TToolButton
        Left = 85
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object ToolButton1: TToolButton
        Left = 93
        Top = 0
        Action = Act_Preview
      end
      object ToolButton7: TToolButton
        Left = 116
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 14
        Style = tbsSeparator
      end
      object ToolButton6: TToolButton
        Left = 124
        Top = 0
        Action = Act_Print
      end
      object ToolButton5: TToolButton
        Left = 147
        Top = 0
        Width = 8
        Caption = 'ToolButton5'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object TlBtn_Exit: TToolButton
        Left = 155
        Top = 0
        Action = Act_Quit
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 765
    BevelOuter = bvRaised
    Caption = '采购订单到货情况明细表'
    inherited Image2: TImage
      Left = 1
      Top = 1
      Width = 763
      Height = 25
    end
  end
  inherited Pnl_Head: TPanel
    Width = 765
    BevelOuter = bvRaised
    inherited Image1: TImage
      Left = 1
      Top = 1
      Width = 763
      Height = 30
    end
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 132
      Height = 12
      Caption = '筛选条件：行状态为下达'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 408
    Width = 765
    Height = 21
    BevelOuter = bvRaised
    inherited Image4: TImage
      Left = 1
      Top = 1
      Width = 763
      Height = 19
    end
  end
  inherited Pnl_Body: TPanel
    Width = 765
    Height = 319
    BevelOuter = bvRaised
    inherited Image3: TImage
      Left = 1
      Top = 1
      Width = 763
      Height = 317
    end
    object DBGridEh1: TDBGridEh
      Left = 1
      Top = 1
      Width = 763
      Height = 317
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDrawDataCell = DBGridEhDrawDataCell
      OnGetCellParams = DBGridEhGetCellParams
      Columns = <
        Item
          FieldName = 'VendorCodeName'
          Title.Alignment = taCenter
          Title.Caption = '供应商标识'
          Width = 207
        end
        Item
          FieldName = 'PoNo'
          Title.Alignment = taCenter
          Title.Caption = '采购订单号'
          Width = 65
        end
        Item
          Alignment = taCenter
          FieldName = 'PoLineNo'
          Title.Alignment = taCenter
          Title.Caption = '行号'
          Width = 32
        end
        Item
          Alignment = taCenter
          FieldName = 'PoLineStatus'
          PickList.Strings = (
            '下达'
            '关闭')
          Title.Alignment = taCenter
          Title.Caption = '行状态'
          Width = 46
          KeyList.Strings = (
            '6'
            '7')
        end
        Item
          FieldName = 'ItemCodeName'
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 250
        end
        Item
          Alignment = taCenter
          FieldName = 'UomCodeName'
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 35
        end
        Item
          Alignment = tArightJustify
          FieldName = 'PoQty'
          Title.Alignment = taCenter
          Title.Caption = '约定交货量'
        end
        Item
          FieldName = 'PoLineDate'
          Title.Alignment = taCenter
          Title.Caption = '约定交货日'
          Width = 65
        end
        Item
          FieldName = 'InvBillNo'
          Title.Alignment = taCenter
          Title.Caption = '入库单号'
        end
        Item
          Alignment = tArightJustify
          FieldName = 'OnCheckQty'
          Title.Alignment = taCenter
          Title.Caption = '待检入库量'
        end
        Item
          Alignment = tArightJustify
          FieldName = 'InvBillQty'
          Title.Alignment = taCenter
          Title.Caption = '采购入库量'
        end
        Item
          FieldName = 'InvBillDate'
          Title.Alignment = taCenter
          Title.Caption = '入库日期'
          Width = 66
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 320
    Top = 0
  end
  inherited ActionList: TActionList
    Left = 456
    Top = 0
    inherited Act_Filter: TAction
      OnExecute = Act_FilterExecute
    end
    inherited Act_Print: TAction
      OnExecute = Act_PrintExecute
    end
    inherited Act_Preview: TAction
      OnExecute = Act_PreviewExecute
    end
    inherited Act_Excel: TAction
      OnExecute = Act_ExcelExecute
    end
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Main
    Left = 266
    Top = 2
  end
  object ExtPrintReport1: TExtPrintReport
    TopBOrdermm = 20
    BottomBOrdermm = 20
    LeftBOrdermm = 10
    RightBOrdermm = 10
    TitleFont.ChArset = DEFAULT_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -19
    TitleFont.Name = '宋体'
    TitleFont.Style = [fsBold]
    SubtitleFont.ChArset = DEFAULT_CHArSET
    SubtitleFont.Color = clWindowText
    SubtitleFont.Height = -13
    SubtitleFont.Name = '宋体'
    SubtitleFont.Style = [fsBold]
    ReportFont.ChArset = DEFAULT_CHArSET
    ReportFont.Color = clWindowText
    ReportFont.Height = -13
    ReportFont.Name = '宋体'
    ReportFont.Style = []
    FootFont.ChArset = DEFAULT_CHArSET
    FootFont.Color = clWindowText
    FootFont.Height = -13
    FootFont.Name = '宋体'
    FootFont.Style = [fsBold]
    NeedLine = False
    SumPerPage = True
    SumTotal = True
    PAperSet = [ptA3, ptA4, ptB4, ptB5, ptNArrow, ptWide]
    PAperOrientation = poPortrait
    ShowPrintRange = True
    PAperType = ptA4
    HeaderGroups = <>
    Headers = <>
    Left = 514
    Top = 2
  end
  object AdoQry_Main: TAdoQuery
    Parameters = <>
    Left = 402
    Top = 10
  end
end