calculate1.dfm

delphi制作的校医院收费系统

object calculate: Tcalculate
  Left = 507
  Top = 168
  Width = 257
  Height = 300
  AutoSize = True
  BorderIcons = [biSystemMenu]
  Caption = #35745#31639#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80C00001600000028000000200000004000
    00000100180000000000800C0000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000004FD8FF4FD5FF4ED0FF4DCCFF4CC8FF00000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000054E3FF53DFFF51DAFF51D7FF51D3FF4FCEFF4ECAFF4DC4FF4C
    C1FF000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000056E8FF56E5FF55E0FF54DCFF53D9FF53D4FF51D0FF51CDFF50C7FF4F
    C3FF4DBEFF000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0058ECFF58E9FF58E6FF57E1FF56DEFF56DBFF54D7FF54D3FF53CFFF52CAFF50
    C6FF4FC1FF4DBEFF0000004A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A
    0000000000000000000000000000000000000000000000000000000000000000
    005BEEFF5BEBFF5AE7FF59E3FF58E1FF58DDFF56DAFF56D6FF54D2FF54CEFF52
    C9FF51C5FF4FC0FF4A4A4AE4947BE89780ED9987F19D8BDDA385C0AA77A7B26A
    4A4A4A4A4A4A4A4A4A0000000000000000000000000000000000000000005DF4
    FF5DF0FF5DEDFF5DEAFF5BE6FF5BE3FF5AE0FF59DCFF58D9FF56D5FF56D0FF54
    CCFF53C7FF51C3FF4FC0FFDD9577E1987BE79B82EB9D88E6A288D0A980B4B174
    A0B86C87BC5F70BF524A4A4A00000000000000000000000000000000000060F4
    FF60F2FF60EFFF0000000000000000005DE3FF5BDFFF5ADBFF58D7FF57D3FF56
    CFFF54CBFF53C7FF51C3FFD69572DC9778E09B7FE79F86E6A38BDBAB8AC6B182
    B1B87A9ABD6D87C06376C45A4A4A4A00000000000000000000000000000062F6
    FF62F3FF0000000000000000000000000000005DE2FF5CDEFF5ADBFF59D7FF58
    D3FF56CFFF54CAFF53C6FFCF976FD59A76DA9E7DE0A387E7A78EE5AC93D9B18E
    C4B687AEBD7B9DC1738FC46C82C8684A4A4A00000000000000000000000065F7
    FF0000000000000000000000000000000000000000005EE1FF5CDDFF5BDAFF5A
    D6FF58D2FF56CEFF54CAFFCA9B6ECF9E76D6A27EDCA586E2A98EE8AD96E4B298
    D5B692C5BD8DB4C185A8C47F9DC87B96CA784A4A4A00000000000000000067F9
    FF0000000000000000000000000000000000004A4A4A60E4FF5EE0FF5CDDFF5B
    D9FF59D5FF57D1FF56CDFFC69D6FCBA176D2A57FD9A887DEAB8DE3AF95E7B29C
    E2B79DDDBC9DCEC097BEC38FB7C98EAFCB8BA3CC844A4A4A0000000000000000
    000000000000000000000000000000004A4A4A95954462E7FF60E3FF5EE0FF5C
    DCFF5BD9FF59D5FFBA9E68C1A170C6A576CEA87ED5AB87DBAF90E0B296E6B49D
    EAB8A3ECBDABE3C1A7D5C49FCFC9A0C4CB9BBCCC96B9CD954A4A4A0000000000
    000000000000000000000000000000004A4A4A65EDFF64E9FF62E6FF60E3FF5E
    DFFF5CDBFF5BD9FFB6A168BCA570C4A878CAAB7FD2AE88D8B190DEB497E4B89F
    E8BAA5EFBEACEEC1AFEAC3AFE6C7AFD9CAAAD4CDA7D4CDA74A4A4A0000000000
    0000000000000000000000000000000069F1FF67EFFF65ECFF63E9FF61E5FF5F
    E2FF5DDFFFACA261B4A56ABAA972C0AC7AC8AD82CFB089D5B490DCB799E2BAA0
    E7BDA6ECC0ACF0C2B2F3C5B6F4C7BAEFCBB9EDCCB8EDCDB94A4A4A0000000000
    000000000000006FF9FF6EF8FF6CF6FF6AF4FF69F1FF67EEFF65EBFF63E9FF61
    E5FFA2A259A9A562B1A96CB8AB74BEAE7BC6B283CDB48BD4B792DABA9ADFBDA1
    E4C0A8E9C2ACEFC5B4F4C7BAF8C8BEFACBC1FACDC2FACDC3FACEC34A4A4A0000
    000000000000000000000000006EF7FF6CF5FF6AF3FF68F0FF66EEFF8D9F4894
    A2519EA55BA8A864AEAC6DB5AE75BDB17DC5B386CAB78DD2BA95D8BD9CDEBFA3
    E3C3AAE7C4AFECC8B5F2C9BBF6CABFFACDC3FACEC5FACFC6FACFC64A4A4A0000
    000000000000000000000000004A4A4A6A9F2F6F9E32779E377FA04089A34A91
    A6529AA95CA3AB65ACAE6EB3B277BCB47FC2B787CAB98FD1BD97D6BF9DDCC2A5
    E3C6ADE7C7B1ECCAB8F1CCBDF5CCC1F9CFC6FAD0C8FAD1C8FAD1C84A4A4A0000
    000000000000000000000000004A4A4A64A02C6A9F3072A1387BA44285A74C8E
    A95497AC5DA1AF66A9B26FB3B479BAB681C1B988C8BD92D0C09AD5C2A0DCC5A7
    E2C7AEE7C9B4EBCDB9EFCEBEF4D0C2F8D2C8FAD3CAFBD4CCFBD4CC4A4A4A0000
    000000000000000000000000004A4A4A5DA22963A22D6EA43778A74283AA4D8C
    AC5596AF5FA1B16AA7B471B0B77AB9BA83C1BD8CC9C095D0C29DD5C6A3DBC8A9
    E1CAB0E6CDB7EACFBCEFD1C1F4D2C6F7D5CBFAD6CDFBD6CEFBD6CE4A4A4A0000
    000000000000000000000000004A4A4A58A42760A62F6BA83977AB4581AD4F89
    B05794B1619EB46BA8B774B0BA7DB7BD86BFBF8DC8C296CFC69FD5C8A5DCCAAD
    E1CDB4E7D0BAEBD2BFF0D4C5F3D5C9F6D7CDFAD8D0FCD9D1FCD9D14A4A4A0000
    000000000000000000000000004A4A4A52A7265CA92F66AC3972AD437EB04E89
    B25993B4649DB86EA6BA77B0BC7FB7BF88C0C291C8C499D0C8A1D6CAA9DCCDB0
    E1D0B7E5D2BBEAD5C2EFD7C8F3D9CBF6D9CFF9DBD3FCDCD5FCDCD54A4A4A0000
    000000000000000000000000004A4A4A4DAB255AAE3166AF3B70AF457AB14D86
    B45991B7649CBA6EA6BC78B0BF82B8C28BC0C594C7C79ACFCAA3D5CDABDCD0B3
    E2D3BAE6D5BFEBD7C6EFD9CAF3DBCEF7DCD2FADFD7FCDFD9FDDFD94A4A4A0000
    000000000000000000000000000000004A4A4A56AF3162B23C6FB3467AB55186
    B75C91BB669ABC70A4BE79AEC182B8C48DC0C696C8C99FD0CCA7D7CFAFDDD2B5
    E3D5BDE8D8C4EDDAC9F0DCCEF4DED3F7DFD6FAE2DBFCE3DD4A4A4A0000000000
    000000000000000000000000000000004A4A4A52B12F5FB33B6BB54577B75084
    B95C90BC679ABD71A6C07CB0C386BAC690C2C99ACACCA2D1CEAAD8D1B1DED4B9
    E4D7C0E9D9C7EEDCCDF1DFD2F4E2D6F7E3DAF9E6DEFCE6E04A4A4A0000000000
    000000000000000000000000000000004A4A4A4DB32E5DB53A69B64676B85183
    BA5D8FBD679BBF73A7C17DB0C487B9C791C0CB9AC8CDA3D0D0ABD8D3B4DED7BC
    E3D9C2E8DCC8EDDFD0F1E1D5F4E4D9F7E6DEFAE9E2FCE9E44A4A4A0000000000
    000000000000000000000000000000000000004A4A4A5FB73F6BB94A76BC5482
    BE608FC06C9AC275A4C37EAEC586B7C891C0CB9AC8CEA3D1D2ADD8D5B6DED8BD
    E4DBC4E9DECCEEE2D3F2E4D8F5E6DCF8E9E1FBEBE54A4A4A0000000000000000
    000000000000000000000000000000000000000000004A4A4A6ABB4A76BD5683
    BE618FC16C9BC377A6C580B0C88BBACA95C3CE9FCBD1A8D3D4B1DAD7B9DFD9BF
    E4DBC5EADFCDEFE3D5F3E6DBF7E9E1F9ECE64A4A4A0000000000000000000000
    000000000000000000000000000000000000000000000000004A4A4A75BD5583
    BE618FC16C9BC377A6C581B1C88CBBCB96C4CEA0CCD1A9D4D4B2DBD7BAE1DBC2
    E7DEC9ECE2D1F1E5D8F5E9DFF7EBE34A4A4A0000000000000000000000000000
    000000000000000000000000000000000000000000000000000000004A4A4A83
    BF618FC16C9BC377A6C581B1C88CBBCB96C4CEA0CCD1A9D4D4B1DBD8BAE2DBC3
    E7DFCBEDE2D2F1E6D9F5E9E04A4A4A0000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000004A
    4A4A8FC16C9BC377A6C581B1C88CBBCB95C4CE9FCCD1A8D4D4B1DBD7BAE2DBC2
    E7DECAEDE2D2F1E6D94A4A4A0000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00004A4A4A4A4A4A4A4A4AB1C88BBBCB95C4CE9FCCD1A8D4D4B1DBD7BAE2DAC2
    4A4A4A4A4A4A4A4A4A0000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000004A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFF83FFFFFE00FFFFFC007FFFF800203FF8000007F0000003F1C00001F3E00
    000F7F0000077E000003FC000001FC000001FC000001E0000000F8000000F800
    0000F8000000F8000000F8000000F8000000F8000000FC000001FC000001FC00
    0001FE000003FF000007FF80000FFFC0001FFFE0003FFFF0007FFFFE03FF4669
    6C652063726561746564206279204B4820536F66747761726520466163746F72
    792049636F6E20546F6F6C205365726965732E}
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 249
    Height = 65
    Caption = 'screen  '
    TabOrder = 0
    object Edit1: TEdit
      Left = 64
      Top = 32
      Width = 161
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
      Text = 'Edit1'
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 72
    Width = 249
    Height = 201
    BevelInner = bvLowered
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Bevel1: TBevel
      Left = 0
      Top = 144
      Width = 265
      Height = 4
    end
    object b_1: TButton
      Left = 16
      Top = 8
      Width = 33
      Height = 25
      Caption = '1'
      TabOrder = 0
      OnClick = b_1Click
    end
    object b_4: TButton
      Left = 16
      Top = 45
      Width = 33
      Height = 25
      Caption = '4'
      TabOrder = 1
      OnClick = b_4Click
    end
    object b_7: TButton
      Left = 16
      Top = 80
      Width = 33
      Height = 25
      Caption = '7'
      TabOrder = 2
      OnClick = b_7Click
    end
    object b_0: TButton
      Left = 16
      Top = 112
      Width = 33
      Height = 25
      Caption = '0'
      TabOrder = 3
      OnClick = b_0Click
    end
    object b_p: TButton
      Left = 80
      Top = 112
      Width = 33
      Height = 25
      Caption = '.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = b_pClick
    end
    object b_8: TButton
      Left = 80
      Top = 80
      Width = 33
      Height = 25
      Caption = '8'
      TabOrder = 5
      OnClick = b_8Click
    end
    object b_5: TButton
      Left = 80
      Top = 45
      Width = 33
      Height = 25
      Caption = '5'
      TabOrder = 6
      OnClick = b_5Click
    end
    object b_2: TButton
      Left = 80
      Top = 8
      Width = 33
      Height = 25
      Caption = '2'
      TabOrder = 7
      OnClick = b_2Click
    end
    object b_resume: TButton
      Left = 144
      Top = 112
      Width = 33
      Height = 25
      Caption = #28165#31354
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      OnClick = b_resumeClick
    end
    object b_9: TButton
      Left = 144
      Top = 80
      Width = 33
      Height = 25
      Caption = '9'
      TabOrder = 9
      OnClick = b_9Click
    end
    object b_6: TButton
      Left = 144
      Top = 45
      Width = 33
      Height = 25
      Caption = '6'
      TabOrder = 10
      OnClick = b_6Click
    end
    object b_3: TButton
      Left = 144
      Top = 8
      Width = 33
      Height = 25
      Caption = '3'
      TabOrder = 11
      OnClick = b_3Click
    end
    object b_div: TButton
      Left = 200
      Top = 112
      Width = 33
      Height = 25
      Caption = '/'
      TabOrder = 12
      OnClick = b_divClick
    end
    object b_mul: TButton
      Left = 200
      Top = 80
      Width = 33
      Height = 25
      Caption = '*'
      TabOrder = 13
      OnClick = b_mulClick
    end
    object b_sub: TButton
      Left = 200
      Top = 45
      Width = 33
      Height = 25
      Caption = '-'
      TabOrder = 14
      OnClick = b_subClick
    end
    object b_add: TButton
      Left = 200
      Top = 8
      Width = 33
      Height = 25
      Caption = '+'
      TabOrder = 15
      OnClick = b_addClick
    end
    object b_equal: TButton
      Left = 32
      Top = 160
      Width = 201
      Height = 25
      Caption = '='
      TabOrder = 16
      OnClick = b_equalClick
    end
  end
end