inv_vendorinsumqry.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_VendorInSumQry: TFrm_Inv_VendorInSumQry
  Left = 207
  Top = 296
  Caption = '供应商到货汇总查询'
  ClientHeight = 464
  ClientWidth = 804
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 804
  end
  inherited Pnl_Title: TPanel
    Width = 804
    Caption = '供应商到货汇总查询'
  end
  inherited Pnl_Head: TPanel
    Width = 804
    inherited Lbl_Order: TLabel
      Width = 114
      Caption = '供应商标识,物料标识'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 416
    Width = 804
    Height = 48
    object Label1: TLabel
      Left = 24
      Top = 8
      Width = 48
      Height = 12
      Caption = '供应商：'
    end
    object DBText1: TDBText
      Left = 72
      Top = 8
      Width = 244
      Height = 17
      DataField = 'VendorName'
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 35
      Top = 29
      Width = 36
      Height = 12
      Caption = '物料：'
    end
    object DBText2: TDBText
      Left = 72
      Top = 29
      Width = 497
      Height = 12
      DataField = 'ItemName'
      DataSource = DataSource
    end
    object Label3: TLabel
      Left = 615
      Top = 8
      Width = 84
      Height = 12
      Caption = '含税金额合计：'
    end
    object Label4: TLabel
      Left = 614
      Top = 32
      Width = 84
      Height = 12
      Caption = '未税金额合计：'
    end
    object edt_Amount: TEdit
      Left = 697
      Top = 4
      Width = 89
      Height = 20
      Enabled = False
      TabOrder = 0
    end
    object edt_Amount2: TEdit
      Left = 697
      Top = 27
      Width = 89
      Height = 20
      Enabled = False
      TabOrder = 1
    end
  end
  inherited Pnl_Body: TPanel
    Width = 804
    Height = 319
    inherited DBGridEh: TDBGridEh
      Width = 804
      Height = 319
      OnDblClick = Act_LookExecute
      Columns = <
        Item
          FieldName = 'VendorFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商标识'
          Width = 202
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 198
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Qty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Price'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税价格'
          Width = 66
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Amount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NoTaxPrice'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税价格'
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NotaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 645
    Top = 371
  end
  inherited ActionList: TActionList
    Left = 536
    Top = 368
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    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 = (
      ''
      ''
      ''
      ''
      ' ')
    Left = 464
    Top = 369
    object AdoQry_MaInvendorFlag: TStringField
      FieldName = 'VendorFlag'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MaInvendorName: TStringField
      FieldName = 'VendorName'
      Size = 60
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Size = 80
    end
    object AdoQry_MaInvendorCode: TStringField
      FieldName = 'VendorCode'
      Size = 12
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Size = 16
    end
    object AdoQry_MainItemFlag: TStringField
      FieldName = 'ItemFlag'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainQty: TFloatField
      FieldName = 'Qty'
      ReadOnly = True
    end
    object AdoQry_MainNotaxAmount: TFloatField
      FieldName = 'NotaxAmount'
      ReadOnly = True
    end
    object AdoQry_MainPrice: TFloatField
      FieldName = 'Price'
      ReadOnly = True
    end
    object AdoQry_MainNoTaxPrice: TFloatField
      FieldName = 'NoTaxPrice'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    DataSet = AdODataSet1
    Left = 608
    Top = 369
  end
  inherited ExtPrintReport: TExtPrintReport
    NeedLine = True
    Left = 296
    Top = 369
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 568
    Top = 369
  end
  object AdODataSet1: TAdODataSet
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B;Data Source=192.168.0.' +
      '151'
    AfterOpen = AdODataSet1AfterOpen
    CommandText = 
      'select B.VendorCode+'#39' '#39'+V.VendorName VendorFlag,'#13#10'       V.Vendo' +
      'rName,I.ItemName,B.VendorCode,Bl.ItemCode,'#13#10'       Bl.ItemCode+'#39 +
      ' '#39'+I.ItemName ItemFlag,'#13#10'       U.UomName,sum(BL.InvBillqty) Qty' +
      ',sum(Bl.InvBillNoTaxAmount)        NotaxAmount,sum(Bl.InvBillAmo' +
      'unt) Amount,'#13#10'       case when sum(Bl.InvBillQty)=0 then 0'#13#10'    ' +
      '   else sum(Bl.InvBillAmount)/sum(Bl.InvBillQty) end Price,'#13#10'   ' +
      '    case when sum(Bl.InvBillQty)=0 then 0 '#13#10'       else sum(Bl.i' +
      'nvBillNoTaxAmount)/sum(BL.InvBillqty) end NoTaxPrice'#13#10'  from Inv' +
      'InBill B'#13#10'  join InvInBillLine Bl'#13#10'    on B.InvBillId=Bl.InvBill' +
      'Id '#13#10'  Join Vendor V'#13#10'    on V.VendorCode=B.VendorCode'#13#10'  Left J' +
      'oin Item I'#13#10'    On I.ItemCode=BL.ItemCode'#13#10'  Left Join Uom U'#13#10'  ' +
      '  On I.UomCode=U.UomCode'#13#10' group by B.VendorCode,Bl.ItemCode,U.u' +
      'omName,V.VendorName,I.ItemName'#13#10
    CommandTimeout = 0
    EnableBCD = False
    Parameters = <>
    Left = 240
    Top = 185
  end
end