ap_qry_currentap.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Qry_CurrentAp: TFrm_Ap_Qry_CurrentAp
  Left = 169
  Top = 118
  Caption = #20379#24212#21830#24212#20184#24080#27454#20449#24687#34920
  ClientHeight = 553
  ClientWidth = 800
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
    inherited ToolBar: TToolBar
      inherited ToolButton6: TToolButton
        Action = Act_Sum
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = #20379#24212#21830#24212#20184#24080#27454#20449#24687#34920
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    Height = 0
    inherited Image1: TImage
      Width = 800
      Height = 0
    end
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = #20840#37096
    end
    inherited Lbl_Order: TLabel
      Width = 60
      Caption = #20379#24212#21830#20195#30721
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 528
    Width = 800
    inherited Image4: TImage
      Width = 800
    end
  end
  inherited Pnl_Body: TPanel
    Top = 55
    Width = 800
    Height = 473
    inherited Image3: TImage
      Width = 800
      Height = 473
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 473
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      VTitleMargin = 8
      Columns = <
        item
          EditButtons = <>
          FieldName = 'VendorCode'
          Footers = <>
          Title.Caption = #20379#24212#21830#20195#30721
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'VendorB'
          Footers = <>
          Title.Caption = #20379#24212#21830#26631#35782
          Width = 203
        end
        item
          EditButtons = <>
          FieldName = 'currencyB'
          Footers = <>
          Title.Caption = #24065#31181#26631#35782
          Width = 55
        end
        item
          EditButtons = <>
          FieldName = 'ApNoInvoice'
          Footers = <>
          Title.Caption = #26410#24320#21457#31080#24212#20184#27454'('#21547#31246')'
          Width = 131
        end
        item
          EditButtons = <>
          FieldName = 'ApInvoiced'
          Footers = <>
          Title.Caption = #24050#24320#21457#31080#24212#20184#27454'('#21547#31246')'
          Width = 131
        end
        item
          EditButtons = <>
          FieldName = 'Total'
          Footers = <>
          Title.Caption = #21512#35745
          Width = 118
        end>
    end
  end
  inherited AdoQry_Tmp: TADOQuery
    Top = 91
  end
  inherited AdoQry_Main: TADOQuery
    SQL.Strings = (
      'select  CurrentAp.VendorCode,'
      
        '             CurrentAp.VendorCode+'#39' '#39'+Vendor.VendorName as vendo' +
        'rB,'
      
        '                        CurrentAp.currencyCode+'#39' '#39'+currency.curr' +
        'encyName as currencyB,'
      '                        CurrentAp.ApNoInvoice,'
      '                        CurrentAp.ApInvoiced,'
      
        '                        CurrentAp.ApNoInvoice+CurrentAp.ApInvoic' +
        'ed as Total'
      '                 from CurrentAp'
      
        '                 left join currency on CurrentAp.currencyCode=cu' +
        'rrency.currencyCode'
      
        '                 left join Vendor on CurrentAp.VendorCode=Vendor' +
        '.VendorCode')
    object AdoQry_MaInvendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'CurrentAp'
      Size = 12
    end
    object AdoQry_MaInvendorB: TStringField
      FieldName = 'VendorB'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MaincurrencyB: TStringField
      FieldName = 'currencyB'
      ReadOnly = True
      Size = 33
    end
    object AdoQry_MainApNoInvoice: TBCDField
      FieldName = 'ApNoInvoice'
      Origin = 'CurrentAp'
      Precision = 12
      Size = 2
    end
    object AdoQry_MainApInvoiced: TBCDField
      FieldName = 'ApInvoiced'
      Origin = 'CurrentAp'
      Precision = 12
      Size = 2
    end
    object AdoQry_MainTotal: TBCDField
      FieldName = 'Total'
      Origin = 'CurrentAp'
      ReadOnly = True
      Precision = 13
      Size = 2
    end
  end
end