umadoperation.dfm

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

inherited MADOperation: TMADOperation
  Left = 344
  Top = 217
  inherited ClientDataSet: TClientDataSet
    Active = True
  end
  inherited DataSet: TSmartQuery
    SQLInsert.Strings = (
      'INSERT INTO RALF.OPERATION'
      '  (CODE, PINYIN, CHARGE, CAPTION, OPERATIONCATALOGID)'
      'VALUES'
      '  (:CODE, :PINYIN, :CHARGE, :CAPTION, :OPERATIONCATALOGID)')
    SQLDelete.Strings = (
      'DELETE FROM RALF.OPERATION'
      'WHERE'
      '  OPERATIONID = :OPERATIONID')
    SQLUpdate.Strings = (
      'UPDATE RALF.OPERATION'
      'SET'
      '  CODE = :CODE,'
      '  PINYIN = :PINYIN,'
      '  CHARGE = :CHARGE,'
      '  CAPTION = :CAPTION,'
      '  OPERATIONCATALOGID = :OPERATIONCATALOGID'
      'WHERE'
      '  OPERATIONID = :OLD_OPERATIONID')
    SQLRefresh.Strings = (
      'WHERE'
      '  OPERATIONID = :OPERATIONID')
    SQLLock.Strings = (
      'SELECT * FROM RALF.OPERATION'
      'WHERE'
      '  OPERATIONID = :OPERATIONID'
      'FOR UPDATE NOWAIT')
    SQL.Strings = (
      'SELECT * FROM RALF.OPERATION')
    Active = True
    object DataSetOPERATIONID: TFloatField
      DisplayLabel = #32534#21495
      FieldName = 'OPERATIONID'
      ReadOnly = True
    end
    object DataSetCODE: TStringField
      DisplayLabel = #32534#30721
      FieldName = 'CODE'
      Required = True
      Size = 32
    end
    object DataSetPINYIN: TStringField
      DisplayLabel = #25340#38899
      FieldName = 'PINYIN'
      Required = True
      Size = 32
    end
    object DataSetCHARGE: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'CHARGE'
      Required = True
    end
    object DataSetCAPTION: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'CAPTION'
      Required = True
      Size = 32
    end
    object DataSetOPERATIONCATALOGID: TFloatField
      DisplayLabel = #25163#26415#20998#31867
      FieldName = 'OPERATIONCATALOGID'
      Required = True
    end
  end
end