mainform.dfm

用delphi做的一个可以计算sql运行时间的系统,大家可以参考一下.

      object UseDataLinkFile: TRadioButton
        Left = 24
        Top = 22
        Width = 225
        Height = 17
        Hint = #36873#25321#38142#25509#25991#20214
        Caption = #20351#29992#25968#25454#24211#36830#25509#25991#20214'(Use Data &Link File)'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = UseDataLinkFileClick
      end
      object UseConnectionString: TRadioButton
        Left = 24
        Top = 72
        Width = 241
        Height = 17
        Hint = #36873#25321#38142#25509#23383#31526#20018
        Caption = #20351#29992#36830#25509#23383#31526#20018'(Use &Connection String)'
        Checked = True
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        TabStop = True
        OnClick = UseConnectionStringClick
      end
    end
    object GroupBox2: TGroupBox
      Left = 1
      Top = 130
      Width = 431
      Height = 263
      Align = alClient
      Caption = #25191#34892#36873#39033
      TabOrder = 1
      object Label3: TLabel
        Left = 24
        Top = 208
        Width = 60
        Height = 13
        Caption = #25191#34892#27425#25968#65306
      end
      object btSelectSQLFile: TSpeedButton
        Left = 388
        Top = 46
        Width = 23
        Height = 22
        Caption = '...'
        OnClick = btSelectSQLFileClick
      end
      object Label1: TLabel
        Left = 24
        Top = 236
        Width = 60
        Height = 13
        Caption = #38388#38548#26102#38388#65306
      end
      object edLoopTimes: TdxSpinEdit
        Left = 104
        Top = 203
        Width = 305
        Hint = #30830#23450'SQL'#25191#34892#27425#25968
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ParentShowHint = False
        ShowHint = True
        Style.BorderStyle = xbsSingle
        Style.Shadow = True
        TabOrder = 0
        MaxValue = 1000000000
        StoredValues = 16
      end
      object edIntervalTime: TdxSpinEdit
        Left = 104
        Top = 236
        Width = 305
        Hint = #30830#23450'SQL'#25191#34892#38388#38548#26102#38388
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ParentShowHint = False
        ShowHint = True
        Style.BorderStyle = xbsSingle
        Style.Shadow = True
        TabOrder = 1
        MaxValue = 1000000000
        StoredValues = 16
      end
      object edSQLFile: TdxEdit
        Left = 40
        Top = 46
        Width = 345
        Hint = #36873#25321'SQL'#25991#20214
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ParentShowHint = False
        ShowHint = True
        Style.BorderStyle = xbsSingle
        Style.Shadow = True
        TabOrder = 2
      end
      object UseSQLFile: TRadioButton
        Left = 24
        Top = 17
        Width = 73
        Height = 17
        Hint = #36873#25321'SQL'#25991#20214
        Caption = 'SQL'#25991#20214#65306
        Checked = True
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        TabStop = True
        OnClick = UseSQLFileClick
      end
      object UseSQLEdit: TRadioButton
        Left = 24
        Top = 80
        Width = 73
        Height = 17
        Hint = #38190#20837'SQL'#35821#21477
        Caption = 'SQL'#35821#21477#65306
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = UseSQLEditClick
      end
      object edSQLEdit: TdxMemo
        Left = 40
        Top = 104
        Width = 369
        Hint = #38190#20837'SQL'#35821#21477
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ParentShowHint = False
        ShowHint = True
        Style.BorderStyle = xbsSingle
        Style.Shadow = True
        TabOrder = 5
        Height = 89
      end
    end
  end
  object Panel3: TPanel
    Left = 433
    Top = 0
    Width = 296
    Height = 394
    Align = alClient
    TabOrder = 2
    object RunTimeList: TdxMemo
      Left = 1
      Top = 1
      Width = 294
      Hint = 'SQL'#25191#34892#32467#26524
      Align = alClient
      Color = 16776176
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ParentShowHint = False
      ShowHint = True
      Style.BorderStyle = xbsSingle
      Style.Shadow = True
      TabOrder = 0
      ReadOnly = True
      Lines.Strings = (
        'SQL'#36816
        '')
      Height = 351
      StoredValues = 64
    end
    object Panel4: TPanel
      Left = 1
      Top = 352
      Width = 294
      Height = 41
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      DesignSize = (
        294
        41)
      object btClear: TRzBitBtn
        Left = 118
        Top = 8
        Width = 83
        Hint = #28165#31354'SQL'#25191#34892#32467#26524
        Anchors = [akRight, akBottom]
        Caption = #28165#31354
        Color = 15791348
        HighlightColor = 16026986
        HotTrack = True
        HotTrackColor = 3983359
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = btClearClick
        Glyph.Data = {
          36060000424D3606000000000000360400002800000020000000100000000100
          08000000000000020000620B0000620B00000001000000000000000000003300
          00006600000099000000CC000000FF0000000033000033330000663300009933
          0000CC330000FF33000000660000336600006666000099660000CC660000FF66
          000000990000339900006699000099990000CC990000FF99000000CC000033CC
          000066CC000099CC0000CCCC0000FFCC000000FF000033FF000066FF000099FF
          0000CCFF0000FFFF000000003300330033006600330099003300CC003300FF00
          330000333300333333006633330099333300CC333300FF333300006633003366
          33006666330099663300CC663300FF6633000099330033993300669933009999
          3300CC993300FF99330000CC330033CC330066CC330099CC3300CCCC3300FFCC
          330000FF330033FF330066FF330099FF3300CCFF3300FFFF3300000066003300
          66006600660099006600CC006600FF0066000033660033336600663366009933
          6600CC336600FF33660000666600336666006666660099666600CC666600FF66
          660000996600339966006699660099996600CC996600FF99660000CC660033CC
          660066CC660099CC6600CCCC6600FFCC660000FF660033FF660066FF660099FF
          6600CCFF6600FFFF660000009900330099006600990099009900CC009900FF00
          990000339900333399006633990099339900CC339900FF339900006699003366
          99006666990099669900CC669900FF6699000099990033999900669999009999
          9900CC999900FF99990000CC990033CC990066CC990099CC9900CCCC9900FFCC
          990000FF990033FF990066FF990099FF9900CCFF9900FFFF99000000CC003300
          CC006600CC009900CC00CC00CC00FF00CC000033CC003333CC006633CC009933
          CC00CC33CC00FF33CC000066CC003366CC006666CC009966CC00CC66CC00FF66
          CC000099CC003399CC006699CC009999CC00CC99CC00FF99CC0000CCCC0033CC
          CC0066CCCC0099CCCC00CCCCCC00FFCCCC0000FFCC0033FFCC0066FFCC0099FF
          CC00CCFFCC00FFFFCC000000FF003300FF006600FF009900FF00CC00FF00FF00
          FF000033FF003333FF006633FF009933FF00CC33FF00FF33FF000066FF003366
          FF006666FF009966FF00CC66FF00FF66FF000099FF003399FF006699FF009999
          FF00CC99FF00FF99FF0000CCFF0033CCFF0066CCFF0099CCFF00CCCCFF00FFCC
          FF0000FFFF0033FFFF0066FFFF0099FFFF00CCFFFF00FFFFFF00000080000080
          000000808000800000008000800080800000C0C0C00080808000191919004C4C
          4C00B2B2B200E5E5E500C8AC2800E0CC6600F2EABF00B59B2400D8E9EC009933
          6600D075A300ECC6D900646F710099A8AC00E2EFF10000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000E8E8E8EEE3E3
          E3E3E3E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E8E3DE81DF
          DF81EDDEACEEE8E8E8E8E8E8E8DE8181DF81ACDEACE8E8E8E8E8E8E8ACAC8888
          8881DF56DFE2E3E8E8E8E8E8ACACDEDEDE81DF81DFE2E8E8E8E8E8E3B3E6E688
          EB89E6E6DF5681E3E8E8E8E8E8E8E8DEACDEE8E8DF8181E8E8E8E889E6E6ACEB
          12ACACACB3E2ECACE8E8E8DEE8E8ACAC81ACACACE8E281ACE8E8E88989E3EBEB
          1212121287E6DFE2EEE8E8DEDEE8ACAC81818181E2E8DFE2E8E8E389E3E3EBDE
          121262B23D89DFE2EEE8E8DEE8E8ACDE8181ACE881DEDFE2E8E8E6E6D7D782EB