ap_qry_vendorinvoice.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Qry_VendorInvoice: TFrm_Ap_Qry_VendorInvoice
  Left = 63
  Top = 96
  Caption = '供应商采购发票明细表'
  ClientHeight = 395
  ClientWidth = 675
  FormStyle = fsMDIChild
  Visible = True
  Windowstate = wsMaximized
  OnClose = FormClose
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 675
    inherited ToolBar: TToolBar
      Width = 138
      object ToolButton1: TToolButton
        Left = 23
        Top = 0
        Action = Act_Filter
      end
      object ToolButton3: TToolButton
        Left = 46
        Top = 0
        Action = Act_Preview
      end
      object ToolButton4: TToolButton
        Left = 69
        Top = 0
        Action = Act_Print
      end
      object ToolButton5: TToolButton
        Left = 92
        Top = 0
        Action = Act_Excel
      end
      object ToolButton2: TToolButton
        Left = 115
        Top = 0
        Action = Act_Quit
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 675
    Caption = '供应商采购发票明细表'
  end
  inherited Pnl_Head: TPanel
    Width = 675
    Height = 24
    object Label3: TLabel
      Left = 7
      Top = 5
      Width = 60
      Height = 12
      Caption = '发票日期：'
    end
    object TLabel
      Left = 140
      Top = 5
      Width = 12
      Height = 12
      Caption = '至'
    end
    object Lbl_begindate: TLabel
      Left = 64
      Top = 5
      Width = 78
      Height = 12
      Caption = 'Lbl_begindate'
    end
    object Lbl_Enddate: TLabel
      Left = 158
      Top = 5
      Width = 66
      Height = 12
      Caption = 'Lbl_Enddate'
    end
    object Label1: TLabel
      Left = 277
      Top = 5
      Width = 60
      Height = 12
      Caption = '记账日期：'
    end
    object Lbl_begindate1: TLabel
      Left = 337
      Top = 5
      Width = 84
      Height = 12
      Caption = 'Lbl_begindate1'
    end
    object TLabel
      Left = 429
      Top = 5
      Width = 12
      Height = 12
      Caption = '至'
    end
    object Lbl_Enddate1: TLabel
      Left = 448
      Top = 5
      Width = 72
      Height = 12
      Caption = 'Lbl_Enddate1'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 376
    Width = 675
    Height = 19
  end
  inherited Pnl_Body: TPanel
    Top = 81
    Width = 675
    Height = 295
    object Splitter1: TSplitter
      Left = 0
      Top = 143
      Width = 675
      Height = 3
      Cursor = crVSplit
      Align = alBottom
      Color = clScrollBar
      ParentColor = False
    end
    object DBGridEh: TDBGridEh
      Left = 0
      Top = 0
      Width = 675
      Height = 125
      Align = alClient
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnGetCellParams = DBGridEhGetCellParams
      Columns = <
        Item
          FieldName = 'VendorB'
          Title.Alignment = taCenter
          Title.Caption = '供应商标识'
          Width = 210
        end
        Item
          FieldName = 'ApInvoiceNo'
          Title.Alignment = taCenter
          Title.Caption = '发票号'
          Width = 111
        end
        Item
          FieldName = 'ApInvoiceDate'
          Title.Alignment = taCenter
          Title.Caption = '发票日期'
          Width = 65
        end
        Item
          FieldName = 'ApInvoiceInputDate'
          Title.Alignment = taCenter
          Title.Caption = '记账日期'
          Width = 65
        end
        Item
          FieldName = 'ApInvoiceAmount'
          Title.Alignment = taCenter
          Title.Caption = '发票金额'
          Width = 77
        end
        Item
          FieldName = 'ApInvoicetax'
          Title.Alignment = taCenter
          Title.Caption = '税额'
          Width = 67
        end
        Item
          FieldName = 'TotalAmount'
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 65
        end
        Item
          FieldName = 'ApInvoiceremArk'
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 99
        end>
    end
    object DBGridEh2: TDBGridEh
      Left = 0
      Top = 146
      Width = 675
      Height = 129
      Align = alBottom
      DataSource = DataSource2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = DBGridEh2DblClick
      OnGetCellParams = DBGridEhGetCellParams
      Columns = <
        Item
          FieldName = 'zhaiyao'
          Title.Alignment = taCenter
          Title.Caption = '仓库标识'
          Width = 196
        end
        Item
          FieldName = 'InvBillno'
          Title.Alignment = taCenter
          Title.Caption = '单据号'
          Width = 199
        end
        Item
          FieldName = 'NoTaxAmount'
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 195
        end
        Item
          FieldName = 'Amount'
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 170
        end>
    end
    object Panel1: TPanel
      Left = 0
      Top = 125
      Width = 675
      Height = 18
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 2
      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
    object Panel2: TPanel
      Left = 0
      Top = 275
      Width = 675
      Height = 20
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 3
      object Label6: TLabel
        Left = 12
        Top = 5
        Width = 84
        Height = 12
        Caption = '未税金额合计：'
      end
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 552
    Top = 184
  end
  inherited ActionList: TActionList
    Left = 264
    Top = 256
    inherited Act_Filter: TAction
      OnExecute = Act_FilterExecute
    end
    inherited Act_Print: TAction
      OnExecute = Act_PrintExecute
    end
    inherited Act_Preview: TAction
      OnExecute = Act_PreviewExecute
    end
    inherited Act_Excel: TAction
      OnExecute = Act_ExcelExecute
    end
  end
  object AdoQry_Main: TAdoQuery
    AfterOpen = AdoQueryAfterOpen
    EnableBCD = False
    Parameters = <>
    Left = 192
    Top = 234
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Main
    OnDataChange = DataSource1DataChange
    Left = 224
    Top = 258
  end
  object DataSource2: TDataSource
    DataSet = AdoQry_Detail
    Left = 448
    Top = 362
  end
  object AdoQry_Detail: TAdoQuery
    AfterOpen = AdoQueryAfterOpen
    EnableBCD = False
    Parameters = <>
    Left = 400
    Top = 361
  end
  object ExtPrintReport: TExtPrintReport
    TopBOrdermm = 20
    BottomBOrdermm = 20
    LeftBOrdermm = 10
    RightBOrdermm = 10
    TitleFont.ChArset = DEFAULT_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -19
    TitleFont.Name = '宋体'
    TitleFont.Style = [fsBold]
    SubtitleFont.ChArset = DEFAULT_CHArSET
    SubtitleFont.Color = clWindowText
    SubtitleFont.Height = -13
    SubtitleFont.Name = '宋体'
    SubtitleFont.Style = [fsBold]
    ReportFont.ChArset = DEFAULT_CHArSET
    ReportFont.Color = clWindowText
    ReportFont.Height = -13
    ReportFont.Name = '宋体'
    ReportFont.Style = []
    FootFont.ChArset = DEFAULT_CHArSET
    FootFont.Color = clWindowText
    FootFont.Height = -13
    FootFont.Name = '宋体'
    FootFont.Style = [fsBold]
    NeedLine = False
    SumPerPage = True
    SumTotal = True
    PAperSet = [ptA3, ptA4, ptB4, ptB5, ptNArrow, ptWide]
    PAperOrientation = poPortrait
    ShowPrintRange = True
    PAperType = ptA4
    HeaderGroups = <>
    Headers = <>
    Left = 136
    Top = 225
  end
end