开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
ClassesData.dfm
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：4k
源码类别：

Delphi控件源码

开发平台：

Delphi

ClassesData.dfm：源码内容
  1. object DmClasses: TDmClasses
  2.   OldCreateOrder = False
  3.   Left = 336
  4.   Top = 148
  5.   Height = 404
  6.   Width = 598
  7.   object IBTransaction1: TIBTransaction
  8.     Active = False
  9.     DefaultDatabase = DmMain.IBDatabase1
  10.     Params.Strings = (
  11.       'read_committed'
  12.       'rec_version'
  13.       'nowait')
  14.     Left = 272
  15.     Top = 32
  16.   end
  17.   object IBClassReg: TIBDataSet
  18.     Database = DmMain.IBDatabase1
  19.     Transaction = IBTransaction1
  20.     AfterInsert = IBClassRegAfterInsert
  21.     BufferChunks = 1000
  22.     CachedUpdates = False
  23.     DeleteSQL.Strings = (
  24.       'delete from CLASSES_REG'
  25.       'where'
  26.       '  ID = :OLD_ID')
  27.     InsertSQL.Strings = (
  28.       'insert into CLASSES_REG'
  29.       '  (ID, ID_CLASS, ID_COMPANY, NOTES)'
  30.       'values'
  31.       '  (:ID, :ID_CLASS, :ID_COMPANY, :NOTES)')
  32.     RefreshSQL.Strings = (
  33.       'select reg.ID, reg.ID_CLASS, reg.ID_COMPANY, reg.NOTES, c.Name '
  34.       'from CLASSES_REG reg'
  35.       'join COMPANIES c on reg.ID_COMPANY = c.id'
  36.       'where id = :id')
  37.     SelectSQL.Strings = (
  38.       'select reg.ID, reg.ID_CLASS, reg.ID_COMPANY, reg.NOTES, c.Name '
  39.       'from CLASSES_REG reg'
  40.       'join COMPANIES c on reg.ID_COMPANY = c.id'
  41.       'where id_class = :id')
  42.     ModifySQL.Strings = (
  43.       'update CLASSES_REG'
  44.       'set'
  45.       '  ID = :ID,'
  46.       '  ID_CLASS = :ID_CLASS,'
  47.       '  ID_COMPANY = :ID_COMPANY,'
  48.       '  NOTES = :NOTES'
  49.       'where'
  50.       '  ID = :OLD_ID')
  51.     GeneratorField.Field = 'ID'
  52.     GeneratorField.Generator = 'G_MASTER'
  53.     DataSource = dsClasses
  54.     Left = 32
  55.     Top = 88
  56.   end
  57.   object dsClasses: TDataSource
  58.     DataSet = IBClasses
  59.     Left = 80
  60.     Top = 32
  61.   end
  62.   object IBClasses: TIBDataSet
  63.     Database = DmMain.IBDatabase1
  64.     Transaction = IBTransaction1
  65.     BufferChunks = 1000
  66.     CachedUpdates = False
  67.     DeleteSQL.Strings = (
  68.       'delete from CLASSES'
  69.       'where'
  70.       '  ID = :OLD_ID and'
  71.       '  STARTS_ON = :OLD_STARTS_ON')
  72.     InsertSQL.Strings = (
  73.       'insert into CLASSES'
  74.       '  (ID, DESCRIPTION, STARTS_ON)'
  75.       'values'
  76.       '  (:ID, :DESCRIPTION, :STARTS_ON)')
  77.     RefreshSQL.Strings = (
  78.       'Select '
  79.       '  ID,'
  80.       '  DESCRIPTION,'
  81.       '  STARTS_ON'
  82.       'from CLASSES '
  83.       'where'
  84.       '  ID = :ID and'
  85.       '  STARTS_ON = :STARTS_ON')
  86.     SelectSQL.Strings = (
  87.       'select ID, DESCRIPTION, STARTS_ON from CLASSES'
  88.       'where STARTS_ON > '#39'NOW'#39)
  89.     ModifySQL.Strings = (
  90.       'update CLASSES'
  91.       'set'
  92.       '  ID = :ID,'
  93.       '  DESCRIPTION = :DESCRIPTION,'
  94.       '  STARTS_ON = :STARTS_ON'
  95.       'where'
  96.       '  ID = :OLD_ID and'
  97.       '  STARTS_ON = :OLD_STARTS_ON')
  98.     GeneratorField.Field = 'ID'
  99.     GeneratorField.Generator = 'G_MASTER'
  100.     Left = 32
  101.     Top = 32
  102.   end
  103.   object IBPeopleReg: TIBDataSet
  104.     Database = DmMain.IBDatabase1
  105.     Transaction = IBTransaction1
  106.     AfterInsert = IBPeopleRegAfterInsert
  107.     BufferChunks = 1000
  108.     CachedUpdates = False
  109.     DeleteSQL.Strings = (
  110.       'delete from PEOPLE_REG'
  111.       'where'
  112.       '  ID = :OLD_ID')
  113.     InsertSQL.Strings = (
  114.       'insert into PEOPLE_REG'
  115.       '  (ID, ID_CLASSES_REG, ID_PERSON, AMOUNT)'
  116.       'values'
  117.       '  (:ID, :ID_CLASSES_REG, :ID_PERSON, :AMOUNT)')
  118.     RefreshSQL.Strings = (
  119.       
  120.         'select preg.ID, preg.ID_CLASSES_REG, preg.ID_PERSON,   preg.AMOU' +
  121.         'NT, p.Name '
  122.       'from PEOPLE_REG preg'
  123.       'join People p on p.id = preg.id_person'
  124.       'where ID = :ID')
  125.     SelectSQL.Strings = (
  126.       
  127.         'select preg.ID, preg.ID_CLASSES_REG, preg.ID_PERSON,   preg.AMOU' +
  128.         'NT, p.Name '
  129.       'from PEOPLE_REG preg'
  130.       'join People p on p.id = preg.id_person'
  131.       'where preg.id_classes_reg = :id')
  132.     ModifySQL.Strings = (
  133.       'update PEOPLE_REG'
  134.       'set'
  135.       '  ID = :ID,'
  136.       '  ID_CLASSES_REG = :ID_CLASSES_REG,'
  137.       '  ID_PERSON = :ID_PERSON,'
  138.       '  AMOUNT = :AMOUNT'
  139.       'where'
  140.       '  ID = :OLD_ID')
  141.     GeneratorField.Field = 'ID'
  142.     GeneratorField.Generator = 'G_MASTER'
  143.     DataSource = dsReg
  144.     Left = 32
  145.     Top = 144
  146.   end
  147.   object dsReg: TDataSource
  148.     DataSet = IBClassReg
  149.     Left = 80
  150.     Top = 88
  151.   end
  152. end