ap_invoicecancel.dfm

一个MRPII系统源代码版本

inherited Frm_Ap_InvoiceCancel: TFrm_Ap_InvoiceCancel
  Left = 329
  Top = 142
  Caption = #37319#36141#21457#31080#21305#37197#21462#28040
  ClientHeight = 451
  ClientWidth = 727
  FormStyle = fsMDIChild
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 727
    inherited ToolBar: TToolBar
      Width = 116
      object ToolButton7: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 47
        Style = tbsSeparator
      end
      object TlBtn_Cancel: TToolButton
        Left = 31
        Top = 0
        Action = Act_Cancel
      end
      object ToolButton2: TToolButton
        Left = 54
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 44
        Style = tbsSeparator
      end
      object TlBtn_locate: TToolButton
        Left = 62
        Top = 0
        Action = Act_Locate
      end
      object ToolButton5: TToolButton
        Left = 85
        Top = 0
        Width = 8
        Caption = 'ToolButton5'
        ImageIndex = 46
        Style = tbsSeparator
      end
      object TlBtn_Quit: TToolButton
        Left = 93
        Top = 0
        Action = Act_Quit
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 727
    BevelOuter = bvRaised
    Caption = #37319#36141#21457#31080#21305#37197#21462#28040
    inherited Image2: TImage
      Left = 1
      Top = 1
      Width = 725
      Height = 23
    end
  end
  inherited Pnl_Head: TPanel
    Width = 727
    Height = 120
    BevelOuter = bvRaised
    inherited Image1: TImage
      Left = 1
      Top = 1
      Width = 725
      Height = 118
    end
    object Label2: TLabel
      Left = 16
      Top = 12
      Width = 48
      Height = 12
      Caption = #31080#25454#21495#65306
    end
    object Label3: TLabel
      Left = 223
      Top = 12
      Width = 60
      Height = 12
      Caption = #21457#31080#26085#26399#65306
    end
    object Label1: TLabel
      Left = 376
      Top = 12
      Width = 60
      Height = 12
      Caption = #31080#25454#31867#22411#65306
    end
    object Label6: TLabel
      Left = 520
      Top = 12
      Width = 60
      Height = 12
      Caption = #35760#24080#26085#26399#65306
    end
    object Lbl_CurrencyCode: TLabel
      Left = 584
      Top = 38
      Width = 6
      Height = 12
    end
    object Label9: TLabel
      Left = 521
      Top = 38
      Width = 60
      Height = 12
      Caption = #36135#24065#20195#30721#65306
    end
    object Lbl_VendorName: TLabel
      Left = 292
      Top = 38
      Width = 6
      Height = 12
    end
    object Label8: TLabel
      Left = 221
      Top = 38
      Width = 72
      Height = 12
      Caption = #20379#24212#21830#21517#31216#65306
    end
    object Label7: TLabel
      Left = 16
      Top = 38
      Width = 72
      Height = 12
      Caption = #20379#24212#21830#20195#30721#65306
    end
    object Lbl_Notax: TLabel
      Left = 16
      Top = 63
      Width = 84
      Height = 12
      Caption = #21457#31080#36135#27454#37329#39069#65306
    end
    object Label12: TLabel
      Left = 220
      Top = 63
      Width = 60
      Height = 12
      Caption = #21457#31080#31246#39069#65306
    end
    object Label16: TLabel
      Left = 379
      Top = 63
      Width = 78
      Height = 12
      Caption = #32570#30465#31246#29575'(%)'#65306
    end
    object Lbl_TaxRate_Percent: TLabel
      Left = 457
      Top = 63
      Width = 6
      Height = 12
    end
    object Label11: TLabel
      Left = 522
      Top = 63
      Width = 72
      Height = 12
      Caption = #21457#31080#24635#37329#39069#65306
    end
    object Label13: TLabel
      Left = 221
      Top = 90
      Width = 60
      Height = 12
      Caption = #22791'    '#27880#65306
    end
    object Lbl_EmployeeName: TLabel
      Left = 105
      Top = 90
      Width = 6
      Height = 12
    end
    object Lbl_EmployeeCode: TLabel
      Left = 78
      Top = 90
      Width = 6
      Height = 12
    end
    object Label4: TLabel
      Left = 16
      Top = 90
      Width = 60
      Height = 12
      Caption = #24405' '#20837' '#21592#65306
    end
    object Lbl_CurrencyName: TLabel
      Left = 600
      Top = 38
      Width = 6
      Height = 12
    end
    object LBl_ApInvoicedate: TLabel
      Left = 280
      Top = 11
      Width = 6
      Height = 12
    end
    object Lbl_ApInvoiceInputDate: TLabel
      Left = 578
      Top = 12
      Width = 6
      Height = 12
    end
    object Lbl_VendorCode: TLabel
      Left = 88
      Top = 38
      Width = 6
      Height = 12
    end
    object Lbl_ApInvoiceNoTax: TLabel
      Left = 96
      Top = 63
      Width = 6
      Height = 12
    end
    object Lbl_ApInvoiceTax: TLabel
      Left = 280
      Top = 63
      Width = 6
      Height = 12
    end
    object Lbl_ApInvoiceAmount: TLabel
      Left = 592
      Top = 63
      Width = 6
      Height = 12
    end
    object Lbl_ApInvoiceRemArk: TLabel
      Left = 280
      Top = 88
      Width = 6
      Height = 12
    end
    object Lbl_ApInvoiceType: TLabel
      Left = 432
      Top = 11
      Width = 6
      Height = 12
    end
    object Edt_ApInvoiceNo: TEdit
      Left = 61
      Top = 5
      Width = 128
      Height = 20
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 0
      OnExit = Edt_ApInvoiceNoExit
      OnKeyDown = Edt_ApInvoiceNoKeyDown
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 426
    Width = 727
    inherited Image4: TImage
      Width = 727
    end
  end
  inherited Pnl_Body: TPanel
    Top = 175
    Width = 727
    Height = 251
    inherited Image3: TImage
      Left = 401
      Top = 33
      Width = 326
      Height = 218
    end
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 727
      Height = 33
      Align = alTop
      Alignment = taLeftJustify
      Caption = '  '#21457#31080#23545#24212#30340#20837#24211#21333#65306
      TabOrder = 0
      object Label5: TLabel
        Left = 409
        Top = 8
        Width = 60
        Height = 12
        Caption = #20179#24211#20195#21495#65306
      end
      object Label10: TLabel
        Left = 552
        Top = 8
        Width = 60
        Height = 12
        Caption = #20837#24211#21333#21495#65306
      end
      object Edit1: TEdit
        Left = 467
        Top = 4
        Width = 62
        Height = 20
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ReadOnly = True
        TabOrder = 0
      end
      object Edit2: TEdit
        Left = 613
        Top = 4
        Width = 81
        Height = 20
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ReadOnly = True
        TabOrder = 1
      end
    end
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 33
      Width = 401
      Height = 218
      Align = alLeft
      DataSource = DataSource1
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'whCodeName'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20179#24211#26631#35782
          Width = 90
        end
        item
          EditButtons = <>
          FieldName = 'InvBilldate'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #21333#25454#26085#26399
          Width = 63
        end
        item
          EditButtons = <>
          FieldName = 'InvBillno'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20837#24211#21333#25454#21495
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'InvBillNoTaxAmount'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #21333#25454#26410#31246#37329#39069
          Width = 90
        end
        item
          Checkboxes = True
          EditButtons = <>
          FieldName = 'InvBillfinchck'
          Footers = <>
          KeyList.Strings = (
            '1'
            '0')
          Title.Alignment = taCenter
          Title.Caption = #21305#37197
          Width = 31
        end>
    end
    object Panel2: TPanel
      Left = 401
      Top = 33
      Width = 326
      Height = 218
      Align = alClient
      TabOrder = 2
      object ListBox1: TListBox
        Left = 1
        Top = 1
        Width = 324
        Height = 185
        Align = alClient
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ItemHeight = 12
        TabOrder = 0
      end
      object Panel4: TPanel
        Left = 1
        Top = 186
        Width = 324
        Height = 31
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object Lbl_Diff: TLabel
          Left = 264
          Top = 6
          Width = 8
          Height = 16
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label18: TLabel
          Left = 107
          Top = 7
          Width = 8
          Height = 16
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label15: TLabel
          Left = 12
          Top = 9
          Width = 96
          Height = 12
          Caption = #20837#24211#21333#36135#27454#37329#39069#65306
        end
        object Label17: TLabel
          Left = 181
          Top = 9
          Width = 84
          Height = 12
          Caption = #36135#27454#37329#39069#24046#24322#65306
        end
      end
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Top = 0
  end
  inherited ActionList: TActionList
    Left = 344
    Top = 0
    inherited Act_Locate: TAction
      OnExecute = Act_LocateExecute
    end
    inherited Act_Cancel: TAction
      OnExecute = Act_CancelExecute
    end
    object Action4: TAction
      Caption = 'Action4'
      ShortCut = 120
      OnExecute = Action4Execute
    end
  end
  object AdoQry_Main: TAdoQuery
    BeforeInsert = AdoQry_MainBeforeInsert
    Parameters = <>
    Left = 394
    Top = 2
  end
  object DataSource1: TDataSource
    DataSet = AdoQry_Main
    Left = 442
    Top = 2
  end
  object AdoQuery1: TAdoQuery
    Parameters = <>
    Left = 506
    Top = 2
  end
end