event2.dfm

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

object dmEvents: TdmEvents
  OldCreateOrder = True
  Left = 248
  Top = 117
  Height = 116
  Width = 319
  object Database1: TIBDatabase
    DatabaseName = 'N:\'#26032#24314#25991#20214#22841'\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
    ParamData = <
      item
        DataType = ftString
        Name = 'EVENT'
        ParamType = ptInput
      end>
  end
  object IBEventAlerter1: TIBEvents
    AutoRegister = False
    Database = Database1
    Registered = False
    OnEventAlert = IBEventAlerter1EventAlert
    Left = 244
    Top = 20
  end
end