umadsickness.dfm

来自「一整套的源代码」· DFM 代码 · 共 53 行

inherited MADSickness: TMADSickness
  Left = 325
  Top = 214
  inherited ClientDataSet: TClientDataSet
    Active = True
  end
  inherited DataSet: TSmartQuery
    SQLInsert.Strings = (
      'INSERT INTO RALF.SICKNESS'
      '  (CAPTION, SICKNESSCATALOGCODE)'
      'VALUES'
      '  (:CAPTION, :SICKNESSCATALOGCODE)')
    SQLDelete.Strings = (
      'DELETE FROM RALF.SICKNESS'
      'WHERE'
      '  SICKNESSCODE = :SICKNESSCODE')
    SQLUpdate.Strings = (
      'UPDATE RALF.SICKNESS'
      'SET'
      '  CAPTION = :CAPTION,'
      '  SICKNESSCATALOGCODE = :SICKNESSCATALOGCODE'
      'WHERE'
      '  SICKNESSCODE = :OLD_SICKNESSCODE')
    SQLRefresh.Strings = (
      'WHERE'
      '  SICKNESSCODE = :SICKNESSCODE')
    SQLLock.Strings = (
      'SELECT * FROM RALF.SICKNESS'
      'WHERE'
      '  SICKNESSCODE = :SICKNESSCODE'
      'FOR UPDATE NOWAIT')
    SQL.Strings = (
      'SELECT * FROM RALF.SICKNESS')
    Active = True
    object DataSetSICKNESSCODE: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'SICKNESSCODE'
      Size = 16
    end
    object DataSetCAPTION: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'CAPTION'
      Required = True
      Size = 32
    end
    object DataSetSICKNESSCATALOGCODE: TStringField
      FieldName = 'SICKNESSCATALOGCODE'
      Visible = False
      Size = 8
    end
  end
end