unit6.dfm

计算个人所得税与牛顿迭代法实现的作业源码。

object Form6: TForm6
  Left = 231
  Top = 182
  Width = 657
  Height = 435
  AutoSize = True
  Caption = 'Form6'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clFuchsia
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 20
  object Label1: TLabel
    Left = 0
    Top = 8
    Width = 233
    Height = 20
    AutoSize = False
    Caption = #35831#36755#20837#35201#20998#21106#30340#23383#31526#20018#65306
  end
  object Label2: TLabel
    Left = 8
    Top = 72
    Width = 193
    Height = 20
    AutoSize = False
    Caption = #35831#36755#20837#20998#21106#26631#24535#65306
  end
  object Edit1: TEdit
    Left = 248
    Top = 0
    Width = 401
    Height = 28
    AutoSize = False
    PopupMenu = PopupMenu1
    TabOrder = 0
  end
  object Edit2: TEdit
    Left = 248
    Top = 72
    Width = 401
    Height = 28
    PopupMenu = PopupMenu2
    TabOrder = 1
  end
  object GroupBox1: TGroupBox
    Left = 200
    Top = 128
    Width = 449
    Height = 273
    Caption = #20998#21106#32467#26524
    TabOrder = 2
    object Memo1: TMemo
      Left = 0
      Top = 16
      Width = 449
      Height = 257
      Ctl3D = True
      Lines.Strings = (
        '')
      ParentCtl3D = False
      ParentShowHint = False
      ScrollBars = ssBoth
      ShowHint = False
      TabOrder = 0
    end
  end
  object Button1: TButton
    Left = 56
    Top = 192
    Width = 75
    Height = 25
    Caption = #30830' '#23450
    TabOrder = 3
    OnClick = Button1Click
  end
  object BitBtn1: TBitBtn
    Left = 56
    Top = 264
    Width = 75
    Height = 25
    Caption = #37325' '#26469
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = BitBtn1Click
  end
  object PopupMenu1: TPopupMenu
    Left = 224
    Top = 40
    object N1: TMenuItem
      Caption = #20174#24038#33267#21491#36755#20837
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 280
    Top = 40
    object N2: TMenuItem
      Caption = #20174#24038#33267#21491#36755#20986
    end
  end
end