ap_invoice.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_Invoice: TFrm_Ap_Invoice
  Left = 202
  Top = 174
  ActiveControl = ControlBar
  Caption = #37319#36141#21457#31080#24405#20837#21450#21305#37197
  ClientHeight = 480
  ClientWidth = 791
  FormStyle = fsMDIChild
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label14: TLabel [0]
    Left = 520
    Top = 63
    Width = 84
    Height = 12
    Caption = #21457#31080#36135#27454#37329#39069#65306
  end
  inherited ControlBar: TControlBar
    Width = 791
    inherited ToolBar: TToolBar
      Width = 265
      object ToolButton5: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton5'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TlBtn_New: TToolButton
        Left = 31
        Top = 0
        Action = Act_New
      end
      object ToolButton9: TToolButton
        Left = 54
        Top = 0
        Width = 8
        Caption = 'ToolButton9'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object TlBtn_PerSave: TToolButton
        Left = 62
        Top = 0
        Action = Action3
      end
      object ToolButton2: TToolButton
        Left = 85
        Top = 0
        Width = 6
        Caption = 'ToolButton2'
        ImageIndex = 44
        Style = tbsSeparator
      end
      object TlBtn_Save: TToolButton
        Left = 91
        Top = 0
        Action = Act_Save
      end
      object ToolButton4: TToolButton
        Left = 114
        Top = 0
        Width = 6
        Caption = 'ToolButton4'
        ImageIndex = 45
        Style = tbsSeparator
      end
      object TlBtn_Delete: TToolButton
        Left = 120
        Top = 0
        Action = Act_Delete
      end
      object ToolButton3: TToolButton
        Left = 143
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TlBtn_Cancel: TToolButton
        Left = 151
        Top = 0
        Action = Act_Cancel
      end
      object ToolButton1: TToolButton
        Left = 174
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TlBtn_Qury: TToolButton
        Left = 182
        Top = 0
        Action = Act_Locate
      end
      object ToolButton8: TToolButton
        Left = 205
        Top = 0
        Width = 6
        Caption = 'ToolButton8'
        ImageIndex = 47
        Style = tbsSeparator
      end
      object tlbtn_look: TToolButton
        Left = 211
        Top = 0
        Hint = #26597#35810#20837#24211#21333#26126#32454
        Action = Act_Look
        Caption = #26597#35810#20837#24211#21333#26126#32454
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton7: TToolButton
        Left = 234
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object TlBtn_Exit: TToolButton
        Left = 242
        Top = 0
        Action = Act_Quit
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 791
    BevelOuter = bvRaised
    Caption = #37319#36141#21457#31080#24405#20837#21450#21305#37197
    inherited Image2: TImage
      Left = 1
      Top = 1
      Width = 789
      Height = 23
    end
  end
  inherited Pnl_Head: TPanel
    Width = 791
    Height = 116
    BevelOuter = bvRaised
    inherited Image1: TImage
      Left = 1
      Top = 1
      Width = 789
      Height = 114
    end
    object Label2: TLabel
      Left = 62
      Top = 11
      Width = 48
      Height = 12
      Caption = #31080#25454#21495#65306
      Transparent = True
    end
    object Label3: TLabel
      Left = 242
      Top = 11
      Width = 60
      Height = 12
      Caption = #21457#31080#26085#26399#65306
      Transparent = True
    end
    object Label1: TLabel
      Left = 397
      Top = 11
      Width = 60
      Height = 12
      Caption = #31080#25454#31867#22411#65306
      Transparent = True
    end
    object Label6: TLabel
      Left = 571
      Top = 11
      Width = 60
      Height = 12
      Caption = #35760#24080#26085#26399#65306
      Transparent = True
    end
    object Label7: TLabel
      Left = 38
      Top = 38
      Width = 72
      Height = 12
      Caption = #20379#24212#21830#20195#30721#65306
      Transparent = True
    end
    object Label16: TLabel
      Left = 553
      Top = 38
      Width = 78
      Height = 12
      Caption = #32570#30465#31246#29575'(%)'#65306
      Transparent = True
    end
    object Label9: TLabel
      Left = 50
      Top = 62
      Width = 60
      Height = 12
      Caption = #36135#24065#20195#30721#65306
      Transparent = True
    end
    object Lbl_Notax: TLabel
      Left = 218
      Top = 64
      Width = 84
      Height = 12
      Caption = #21457#31080#36135#27454#37329#39069#65306
      Transparent = True
    end
    object Label12: TLabel
      Left = 397
      Top = 64
      Width = 60
      Height = 12
      Caption = #21457#31080#31246#39069#65306
      Transparent = True
    end
    object Label11: TLabel
      Left = 559
      Top = 66
      Width = 72
      Height = 12
      Caption = #21457#31080#24635#37329#39069#65306
      Transparent = True
    end
    object Label4: TLabel
      Left = 50
      Top = 92
      Width = 60
      Height = 12
      Caption = #24405' '#20837' '#21592#65306
      Transparent = True
    end
    object Label13: TLabel
      Left = 242
      Top = 92
      Width = 60
      Height = 12
      Caption = #22791'    '#27880#65306
      Transparent = True
    end
    object Edt_ApInvoiceNo: TEdit
      Left = 108
      Top = 7
      Width = 102
      Height = 20
      TabOrder = 0
      OnExit = Edt_ApInvoiceNoExit
    end
    object Medt_ApInvoicedate: TMaskEdit
      Left = 299
      Top = 7
      Width = 77
      Height = 20
      EditMask = '!0000.90.00;1;_'
      MaxLength = 10
      TabOrder = 1
      Text = '    .  .  '
    end
    object CmBx_ApInvoiceType: TComboBox
      Left = 454
      Top = 7
      Width = 75
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 2
      Items.Strings = (
        #21457#31080
        #25910#25454)
    end
    object Medt_ApInvoiceInputDate: TMaskEdit
      Left = 629
      Top = 7
      Width = 73
      Height = 20
      EditMask = '!0000.90.00;1;_'
      MaxLength = 10
      TabOrder = 3
      Text = '    .  .  '
    end
    object ExtEdt_VendorCode: TLinkEdit
      Left = 108
      Top = 34
      Width = 102
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 4
      OnButtonClick = ExtEdt_VendorCodeButtonClick
      OnExit = ExtEdt_VendorCodeExit
      OnKeyDown = VendorHint
    end
    object Lbl_VendorName: TEdit
      Left = 212
      Top = 34
      Width = 317
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 5
    end
    object Lbl_TaxRate_Percent: TEdit
      Left = 629
      Top = 34
      Width = 74
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 6
    end
    object Lbl_CurrencyCode: TEdit
      Left = 108
      Top = 58
      Width = 29
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 7
    end
    object Lbl_CurrencyName: TEdit
      Left = 138
      Top = 58
      Width = 71
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 8
    end
    object Edt_ApInvoiceNoTax: TEdit
      Left = 299
      Top = 60
      Width = 78
      Height = 20
      TabOrder = 9
      OnExit = Edt_ApInvoiceNoTaxExit
    end
    object Edt_ApInvoiceTax: TEdit
      Left = 454
      Top = 60
      Width = 76
      Height = 20