frmmainu.dfm

Delphi_7.0数据库开发源代码。有内容十一章节

object frmMain: TfrmMain
  Left = 278
  Top = 130
  Width = 582
  Height = 389
  Caption = 'SQL Monitoring Example'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 218
    Width = 574
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object Splitter2: TSplitter
    Left = 265
    Top = 24
    Height = 194
  end
  object Memo1: TMemo
    Left = 0
    Top = 24
    Width = 265
    Height = 194
    Align = alLeft
    Lines.Strings = (
      'select * from employee')
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Memo2: TMemo
    Left = 268
    Top = 24
    Width = 306
    Height = 194
    Align = alClient
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 221
    Width = 574
    Height = 122
    Align = alBottom
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 574
    Height = 24
    AutoSize = True
    Caption = 'ToolBar1'
    Flat = True
    Images = ImageList1
    TabOrder = 3
    object btnRun: TToolButton
      Left = 0
      Top = 0
      Hint = 'Run SQL'
      Caption = 'btnRun'
      Enabled = False
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
      OnClick = RunClick
    end
    object btnLaunch: TToolButton
      Left = 23
      Top = 0
      Hint = 'New Monitor Window'
      Caption = 'btnLaunch'
      ImageIndex = 1
      OnClick = LaunchClick
    end
    object Label2: TLabel
      Left = 46
      Top = 0
      Width = 251
      Height = 22
      AutoSize = False
    end
    object Label1: TLabel
      Left = 297
      Top = 0
      Width = 3
      Height = 22
    end
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 
      'C:\Program Files\InterBase Corp\InterBase\examples\Database\empl' +
      'oyee.gdb'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = [tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect, tfTransact, tfBlob, tfService, tfMisc]
    Left = 120
    Top = 40
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    DefaultAction = TACommitRetaining
    AutoStopAction = saNone
    Left = 148
    Top = 40
  end
  object IBDataSet1: TIBDataSet
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 32
    CachedUpdates = False
    SelectSQL.Strings = (
      'select * from EMPLOYEE')
    Left = 184
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = IBDataSet1
    Left = 212
    Top = 40
  end
  object IBSQLMonitor1: TIBSQLMonitor
    OnSQL = IBSQLMonitor1SQL
    TraceFlags = [tfQPrepare, tfQExecute, tfQFetch, tfError, tfStmt, tfConnect, tfTransact, tfBlob, tfService, tfMisc]
    Left = 64
    Top = 60
  end
  object MainMenu1: TMainMenu
    Left = 424
    Top = 28
    object Trace1: TMenuItem
      Caption = 'Tracing'
      Checked = True
      object Connect3: TMenuItem
        Caption = 'DB Connect'
        OnClick = Connect3Click
      end
      object Trace2: TMenuItem
        Caption = 'Monitor Hook'
        Checked = True
        OnClick = Trace2Click
      end
      object SQLMonitor1: TMenuItem
        Caption = 'SQL Monitor'
        Checked = True
        OnClick = SQLMonitor1Click
      end
    end
    object Flags1: TMenuItem
      Caption = 'Flags'
      object Database1: TMenuItem
        Caption = 'Database'
        OnClick = Database1Click
      end
      object MonitorHook1: TMenuItem
        Caption = 'MonitorHook'
        OnClick = MonitorHook1Click
      end
      object SQLMonitor2: TMenuItem
        Caption = 'SQL Monitor'
        OnClick = SQLMonitor2Click
      end
    end
    object Clear1: TMenuItem
      Caption = 'Clear Trace'
      OnClick = Clear1Click
    end
    object MonitorCount1: TMenuItem
      Caption = 'MonitorCount'
      OnClick = MonitorCount1Click
    end
  end
  object ImageList1: TImageList
    Left = 280
    Top = 18
    Bitmap = {
      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      00000000C6188C31000000000000000000000000000000000000000000000000
      0000E07F000000000000000000000000E07F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000C6181863524A00000000000000000000E07FE07F0000EF3DEF3DEF3D
      E07FE07FEF3DEF3DEF3DEF3DE07FE07F00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000F00C6181863524A00000000000000000000E07F0000000000000000
      000000000000000000000000E07F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000007001700C6181863524A000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7F0000EF3D000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      8C31524A524A0F001700C6181863524A00000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7F0000EF3D000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000C618524A1863
      1863524A8C310F001F001700C6181863524A0000000000000000FF7F00000000
      FF7F000000000000FF7F0000EF3D000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000C618524A1863524A8C31
      000000000F0017001F001F001700C618C6180000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7F0000EF3D000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000C6181863524AC61800000700
      17001F001F001F001F001F001F00FF00EB00E07FE07FE07F0000FF7F00000000
      00000000FF7F0000FF7F0000E07FE07F00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000C6181863C6180000070017001F00
      1F001F00FF00FF01FF001F00FF00FB0204000000E07FE07F0000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7F0000E07FE07FE07F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000017001F001F001F00
      1F00FF02F701F300FF01FF00FB02040000000000000000000000FF7F00000000
      FF7F000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000EF00F701FF01FF011F001F00
      FF02EF0000000800FF02FB020400000000000000000000000000FF7FFF7FFF7F
      FF7F0000FF7FFF7F000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000800080008000800F7011F00FF02
      EF0000000000EF00FB0204000000000000000000000000000000FF7F0000F75E
      FF7F0000FF7F0000E07F00000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000F701FF02EF00
      000000000400F701040000000000000000000000000000000000FF7FFF7FFF7F
      FF7F000000000000E07FE07F0000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000F701EF000000
      00000000040004000000000000000000000000000000E07F0000000000000000
      00000000000000000000E07FE07F000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000C0000000000
      0000000000000000000000000000000000000000E07FE07F0000000000000000
      E07FE07F0000000000000000E07FE07F00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000E07F000000000000000000000000
      E07F0000000000000000000000000000E07F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FF9FFF7E00000000FF0F900100000000
      FF07C00300000000FF83E00300000000FE01E00300000000F000E00300000000
      C000E00300000000800000010000000000008000000000008001E00700000000
      0043E00F0000000000C7E00F00000000F18FE02700000000F39FC07300000000
      F7FF9E7900000000FFFF7EFE0000000000000000000000000000000000000000
      000000000000}
  end
end