inv_vendorinsumqry_d.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_VendorInSumQry_D: TFrm_Inv_VendorInSumQry_D
  Left = 24
  Top = 217
  Caption = '供应商到货汇总查询明细'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '供应商到货汇总查询明细'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 66
      Caption = '日期,单据号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'InvBillDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '日期'
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '仓库标识'
          Width = 92
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '采购订单号'
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PoLineNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '采购订单行号'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税价'
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Employee'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '录入员'
          Width = 89
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPosition'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货位'
          Width = 98
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=192.168.0.' +
      '151;Use procedure for Prepare=1;Auto Translate=True;Packet Size=' +
      '4096;Workstation ID=XYB'
    SQL.Strings = (
      'select B.InvBillDate,B.whCode+ '#39' '#39'+w.whName whFlag,B.whCode,'
      '       B.InvBillNo,B.PoNo,BL.PoLineNo,Bl.InvBillQty,'
      '              B.RealBillFlag,'
      '       BL.InvBillPrice,Bl.InvBillAmount,B.BillTypeCode,'
      '       B.wh_EmployeeCode+'#39' '#39'+E.EmployeeName Employee,'
      '       B.WhPositionCode+'#39' '#39'+Wp.WhPositionName WhPosition  '
      '  from InvInBill B'
      '  join InvInBillLine Bl'
      '    on B.InvBillid=Bl.InvBillId'
      '  Join Item I'
      '    On I.ItemCode=Bl.ItemCode'
      '  Join Vendor V'
      '    On V.VendorCode=B.VendorCode'
      '  Join Warehouse W'
      '    On W.whCode=B.whCode'
      '  Join WhPosition Wp'
      '    on wp.WhPositionCode=B.WhPositionCode'
      '  Join Employee E'
      '    On E.EmployeeCode=B.Wh_EmployeeCode'
      ' where B.VendorCode='#39'00110008'#39' and Bl.ItemCode='#39'3100000502'#39' '
      '    ')
    object AdoQry_MainInvBillDate: TDateTimeField
      FieldName = 'InvBillDate'
    end
    object AdoQry_MainwhFlag: TStringField
      FieldName = 'whFlag'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_MainInvBillNo: TStringField
      FieldName = 'InvBillNo'
      Size = 10
    end
    object AdoQry_MainPoNo: TStringField
      FieldName = 'PoNo'
      Size = 16
    end
    object AdoQry_MainPoLineNo: TIntegerField
      FieldName = 'PoLineNo'
    end
    object AdoQry_MainInvBillQty: TFloatField
      FieldName = 'InvBillQty'
    end
    object AdoQry_MainEmployee: TStringField
      FieldName = 'Employee'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainWhPosition: TStringField
      FieldName = 'WhPosition'
      ReadOnly = True
      Size = 45
    end
    object AdoQry_MainInvBillPrice: TFloatField
      FieldName = 'InvBillPrice'
    end
    object AdoQry_MainInvBillAmount: TFloatField
      FieldName = 'InvBillAmount'
    end
    object AdoQry_MainwhCode: TStringField
      FieldName = 'whCode'
      Size = 4
    end
    object AdoQry_MaInBillTypeCode: TStringField
      FieldName = 'BillTypeCode'
      Size = 4
    end
    object AdoQry_MainRealBillFlag: TIntegerField
      FieldName = 'RealBillFlag'
    end
  end
end