⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 umadnativeplace.dfm

📁 Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres
💻 DFM
字号:
inherited MADNativePlace: TMADNativePlace
  inherited ClientDataSet: TClientDataSet
    Active = True
  end
  inherited DataSet: TSmartQuery
    SQLInsert.Strings = (
      'INSERT INTO RALF.NATIVEPLACE'
      '  (PARENTID, CAPTION)'
      'VALUES'
      '  (:PARENTID, :CAPTION)')
    SQLDelete.Strings = (
      'DELETE FROM RALF.NATIVEPLACE'
      'WHERE'
      '  NATIVEPLACEID = :NATIVEPLACEID')
    SQLUpdate.Strings = (
      'UPDATE RALF.NATIVEPLACE'
      'SET'
      '  PARENTID = :PARENTID,'
      '  CAPTION = :CAPTION'
      'WHERE'
      '  NATIVEPLACEID = :OLD_NATIVEPLACEID')
    SQLRefresh.Strings = (
      'WHERE'
      '  NATIVEPLACEID = :NATIVEPLACEID')
    SQLLock.Strings = (
      'SELECT * FROM RALF.NATIVEPLACE'
      'WHERE'
      '  NATIVEPLACEID = :NATIVEPLACEID'
      'FOR UPDATE NOWAIT')
    SQL.Strings = (
      'SELECT * FROM RALF.NATIVEPLACE')
    Active = True
    object DataSetNATIVEPLACEID: TFloatField
      DisplayLabel = #32534#21495
      FieldName = 'NATIVEPLACEID'
      ReadOnly = True
    end
    object DataSetPARENTID: TFloatField
      FieldName = 'PARENTID'
    end
    object DataSetCAPTION: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'CAPTION'
      Required = True
      Size = 32
    end
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -