ap_qry_purchaseinvoicedetai.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Qry_PurchaseInvoiceDetail: TFrm_Ap_Qry_PurchaseInvoiceDetail
  Left = 58
  Top = 103
  Caption = '采购发票明细表'
  ClientHeight = 431
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Hint: TPanel
    Top = 405
  end
  inherited Pnl_Body: TPanel
    Height = 308
    object Splitter1: TSplitter [0]
      Left = 0
      Top = 158
      Width = 694
      Height = 1
      Cursor = crVSplit
      Align = alBottom
      Color = clScrollBar
      ParentColor = False
    end
    inherited Image3: TImage
      Height = 140
    end
    inherited DBGridEh: TDBGridEh
      Height = 140
      Columns = <
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorB'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商标识'
          Width = 304
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发票日期'
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发票号'
          Width = 92
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceInputDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '记帐日期'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币标识'
          Width = 107
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoicetax'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发票税额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发票总金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '录入人员代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '录入人员标识'
          Width = 121
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoiceRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 333
          KeyList.Strings = ()
        end>
    end
    object Panel2: TPanel
      Left = 0
      Top = 288
      Width = 694
      Height = 20
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Label6: TLabel
        Left = 12
        Top = 5
        Width = 84
        Height = 12
        Caption = '未税金额合计：'
      end
    end
    object DBGridEh2: TDBGridEh
      Left = 0
      Top = 159
      Width = 694
      Height = 129
      Align = alBottom
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 2
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnGetCellParams = DBGridEhGetCellParams
      Columns = <
        Item
          FieldName = 'zhaiyao'
          Title.Alignment = taCenter
          Title.Caption = '仓库标识'
          Width = 188
        end
        Item
          FieldName = 'InvBillno'
          Title.Alignment = taCenter
          Title.Caption = '单据号'
          Width = 144
        end
        Item
          FieldName = 'NoTaxAmount'
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 176
        end
        Item
          FieldName = 'Amount'
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 151
        end>
    end
    object Panel1: TPanel
      Left = 0
      Top = 140
      Width = 694
      Height = 18
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 3
      object Label2: TLabel
        Left = 8
        Top = 4
        Width = 84
        Height = 12
        Caption = '发票金额合计：'
      end
      object Label4: TLabel
        Left = 160
        Top = 4
        Width = 60
        Height = 12
        Caption = '税额合计：'
      end
      object Label5: TLabel
        Left = 304
        Top = 4
        Width = 84
        Height = 12
        Caption = '未税金额合计：'
      end
    end
  end
  inherited ActionList: TActionList
    Left = 312
    Top = 0
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = ''
    SQL.Strings = (
      'select ApInvoice.ApInvOICEID,'
      '       ApInvoice.VendorCode,'
      '       ApInvoice.VendorCode+'#39' '#39'+Vendor.VendorName as VendorB,'
      '       ApInvoice.CurrencyCode,'
      
        '       ApInvoice.CurrencyCode+'#39' '#39'+Currency.CurrencyName as Curre' +
        'ncyCodeName,'
      '       ApInvoice.EmployeeCode,'
      
        '       ApInvoice.EmployeeCode+'#39' '#39'+Employee.EmployeeName as Emplo' +
        'yeeCodeName,        '
      '       ApInvoice.ApInvoiceNo,'
      '       ApInvoice.ApInvoiceDate,'
      '       ApInvoice.ApInvoiceInputDate,'
      '       ApInvoice.ApInvoiceAmount,'
      '       ApInvoice.ApInvoicetax,'
      
        '       ApInvoice.ApInvoiceAmount-(ApInvoice.ApInvoicetax) as Tot' +
        'alAmount,'
      '       ApInvoice.ApInvoiceRemArk'
      
        ' from ApInvoice join Vendor on ApInvoice.VendorCode =Vendor.vend' +
        'orCode'
      
        '      join Employee on ApInvoice.EmployeeCode=Employee.Employeec' +
        'ode'
      
        '      join currency on ApInvoice.CurrencyCode=Currency.CurrencyC' +
        'ode')
    Left = 8
    Top = 33
    object AdoQry_MainApInvOICEID: TFloatField
      FieldName = 'ApInvOICEID'
      ReadOnly = True
    end
    object AdoQry_MaInvendorCode: TStringField
      FieldName = 'VendorCode'
      Origin = 'ApInvoice'
      Size = 12
    end
    object AdoQry_MaInvendorB: TStringField
      FieldName = 'VendorB'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainApInvoiceDate: TDateTimeField
      FieldName = 'ApInvoiceDate'
      Origin = 'ApInvoice'
    end
    object AdoQry_MainApInvoiceNo: TStringField
      FieldName = 'ApInvoiceNo'
      Origin = 'ApInvoice'
    end
    object AdoQry_MainCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'ApInvoice'
      Size = 3
    end
    object AdoQry_MainCurrencyCodeName: TStringField
      FieldName = 'CurrencyCodeName'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainEmployeeCodeName: TStringField
      FieldName = 'EmployeeCodeName'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainApInvoiceAmount: TFloatField
      FieldName = 'ApInvoiceAmount'
      Origin = 'ApInvoice'
    end
    object AdoQry_MainApInvoicetax: TFloatField
      FieldName = 'ApInvoicetax'
      Origin = 'ApInvoice'
    end
    object AdoQry_MainTotalAmount: TFloatField
      FieldName = 'TotalAmount'
      ReadOnly = True
    end
    object AdoQry_MainApInvoiceInputDate: TDateTimeField
      FieldName = 'ApInvoiceInputDate'
      Origin = 'ApInvoice'
    end
    object AdoQry_MainEmployeeCode: TStringField
      FieldName = 'EmployeeCode'
      Origin = 'ApInvoice'
      Size = 30
    end
    object AdoQry_MainApInvoiceRemArk: TStringField
      FieldName = 'ApInvoiceRemArk'
      Origin = 'ApInvoice'
      Size = 100
    end
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
    Left = 48
    Top = 33
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 344
    Top = 1
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 384
    Top = 1
  end
  object AdoQry_Detail: TAdoQuery
    Parameters = <>
    Left = 88
    Top = 30
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Detail
    Left = 136
    Top = 30
  end
end