inv_checkinpohint.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_CheckInPoHint: TFrm_Inv_CheckInPoHint
  Left = 14
  Top = 97
  ActiveControl = DBGridEh
  Caption = '采购订单待检信息提示'
  ClientHeight = 450
  ClientWidth = 779
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 24
    Top = 20
    Width = 72
    Height = 12
    Caption = '采购订单号：'
  end
  object Lbl_PoNo1: TLabel [1]
    Left = 96
    Top = 20
    Width = 54
    Height = 12
    Caption = 'Lbl_PoNo1'
  end
  object Label2: TLabel [2]
    Left = 8
    Top = 416
    Width = 60
    Height = 12
    Caption = '物料标识：'
  end
  object DBText1: TDBText [3]
    Left = 72
    Top = 416
    Width = 42
    Height = 12
    AutoSize = True
    DataField = 'ItemCodeName'
    DataSource = DS_Hint
  end
  inherited btn_ok: TButton
    Left = 610
    Top = 414
  end
  inherited btn_Cancel: TButton
    Left = 688
    Top = 414
  end
  object DBGridEh: TDBGridEh [6]
    Left = 1
    Top = 43
    Width = 776
    Height = 353
    DataSource = DS_Hint
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.ChArset = GB2312_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = btn_okClick
    UseMultiTitle = True
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghclearSelection, dghAutoSortMArking, dghMultiSortMArking]
    OnGetCellParams = DBGridEhGetCellParams
    Columns = <
      Item
        FieldName = 'iScheck'
        Title.Alignment = taCenter
        Title.Caption = '是否待检'
        Width = 36
      end
      Item
        FieldName = 'ReferencedPrice'
        Title.Alignment = taCenter
        Title.Caption = '暂估价'
        Width = 43
      end
      Item
        FieldName = 'PoLineNo'
        Title.Alignment = taCenter
        Title.Caption = '订单行号'
        Title.TitleButton = True
        Width = 37
      end
      Item
        FieldName = 'ItemCodeName'
        Title.Alignment = taCenter
        Title.Caption = '物料标识'
        Width = 197
      end
      Item
        FieldName = 'PoLineDate'
        Title.Alignment = taCenter
        Title.Caption = '约定交货日期'
        Title.TitleButton = True
        Width = 74
      end
      Item
        FieldName = 'PoQty'
        Title.Alignment = taCenter
        Title.Caption = '约定交货量'
        Width = 63
      end
      Item
        FieldName = 'PoRealInQty'
        Title.Alignment = taCenter
        Title.Caption = '采购入库总量'
        Width = 71
      end
      Item
        FieldName = 'PoInQty'
        Title.Alignment = taCenter
        Title.Caption = '待检入库总量'
        Width = 74
      end
      Item
        FieldName = 'Qty'
        Title.Alignment = taCenter
        Title.Caption = '可待检入库量'
        Width = 70
      end
      Item
        FieldName = 'OnCheckQty'
        Title.Alignment = taCenter
        Title.Caption = '质检合格总量'
        Width = 75
      end>
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 368
    Top = 8
  end
  object AdoQry_Hint: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=MDRCMRM;Data Source=192.168.0.8;' +
      'Use procedure for Prepare=1;Auto Translate=True;Packet Size=4096' +
      ';Workstation ID=XYB'
    CurSorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select PoLineNo,PoLineDate,PoQty,PoRealInQty,PoInQty'
      '    ,PoQty-PoRealInQty-PoInQty As Qty'
      '     From PoLine'
      '     Where PoLineStatus=6'
      '     Order By PoLineNo')
    Left = 176
    Top = 16
  end
  object DS_Hint: TDataSource
    DataSet = AdoQry_Hint
    Left = 208
    Top = 16
  end
end