ap_qry_noinvoiceinbinbill.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Qry_NoInvoiceInbInBill: TFrm_Ap_Qry_NoInvoiceInbInBill
  Left = 7
  Top = 153
  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 = 161
      object ToolButton1: TToolButton
        Left = 23
        Top = 0
        Action = Act_Filter
      end
      object ToolButton6: TToolButton
        Left = 46
        Top = 0
        Action = Act_SetColumn
      end
      object ToolButton4: TToolButton
        Left = 69
        Top = 0
        Action = Act_Preview
      end
      object ToolButton3: TToolButton
        Left = 92
        Top = 0
        Action = Act_Print
      end
      object ToolButton5: TToolButton
        Left = 115
        Top = 0
        Action = Act_Excel
      end
      object ToolButton2: TToolButton
        Left = 138
        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 = 2
    inherited Image1: TImage
      Width = 800
      Height = 2
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 527
    Width = 800
    Alignment = taLeftJustify
    inherited Image4: TImage
      Width = 800
    end
  end
  inherited Pnl_Body: TPanel
    Top = 59
    Width = 800
    Height = 468
    inherited Image3: TImage
      Top = 313
      Width = 800
      Height = 155
    end
    object Splitter1: TSplitter
      Left = 0
      Top = 281
      Width = 800
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object DBGridEh: TDBGridEh
      Left = 0
      Top = 0
      Width = 800
      Height = 281
      Align = alTop
      DataSource = DataSource
      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 = 200
        end
        Item
          FieldName = 'WarehouseB'
          Title.Alignment = taCenter
          Title.Caption = '仓库标识'
          Width = 128
        end
        Item
          FieldName = 'InvBillno'
          Title.Alignment = taCenter
          Title.Caption = '单据号'
          Width = 98
        end
        Item
          FieldName = 'InvBillDate'
          Title.Alignment = taCenter
          Title.Caption = '入库日期'
          Width = 62
        end
        Item
          FieldName = 'currencyB'
          Title.Alignment = taCenter
          Title.Caption = '币种标识'
          Width = 51
        end
        Item
          FieldName = 'InvBillnotaxAmountC'
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 68
        end
        Item
          FieldName = 'InvBillAmountC'
          Title.Caption = '含税金额'
        end>
    end
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 313
      Width = 800
      Height = 155
      Align = alClient
      DataSource = DataSource1
      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 = []
      OnGetCellParams = DBGridEhGetCellParams
      Columns = <
        Item
          FieldName = 'InvBilllineno'
          Title.Alignment = taCenter
          Title.Caption = '单据行号'
          Width = 49
        end
        Item
          FieldName = 'ItemB'
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 293
        end
        Item
          FieldName = 'InvBillQTY'
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 82
        end
        Item
          FieldName = 'InvBillnotaxPriceC'
          Title.Alignment = taCenter
          Title.Caption = '未税价'
          Width = 85
        end
        Item
          FieldName = 'InvBillnotaxAmountC'
          Title.Alignment = taCenter
          Title.Caption = '货款额'
          Width = 77
        end
        Item
          FieldName = 'InvBillAmountC'
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 82
        end>
    end
    object Panel1: TPanel
      Left = 0
      Top = 284
      Width = 800
      Height = 29
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 2
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 84
        Height = 12
        Caption = '未税金额合计：'
      end
      object Label3: TLabel
        Left = 216
        Top = 8
        Width = 84
        Height = 12
        Caption = '含税金额合计：'
      end
      object Lb_tax: TLabel
        Left = 312
        Top = 8
        Width = 36
        Height = 12
        Caption = 'Lb_tax'
      end
      object Lb_Notax: TLabel
        Left = 104
        Top = 8
        Width = 48
        Height = 12
        Caption = 'Lb_Notax'
      end
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 216
    Top = 168
  end
  inherited ActionList: TActionList
    Left = 360
    Top = 128
    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
    inherited Act_SetColumn: TAction
      OnExecute = Act_SetColumnExecute
    end
  end
  object AdoQry_Main: TAdoQuery
    AfterOpen = AdoQueryAfterOpen
    EnableBCD = False
    Parameters = <>
    Left = 224
    Top = 129
  end
  object DataSource: TDataSource
    DataSet = AdoQry_Main
    OnDataChange = DataSourceDataChange
    Left = 256
    Top = 129
  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 = 144
    Top = 193
  end
  object AdoQuery_Detail: TAdoQuery
    AfterOpen = AdoQueryAfterOpen
    EnableBCD = False
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 296
    Top = 259
  end
  object DataSource1: TDataSource
    DataSet = AdoQuery_Detail
    Left = 336
    Top = 259
  end
end