object Datav: TDatav
  OldCreateOrder = False
  Left = 213
  Top = 121
  Height = 269
  Width = 518
  object Basetest: TIBDatabase
    DatabaseName = '192.168.3.240:C:\Program Files\Polufabricat\Test\TEST.gdb'
    Params.Strings = (
      'user_name=SYSDBA'
      'password=masterkey'
      'lc_ctype=WIN1251')
    LoginPrompt = False
    DefaultTransaction = Trbase
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    Left = 8
  end
  object Trbase: TIBTransaction
    Active = False
    DefaultDatabase = Basetest
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    AutoStopAction = saNone
    Left = 56
  end
  object Dobchee: TIBDataSet
    Database = Basetest
    Transaction = Trbase
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from dobchee'
      'where'
      '  NID = :OLD_NID')
    InsertSQL.Strings = (
      'insert into dobchee'
      '  (NID, DATA, OTDEL, FIO, DOLCH)'
      'values'
      '  (:NID, :DATA, :OTDEL, :FIO, :DOLCH)')
    RefreshSQL.Strings = (
      'Select '
      '  NID,'
      '  DATA,'
      '  OTDEL,'
      '  FIO,'
      '  DOLCH'
      'from dobchee '
      'where'
      '  NID = :NID')
    SelectSQL.Strings = (
      'select * from dobchee where nid>(select max( nid) from dobchee) ')
    ModifySQL.Strings = (
      'update dobchee'
      'set'
      '  NID = :NID,'
      '  DATA = :DATA,'
      '  OTDEL = :OTDEL,'
      '  FIO = :FIO,'
      '  DOLCH = :DOLCH'
      'where'
      '  NID = :OLD_NID')
    GeneratorField.Field = 'NID'
    GeneratorField.Generator = 'GEN_DOBCHEE_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 112
    object DobcheeNID: TIntegerField
      DisplayLabel = #8470' '#1087'/'#1087
      FieldName = 'NID'
      Origin = 'DOBCHEE.NID'
      Required = True
    end
    object DobcheeDATA: TDateTimeField
      DisplayLabel = #1044#1072#1090#1072
      FieldName = 'DATA'
      Origin = 'DOBCHEE.DATA'
      Required = True
    end
    object DobcheeOTDEL: TIBStringField
      DisplayLabel = #1054#1090#1076#1077#1083
      FieldName = 'OTDEL'
      Origin = 'DOBCHEE.OTDEL'
      Required = True
      Size = 30
    end
    object DobcheeFIO: TIBStringField
      DisplayLabel = #1060#1072#1084#1080#1083#1080#1103' '#1048#1084#1103' '#1054#1090#1095#1077#1089#1090#1074#1086
      FieldName = 'FIO'
      Origin = 'DOBCHEE.FIO'
      Required = True
      Size = 80
    end
    object DobcheeDOLCH: TIBStringField
      DisplayLabel = #1044#1086#1083#1078#1085#1086#1089#1090#1100
      FieldName = 'DOLCH'
      Origin = 'DOBCHEE.DOLCH'
      Required = True
      Size = 80
    end
  end
  object Sotv: TIBDataSet
    Database = Basetest
    Transaction = Trbase
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from sotv'
      'where'
      '  NIDOTV = :OLD_NIDOTV')
    InsertSQL.Strings = (
      'insert into sotv'
      '  (NIDOTV, NIDVOP, OTVET, PRAVDA)'
      'values'
      '  (:NIDOTV, :NIDVOP, :OTVET, :PRAVDA)')
    RefreshSQL.Strings = (
      'Select '
      '  NIDOTV,'
      '  NIDVOP,'
      '  OTVET,'
      '  PRAVDA'
      'from sotv '
      'where'
      '  NIDOTV = :NIDOTV')
    SelectSQL.Strings = (
      'select * from sotv order by nidotv')
    ModifySQL.Strings = (
      'update sotv'
      'set'
      '  NIDOTV = :NIDOTV,'
      '  NIDVOP = :NIDVOP,'
      '  OTVET = :OTVET,'
      '  PRAVDA = :PRAVDA'
      'where'
      '  NIDOTV = :OLD_NIDOTV')
    GeneratorField.Field = 'NIDOTV'
    GeneratorField.Generator = 'GEN_SOTV_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 216
    object SotvNIDOTV: TIntegerField
      DisplayLabel = #8470' '#1087'/'#1087
      FieldName = 'NIDOTV'
      Origin = 'SOTV.NIDOTV'
      Required = True
    end
    object SotvNIDVOP: TIntegerField
      DisplayLabel = #8470' '#1074#1086#1087#1088#1086#1089#1072
      FieldName = 'NIDVOP'
      Origin = 'SOTV.NIDVOP'
      Required = True
    end
    object SotvPRAVDA: TSmallintField
      DisplayLabel = #1055#1088#1072#1074#1076#1072
      FieldName = 'PRAVDA'
      Origin = 'SOTV.PRAVDA'
      OnGetText = SotvPRAVDAGetText
      DisplayFormat = '0'
    end
    object SotvOTVET: TIBStringField
      DisplayLabel = #1042#1072#1088#1080#1072#1085#1090#1099' '#1086#1090#1074#1077#1090#1072
      FieldName = 'OTVET'
      Origin = 'SOTV.OTVET'
      Size = 400
    end
  end
  object Dotvet: TIBDataSet
    Database = Basetest
    Transaction = Trbase
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from dotvet'
      'where'
      '  NIDDOTV = :OLD_NIDDOTV')
    InsertSQL.Strings = (
      'insert into dotvet'
      '  (NIDDOTV, NIDMEN, NIDVOP, NIDOTV)'
      'values'
      '  (:NIDDOTV, :NIDMEN, :NIDVOP, :NIDOTV)')
    RefreshSQL.Strings = (
      'Select '
      '  NIDDOTV,'
      '  NIDMEN,'
      '  NIDVOP,'
      '  NIDOTV'
      'from dotvet '
      'where'
      '  NIDDOTV = :NIDDOTV')
    SelectSQL.Strings = (
      'select * from dotvet')
    ModifySQL.Strings = (
      'update dotvet'
      'set'
      '  NIDDOTV = :NIDDOTV,'
      '  NIDMEN = :NIDMEN,'
      '  NIDVOP = :NIDVOP,'
      '  NIDOTV = :NIDOTV'
      'where'
      '  NIDDOTV = :OLD_NIDDOTV')
    GeneratorField.Field = 'NIDDOTV'
    GeneratorField.Generator = 'GEN_DOTVET_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 264
    object DotvetNIDDOTV: TIntegerField
      FieldName = 'NIDDOTV'
      Origin = 'DOTVET.NIDDOTV'
      Required = True
    end
    object DotvetNIDMEN: TIntegerField
      FieldName = 'NIDMEN'
      Origin = 'DOTVET.NIDMEN'
      Required = True
    end
    object DotvetNIDVOP: TIntegerField
      FieldName = 'NIDVOP'
      Origin = 'DOTVET.NIDVOP'
      Required = True
    end
    object DotvetNIDOTV: TIntegerField
      FieldName = 'NIDOTV'
      Origin = 'DOTVET.NIDOTV'
      Required = True
    end
  end
  object Dsdobchee: TDataSource
    DataSet = Dobchee
    Left = 8
    Top = 48
  end
  object Dssosnv: TDataSource
    DataSet = Sosnv
    Left = 56
    Top = 48
  end
  object Dssotv: TDataSource
    DataSet = Sotv
    Left = 96
    Top = 48
  end
  object Dsdotv: TDataSource
    DataSet = Dotvet
    Left = 136
    Top = 48
  end
  object Sosnv: TIBDataSet
    Database = Basetest
    Transaction = Trbase
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'delete from sosnv'
      'where'
      '  NIDOSNV = :OLD_NIDOSNV')
    InsertSQL.Strings = (
      'insert into sosnv'
      '  (NIDOSNV, VOPROS, UROVEN)'
      'values'
      '  (:NIDOSNV, :VOPROS, :UROVEN)')
    RefreshSQL.Strings = (
      'Select '
      '  NIDOSNV,'
      '  VOPROS,'
      '  UROVEN'
      'from sosnv '
      'where'
      '  NIDOSNV = :NIDOSNV')
    SelectSQL.Strings = (
      'select * from sosnv order by nidosnv')
    ModifySQL.Strings = (
      'update sosnv'
      'set'
      '  NIDOSNV = :NIDOSNV,'
      '  VOPROS = :VOPROS,'
      '  UROVEN = :UROVEN'
      'where'
      '  NIDOSNV = :OLD_NIDOSNV')
    GeneratorField.Field = 'NIDOSNV'
    GeneratorField.Generator = 'GEN_SOSNV_ID'
    Left = 176
    object SosnvNIDOSNV: TIntegerField
      DisplayLabel = #8470' '#1087'/'#1087
      FieldName = 'NIDOSNV'
      Origin = 'SOSNV.NIDOSNV'
      Required = True
    end
    object SosnvUROVEN: TSmallintField
      DisplayLabel = #1059#1088#1086#1074#1077#1085#1100
      FieldName = 'UROVEN'
      Origin = 'SOSNV.UROVEN'
    end
    object SosnvVOPROS: TIBStringField
      DisplayLabel = #1057#1086#1076#1077#1088#1078#1072#1085#1080#1077' '#1074#1086#1087#1088#1086#1089#1072
      FieldName = 'VOPROS'
      Origin = 'SOSNV.VOPROS'
      Size = 400
    end
  end
  object Query1: TIBQuery
    Database = Basetest
    Transaction = Trbase
    BufferChunks = 1000
    CachedUpdates = False
    Left = 312
  end
end
