event2.~dfm

来自「Delphi_7.0数据库开发源代码。有内容十一章节」· ~DFM 代码 · 共 48 行

object dmEvents: TdmEvents
  OldCreateOrder = True
  Left = 248
  Top = 117
  Height = 116
  Width = 319
  object Database1: TIBDatabase
    Connected = True
    DatabaseName = 'events.gdb'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    Left = 24
    Top = 20
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = Database1
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    AutoStopAction = saNone
    Left = 88
    Top = 20
  end
  object StoredProc1: TIBStoredProc
    Database = Database1
    Transaction = IBTransaction1
    StoredProcName = 'EVENTDEMO'
    Left = 160
    Top = 24
  end
  object IBEventAlerter1: TIBEvents
    AutoRegister = False
    Database = Database1
    Registered = False
    OnEventAlert = IBEventAlerter1EventAlert
    Left = 228
    Top = 28
  end
end