ap_qry_apdetail.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Qry_ApDetail: TFrm_Ap_Qry_ApDetail
  Left = 19
  Top = 93
  Caption = '应付帐款明细帐'
  ClientHeight = 553
  ClientWidth = 800
  FormStyle = fsMDIChild
  Visible = True
  Windowstate = wsMaximized
  OnClose = FormClose
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
    inherited ToolBar: TToolBar
      Width = 138
      object ToolButton1: TToolButton
        Left = 23
        Top = 0
        Action = Act_Filter
      end
      object ToolButton4: TToolButton
        Left = 46
        Top = 0
        Action = Act_Preview
      end
      object ToolButton3: 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 = 800
    Caption = '应付帐款明细帐'
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    Height = 48
    inherited Image1: TImage
      Width = 800
      Height = 48
    end
    object Lbl_Date: TLabel
      Left = 8
      Top = 29
      Width = 48
      Height = 12
      Caption = '月份从：'
    end
    object Lbl_beginMonth: TLabel
      Left = 56
      Top = 29
      Width = 42
      Height = 12
      Caption = 'Lbl_Beg'
    end
    object lbl_zhi: TLabel
      Left = 105
      Top = 29
      Width = 12
      Height = 12
      Caption = '至'
    end
    object Lbl_EndMonth: TLabel
      Left = 121
      Top = 29
      Width = 72
      Height = 12
      Caption = 'Lbl_EndMonth'
    end
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 72
      Height = 12
      Caption = '供应商代码：'
    end
    object Label2: TLabel
      Left = 178
      Top = 8
      Width = 72
      Height = 12
      Caption = '供应商名称：'
    end
    object Lbl_VendorCode: TLabel
      Left = 80
      Top = 8
      Width = 84
      Height = 12
      Caption = 'Lbl_VendorCode'
    end
    object Lbl_VendorName: TLabel
      Left = 246
      Top = 8
      Width = 84
      Height = 12
      Caption = 'Lbl_VendorName'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 527
    Width = 800
    inherited Image4: TImage
      Width = 800
    end
  end
  inherited Pnl_Body: TPanel
    Top = 105
    Width = 800
    Height = 422
    inherited Image3: TImage
      Width = 800
      Height = 422
    end
    object DBGridEh: TDBGridEh
      Left = 0
      Top = 0
      Width = 800
      Height = 422
      Align = alClient
      DataSource = DataSource
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.ChArset = GB2312_CHArSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDrawDataCell = DBGridEhDrawDataCell
      UseMultiTitle = True
      OnGetCellParams = DBGridEhGetCellParams
      Columns = <
        Item
          FieldName = 'Billdate'
          Title.Alignment = taCenter
          Title.Caption = '日期'
          Width = 67
        end
        Item
          FieldName = 'zhaiyao'
          Title.Alignment = taCenter
          Title.Caption = '摘要'
          Width = 293
        end
        Item
          FieldName = 'InAmount'
          Title.Alignment = taCenter
          Title.Caption = '借方金额'
          Width = 108
        end
        Item
          FieldName = 'OutAmount'
          Title.Alignment = taCenter
          Title.Caption = '贷方金额'
          Width = 94
        end
        Item
          FieldName = 'Balance'
          Title.Alignment = taCenter
          Title.Caption = '余额'
          Width = 91
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 408
    Top = 0
  end
  inherited ActionList: TActionList
    Left = 352
    Top = 0
    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
    CurSorType = ctDynamic
    LockType = ltBatchOptimistic
    BeforeOpen = AdoQry_MainBeforeOpen
    Parameters = <>
    Left = 216
    Top = 1
  end
  object DataSource: TDataSource
    DataSet = AdoQry_Main
    Left = 248
    Top = 1
  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 = 304
    Top = 1
  end
end