ap_qry_aptotalofvendor.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Qry_ApTotalOfVendor: TFrm_Ap_Qry_ApTotalOfVendor
  Left = 135
  Top = 288
  Caption = #24212#20184#24080#27454#27719#24635#34920'-'#25353#20379#24212#21830
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        item
          EditButtons = <>
          FieldName = 'VendorCode'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20379#24212#21830#20195#30721
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'VendorB'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20379#24212#21830#26631#35782
          Width = 126
        end
        item
          EditButtons = <>
          FieldName = 'currencyCode'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #36135#24065#20195#30721
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'currencyB'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #36135#24065#26631#35782
          Width = 103
        end
        item
          EditButtons = <>
          FieldName = 'ApNoInvoice'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #26410#24320#21457#31080#24212#20184#27454'('#21547#31246')'
          Width = 145
        end
        item
          EditButtons = <>
          FieldName = 'ApInvoiced'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #24050#24320#21457#31080#24212#20184#27454'('#21547#31246')'
          Width = 141
        end
        item
          EditButtons = <>
          FieldName = 'Total'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #21512#35745
          Width = 147
        end>
    end
  end
  inherited AdoQry_Tmp: TADOQuery
    Left = 109
    Top = 35
  end
  inherited ActionList: TActionList
    Left = 416
    Top = 0
  end
  inherited AdoQry_Main: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select CurrentAp.VendorCode,'
      '       CurrentAp.VendorCode+'#39' '#39'+Vendor.VendorName as VendorB,'
      '        CurrentAp.currencyCode,'
      
        '       CurrentAp.currencyCode+'#39' '#39'+currency.currencyName as curre' +
        'ncyB,'
      '       CurrentAp.ApNoInvoice,'
      '       CurrentAp.ApInvoiced,'
      '       CurrentAp.ApNoInvoice+CurrentAp.ApInvoiced as Total'
      'from CurrentAp'
      
        'left join currency on CurrentAp.currencyCode=currency.currencyco' +
        'de'
      'left join Vendor on CurrentAp.VendorCode=Vendor.VendorCode')
    Left = 32
    Top = 33
    object AdoQry_MaInvendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'CurrentAp'
      Size = 12
    end
    object AdoQry_MaInvendorB: TStringField
      FieldName = 'VendorB'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MaincurrencyCode: TStringField
      FieldName = 'currencyCode'
      Origin = 'CurrentAp'
      Size = 3
    end
    object AdoQry_MaincurrencyB: TStringField
      FieldName = 'currencyB'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainApNoInvoice: TFloatField
      FieldName = 'ApNoInvoice'
      Origin = 'CurrentAp'
    end
    object AdoQry_MainApInvoiced: TFloatField
      FieldName = 'ApInvoiced'
      Origin = 'CurrentAp'
    end
    object AdoQry_MainTotal: TFloatField
      FieldName = 'Total'
      ReadOnly = True
    end
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
    Left = 64
    Top = 33
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 368
    Top = 1
  end
  inherited PopuPmenu: TPopupMenu
    Left = 456
    Top = 1
  end
end