ap_invoice_select.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Invoice_Select: TFrm_Ap_Invoice_Select
  Left = 51
  Top = 130
  Caption = '发票列表'
  ClientHeight = 340
  ClientWidth = 665
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 0
    Top = 0
    Width = 665
    Height = 25
    Align = alTop
    Alignment = taCenter
    AutoSize = False
    Caption = '发票列表'
  end
  object Label2: TLabel [1]
    Left = 16
    Top = 36
    Width = 84
    Height = 12
    Caption = '发票号码定位：'
  end
  inherited btn_ok: TButton
    Left = 483
    Top = 307
    TabOrder = 1
  end
  inherited btn_Cancel: TButton
    Left = 576
    Top = 307
    TabOrder = 2
    OnClick = btn_CancelClick
  end
  object DBGridEh1: TDBGridEh [4]
    Left = 8
    Top = 56
    Width = 649
    Height = 235
    DataSource = DS_AdoQry_Tmp
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ReadOnly = True
    TabOrder = 3
    TitleFont.ChArset = GB2312_CHArSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnDblClick = btn_okClick
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghclearSelection, dghAutoSortMArking, dghMultiSortMArking]
    OnSortMArkingChanged = DBGridEh1SortMArkingChanged
    Columns = <
      Item
        FieldName = 'VendorCode'
        Title.Alignment = taCenter
        Title.Caption = '供应商标识'
        Title.TitleButton = True
        Width = 291
      end
      Item
        FieldName = 'ApInvoiceNo'
        Title.Alignment = taCenter
        Title.Caption = '发票号码'
        Title.TitleButton = True
        Width = 118
      end
      Item
        FieldName = 'ApInvoiceDate'
        Title.Alignment = taCenter
        Title.Caption = '发票日期 '
        Title.TitleButton = True
        Width = 70
      end
      Item
        FieldName = 'CurrencyCodeName'
        Title.Alignment = taCenter
        Title.Caption = '货币标识'
        Title.TitleButton = True
        Width = 67
      end
      Item
        Alignment = tArightJustify
        FieldName = 'ApInvoiceAmount'
        Title.Alignment = taCenter
        Title.Caption = '金额'
        Title.TitleButton = True
      end>
  end
  object Edit1: TEdit [5]
    Left = 103
    Top = 30
    Width = 103
    Height = 20
    TabOrder = 0
    OnChange = Edit1Exit
    OnExit = Edit1Exit
  end
  inherited AdoQry_Tmp: TAdoQuery
    Prepared = True
    Left = 504
    Top = 0
  end
  object DS_AdoQry_Tmp: TDataSource
    DataSet = AdoQry_Tmp
    Left = 408
  end
end