djjcom.~dfm

用delphi串口技术写成的土工试验自动衡量模块

  object Memo1: TMemo
    Left = 21
    Top = 281
    Width = 184
    Height = 108
    BevelOuter = bvNone
    Color = clAqua
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssVertical
    TabOrder = 14
  end
  object Panel1: TPanel
    Left = 221
    Top = 89
    Width = 481
    Height = 352
    TabOrder = 15
    Visible = False
    object Label7: TLabel
      Left = 176
      Top = 10
      Width = 100
      Height = 24
      Caption = #25968#25454#27983#35272
      Font.Charset = GB2312_CHARSET
      Font.Color = clTeal
      Font.Height = -24
      Font.Name = #26999#20307'_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 454
      Top = 3
      Width = 23
      Height = 23
      Flat = True
      Glyph.Data = {
        76050000424D7605000000000000360000002800000015000000150000000100
        1800000000004005000000000000000000000000000000000000F75E05F39666
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCECE5F19366FFFFFF00F59966D0D6EE
        2844B50D2BA61130AC1231AB1432A91230A91332AC1332AD1031AE0D30B10A2E
        B2082DB4062AB10328B10127B40024AE1F3CACCFD4EAFFFFFF00FDEDE52849CD
        1338CC1B3ECC2144CF2547CF2647CF2446CF2347D02146D11E45D21B45D51642
        D51340D60E3DD50939D60435D50130D1002AC21F3CABFFFFFF00FFFFFF0E37D8
        1C43DB284CDD2F52DE3355DF3457E03155E03156E02E56E12A55E22553E41F50
        E4194CE51348E50D43E5073EE40238E0002FD10023AAFFFFFF00FFFFFF143CDD
        254BE03154E1395BE33D5EE43D5FE43B5EE4395EE5375EE5325DE62C5BE72557
        E81F54E91950E9114AE90B44E8053DE40233D60126AFFFFFFF00FFFFFF1840DE
        2E51E13A5CE34262E4B5C1F5FFFFFF4365E64165E63D64E63862E73260E82A5C
        E92459EAFFFFFFA1B8F70E48E90940E50536D70227B0FFFFFF00FFFFFF1E45DF
        3658E24262E44967E5FFFFFFFFFFFFFFFFFF4568E64167E73B64E73562E82D5E
        EAFFFFFFFFFFFFFFFFFF114AE90D44E60B3BD7062BB1FFFFFF00FFFFFF254BE0
        3D5EE34867E54E6CE6506DE6FFFFFFFFFFFFFFFFFF4268E73C65E73662E8FFFF
        FFFFFFFFFFFFFF1950E9164CE81347E4103FD80A2DB1FFFFFF00FFFFFF2B4FE1
        4463E44E6BE6526FE7536FE7516EE6FFFFFFFFFFFFFFFFFF3D65E7FFFFFFFFFF
        FFF1F5FE2154E81B50E8184DE7184AE41642D70F31B2FFFFFF00FFFFFF3254E2
        4B69E55470E75671E75570E8526FE74D6CE6FFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FF2655E72152E71C4EE61C4DE61C4CE31C46D61233B0FFFFFF00FFFFFF3759E3
        516DE75772E85973E85771E7526EE64D6AE64767E5FFFFFFFFFFFFFFFFFF2C57
        E52653E52250E51E4DE51F4DE5214EE22149D61635AFFFFFFF00FFFFFF3C5DE3
        5974E85D77E85D76E85972E7536FE64E6BE5FFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FF2751E4234FE4204CE3224DE3254FE1254AD51937AFFFFFFF00FFFFFF4665E5
        607AE8627CE8607AE85B74E8546EE7FFFFFFFFFFFFFFFFFF3A5CE3FFFFFFFFFF
        FFFFFFFF244DE2224BE2254DE22950E0294CD41B39AEFFFFFF00FFFFFF4665E5
        6881E96A83EA657EE95E77E8FFFFFFFFFFFFFFFFFF4361E43D5DE43658E3FFFF
        FFFFFFFFFFFFFF274EE22A50E22C51E02A4DD31C39ADFFFFFF00FFFFFF4D6AE6
        6E87EB708AEB6A83EAFFFFFFFFFFFFFFFFFF4D68E54764E4405FE43A5BE33456
        E2FFFFFFFFFFFFFFFFFF2D52E22E52DF2C4DD31D3AADFFFFFF00FFFFFF526FE7
        7991EC7C93EC718AEBC2CCF7FFFFFF5972E7536DE74D68E54664E4415FE43A5B
        E33859E3FFFFFFADBBF33155E23053DF2C4ED31D3AADFFFFFF00FFFFFF5874E8
        899DEE8DA1EF7F95ED718AEB6A83EA647DE95E78E85973E7546FE7516DE64B68
        E54A68E54463E43F60E43A5CE33456E02A4CD21836ACFFFFFF00FFFFFF657FE9
        97A9F09AACF1899DEE7A91EC728BEB6D85EA6881E9657EE8627CE9617BE95D77
        E85974E8526FE64C6AE54363E43759E1284AD21533AAFFFFFF00FFFFFF768DEC
        90A3EF94A6F0859AEE758DEB6E87EA6881EA667FE9627CE95F79E85E79E85975
        E85672E7506EE64968E53F60E43255E02346D0304BB6FFFFFF00E79166DCE1FA
        738BEB607BE95571E74D6AE64866E54261E44463E43E5FE43E5FE43B5CE33B5C
        E33356E23356E23053E2284DE01F45DC3453D0D2D8EFFFFFFF00E05205E79166
        FBECE5FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDF8766FFFFFF00}
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 222
      Top = 310
      Width = 33
      Height = 33
      Hint = #21462#28040#24403#21069#35760#24405#30340#25968#25454
      Caption = #215
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object DBGrid1: TDBGrid
      Left = 4
      Top = 38
      Width = 473
      Height = 267
      Color = clWhite
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
    end
    object DBNavigator1: TDBNavigator
      Left = 24
      Top = 310
      Width = 198
      Height = 33
      DataSource = DataSource1
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete]
      TabOrder = 1
    end
  end
  object ComboBox16: TComboBox
    Left = 94
    Top = 129
    Width = 101
    Height = 24
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 16
    OnChange = ComboBox16Change
    OnExit = ComboBox16Exit
    OnKeyPress = ComboBox16KeyPress
  end
  object ComboBox17: TComboBox
    Left = 94
    Top = 154
    Width = 101
    Height = 24
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    TabOrder = 17
    OnChange = ComboBox17Change
    OnKeyPress = ComboBox17KeyPress
  end
  object Panel2: TPanel
    Left = 20
    Top = 120
    Width = 185
    Height = 269
    BevelInner = bvLowered
    Color = clSilver
    TabOrder = 18
    Visible = False
    object DBText1: TDBText
      Left = 15
      Top = 56
      Width = 28
      Height = 14
      AutoSize = True
      DataField = #29615#20992#21495'1'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 59
      Top = 55
      Width = 35
      Height = 14
      AutoSize = True
      DataField = #23494#24230'1'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 15
      Top = 72
      Width = 21
      Height = 14
      AutoSize = True
      DataField = #29615#20992#21495'2'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText4: TDBText
      Left = 59
      Top = 72
      Width = 35
      Height = 14
      AutoSize = True
      DataField = #23494#24230'2'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText5: TDBText
      Left = 15
      Top = 89
      Width = 14
      Height = 14
      AutoSize = True
      DataField = #29615#20992#21495'3'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText6: TDBText
      Left = 59
      Top = 88
      Width = 35
      Height = 14
      AutoSize = True
      DataField = #23494#24230'3'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText7: TDBText
      Left = 15
      Top = 106
      Width = 21
      Height = 14
      AutoSize = True
      DataField = #29615#20992#21495'4'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText8: TDBText
      Left = 59
      Top = 104
      Width = 35
      Height = 14
      AutoSize = True
      DataField = #23494#24230'4'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText9: TDBText
      Left = 15
      Top = 122
      Width = 21
      Height = 14
      AutoSize = True
      DataField = #29615#20992#21495'5'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText10: TDBText
      Left = 59
      Top = 120
      Width = 35
      Height = 14
      AutoSize = True
      DataField = #23494#24230'5'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText11: TDBText
      Left = 15
      Top = 138
      Width = 7
      Height = 14
      AutoSize = True
      DataField = #29615#20992#21495'6'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText12: TDBText
      Left = 59
      Top = 136
      Width = 7
      Height = 14
      AutoSize = True
      DataField = #23494#24230'6'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText13: TDBText
      Left = 15
      Top = 154
      Width = 7
      Height = 14
      AutoSize = True
      DataField = #29615#20992#21495'7'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText14: TDBText
      Left = 59
      Top = 152
      Width = 7
      Height = 14
      AutoSize = True
      DataField = #23494#24230'7'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText15: TDBText
      Left = 15
      Top = 170
      Width = 7
      Height = 14
      AutoSize = True
      DataField = #29615#20992#21495'8'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText16: TDBText
      Left = 59
      Top = 168
      Width = 7
      Height = 14
      AutoSize = True
      DataField = #23494#24230'8'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText17: TDBText
      Left = 15
      Top = 186
      Width = 7
      Height = 14
      AutoSize = True
      DataField = #29615#20992#21495'9'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText18: TDBText
      Left = 59
      Top = 184
      Width = 7
      Height = 14
      AutoSize = True
      DataField = #23494#24230'9'
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 42
      Top = 209
      Width = 98
      Height = 14
      Caption = #35831#36873#21462#21387#32553#29615#20992
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText19: TDBText
      Left = 68
      Top = 10
      Width = 32
      Height = 16
      AutoSize = True
      DataField = #23460#32534#21495
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText20: TDBText
      Left = 69
      Top = 28
      Width = 48
      Height = 16
      AutoSize = True
      DataField = #21407#32534#21495
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label32: TLabel
      Left = 16
      Top = 11
      Width = 42
      Height = 14
      Caption = #23460#32534#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label33: TLabel
      Left = 16
      Top = 29
      Width = 42
      Height = 14
      Caption = #21407#32534#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Bevel8: TBevel
      Left = -23
      Top = 266