PC Format Collection 48/SENT14D.ISO/tech/delphi/disk15/dbtools.pak/SYBMON.DFM/SYBMON.txt

Text File | 1995-08-24 | 8.0 KB | 299 lines

object SybMonitorDialog: TSybMonitorDialog
  Left = 133
  Top = 194
  ActiveControl = ExitBtn
  BorderStyle = bsDialog
  Caption = 'Sybase Activity Monitor'
  ClientHeight = 323
  ClientWidth = 840
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  OnShow = FormShow
  TextHeight = 13
  object ButtonPanel: TPanel
    Left = 749
    Top = 0
    Width = 91
    Height = 302
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 0
    object ExitBtn: TBitBtn
      Left = 8
      Top = 8
      Width = 77
      Height = 27
      Cancel = True
      Caption = 'E&xit'
      Default = True
      ModalResult = 1
      TabOrder = 0
      OnClick = ExitBtnClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F33330000000000033333777777777773330000}
      Margin = 2
      NumGlyphs = 2
      Spacing = -1
      IsControl = True
    end
    object OptionsBtn: TBitBtn
      Left = 8
      Top = 40
      Width = 77
      Height = 27
      Caption = '&Options'
      ModalResult = 1
      TabOrder = 1
      OnClick = OptionsBtnClick
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333300333
        33333333333773FF333333333330F0033333333333373773FF333333330FFFF0
        03333333337F333773FF3333330FFFFFF003333333733FF33773333330FF00FF
        FF80333337F3773F3337333330FFFF0FFFF03FFFF7FFF3733F3700000000FFFF
        0FF0777777773FF373370000000000FFFFF07FFFFFF377FFF3370CCCCC000000
        FF037777773337773F7300CCC000003300307F77733337F37737000C00000033
        33307F373333F7F333370000007B703333307FFFF337F7F33337099900BBB033
        33307777F37777FF33370999007B700333037777F3373773FF73099900000030
        00337777FFFFF7F77733000000000033333377777777773333330000}
      Margin = 2
      NumGlyphs = 2
      Spacing = -1
      IsControl = True
    end
  end
  object TabSet: TTabSet
    Left = 0
    Top = 302
    Width = 840
    Height = 21
    Align = alBottom
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Tabs.Strings = (
      'Activity'
      'Processes'
      'Locks')
    TabIndex = 0
    TabOrder = 1
    OnClick = TabSetClick
  end
  object MonitorGrid: TDBGrid
    Left = 0
    Top = 0
    Width = 749
    Height = 302
    Align = alClient
    DataSource = MonitorSource
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    Options = [dgTitles, dgColumnResize, dgColLines, dgTabs]
    ParentColor = True
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'Arial'
    TitleFont.Style = [fsBold]
  end
  object MonitorDb: TDatabase
    DatabaseName = 'SybaseMonitorDb'
    TransIsolation = tiDirtyRead
    Left = 40
    Top = 272
  end
  object Refresh: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = RefreshTimer
    Left = 8
    Top = 272
  end
  object MonitorSource: TDataSource
    DataSet = ActivityQuery
    Left = 72
    Top = 272
  end
  object ActivityQuery: TQuery
    DatabaseName = 'SybaseMonitorDb'
    SQL.Strings = (
      'sp_who')
    Left = 104
    Top = 272
    object ActivityQueryspid: TSmallintField
      Alignment = taCenter
      DisplayLabel = 'Proc Id'
      DisplayWidth = 7
      FieldName = 'spid'
    end
    object ActivityQuerystatus: TStringField
      Alignment = taCenter
      DisplayLabel = 'Status'
      DisplayWidth = 8
      FieldName = 'status'
      Size = 10
    end
    object ActivityQueryloginame: TStringField
      DisplayLabel = 'Login Name'
      DisplayWidth = 11
      FieldName = 'loginame'
      Size = 12
    end
    object ActivityQueryhostname: TStringField
      DisplayLabel = 'Host Name'
      DisplayWidth = 10
      FieldName = 'hostname'
      Size = 10
    end
    object ActivityQueryblk: TStringField
      Alignment = taCenter
      DisplayLabel = 'Wait On'
      DisplayWidth = 7
      FieldName = 'blk'
      Size = 3
    end
    object ActivityQuerydbname: TStringField
      DisplayLabel = 'Database'
      DisplayWidth = 10
      FieldName = 'dbname'
      Size = 10
    end
    object ActivityQuerycmd: TStringField
      DisplayLabel = 'Command'
      DisplayWidth = 30
      FieldName = 'cmd'
      Size = 16
    end
  end
  object ProcessesQuery: TQuery
    DatabaseName = 'SybaseMonitorDb'
    SQL.Strings = (
      'select * from master.dbo.sysprocesses')
    Left = 136
    Top = 272
    object ProcessesQueryspid: TSmallintField
      Alignment = taCenter
      DisplayLabel = 'Proc Id'
      DisplayWidth = 7
      FieldName = 'spid'
    end
    object ProcessesQuerykpid: TSmallintField
      DisplayLabel = 'Os Id'
      DisplayWidth = 6
      FieldName = 'kpid'
    end
    object ProcessesQueryhostprocess: TStringField
      Alignment = taRightJustify
      DisplayLabel = 'Host Proc Id'
      DisplayWidth = 11
      FieldName = 'hostprocess'
      Size = 8
    end
    object ProcessesQuerystatus: TStringField
      Alignment = taCenter
      DisplayLabel = 'Status'
      DisplayWidth = 8
      FieldName = 'status'
      Size = 10
    end
    object ProcessesQueryblocked: TSmallintField
      Alignment = taCenter
      DisplayLabel = 'Wait On'
      DisplayWidth = 7
      FieldName = 'blocked'
    end
    object ProcessesQuerysuid: TSmallintField
      DisplayLabel = 'Login Id'
      DisplayWidth = 8
      FieldName = 'suid'
    end
    object ProcessesQueryuid: TSmallintField
      DisplayLabel = 'User'
      DisplayWidth = 5
      FieldName = 'uid'
    end
    object ProcessesQuerydbid: TSmallintField
      DisplayLabel = 'Database'
      DisplayWidth = 9
      FieldName = 'dbid'
    end
    object ProcessesQuerycmd: TStringField
      DisplayLabel = 'Command'
      DisplayWidth = 19
      FieldName = 'cmd'
      Size = 16
    end
    object ProcessesQuerycpu: TIntegerField
      DisplayLabel = 'CPU Usage'
      DisplayWidth = 10
      FieldName = 'cpu'
    end
    object ProcessesQueryphysical_io: TIntegerField
      DisplayLabel = 'Physical IO'
      DisplayWidth = 10
      FieldName = 'physical_io'
    end
    object ProcessesQuerymemusage: TIntegerField
      DisplayLabel = 'Mem Usage'
      DisplayWidth = 11
      FieldName = 'memusage'
    end
  end
  object LocksQuery: TQuery
    DatabaseName = 'SybaseMonitorDb'
    SQL.Strings = (
      'sp_lock'
      '')
    Left = 168
    Top = 272
    object LocksQueryspid: TSmallintField
      Alignment = taCenter
      DisplayLabel = 'Proc Id'
      DisplayWidth = 7
      FieldName = 'spid'
    end
    object LocksQuerydbname: TStringField
      DisplayLabel = 'Database'
      DisplayWidth = 11
      FieldName = 'dbname'
      Size = 15
    end
    object LocksQuerylocktype: TStringField
      DisplayLabel = 'Lock Type'
      DisplayWidth = 14
      FieldName = 'locktype'
    end
    object LocksQuerytable_id: TIntegerField
      DisplayLabel = 'Table Id'
      DisplayWidth = 10
      FieldName = 'table_id'
    end
    object LocksQuerypage: TIntegerField
      DisplayLabel = 'Page'
      DisplayWidth = 10
      FieldName = 'page'
    end
  end
end