inv_pohint.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_PoHint: TFrm_Inv_PoHint
  Left = 12
  Top = 125
  ActiveControl = DBGridEh
  Caption = '采购订单信息提示'
  ClientHeight = 441
  ClientWidth = 765
  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 = 548
    Top = 409
  end
  inherited btn_Cancel: TButton
    Left = 657
    Top = 409
  end
  object DBGridEh: TDBGridEh [6]
    Left = 1
    Top = 43
    Width = 760
    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.Caption = '是否待检'
        Width = 35
      end
      Item
        FieldName = 'ReferencedPrice'
        Title.Alignment = taCenter
        Title.Caption = '暂估价'
        Width = 43
      end
      Item
        FieldName = 'PoLineNo'
        Title.Alignment = taCenter
        Title.Caption = '订单行号'
        Title.TitleButton = True
        Width = 34
      end
      Item
        FieldName = 'ItemCodeName'
        Title.Alignment = taCenter
        Title.Caption = '物料标识'
        Width = 267
      end
      Item
        FieldName = 'PoLineDate'
        Title.Alignment = taCenter
        Title.Caption = '约定交货日期'
        Title.TitleButton = True
        Width = 65
      end
      Item
        FieldName = 'PoQty'
        Title.Alignment = taCenter
        Title.Caption = '约定交货量'
        Width = 56
      end
      Item
        FieldName = 'PoRealInQty'
        Title.Alignment = taCenter
        Title.Caption = '累计入库数量'
        Width = 68
      end
      Item
        FieldName = 'PoInQty'
        Title.Alignment = taCenter
        Title.Caption = '累计待检数量'
        Width = 67
      end
      Item
        FieldName = 'Qty'
        Title.Alignment = taCenter
        Title.Caption = '可入库量'
        Width = 59
      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