umadsick.dfm

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

inherited MADSick: TMADSick
  Left = 217
  Top = 202
  inherited ClientDataSet: TClientDataSet
    Active = True
  end
  inherited DataSet: TSmartQuery
    SQLInsert.Strings = (
      'INSERT INTO RALF.SICK'
      
        '  (ISARREARAGE, CODE, BIRTHDAY, SEX, CNAME, CREATED, ISACTIVE, I' +
        'SVALID, ST, UPDATED, PROFESSIONID, WEDLOCKID, NATIVEPLACEID, NAT' +
        'IONID, PAYMENTMETHODID, CREATEBY, UPDATEBY, TOLLSTATIONID)'
      'VALUES'
      
        '  (:ISARREARAGE, :CODE, :BIRTHDAY, :SEX, :CNAME, :CREATED, :ISAC' +
        'TIVE, :ISVALID, :ST, :UPDATED, :PROFESSIONID, :WEDLOCKID, :NATIV' +
        'EPLACEID, :NATIONID, :PAYMENTMETHODID, :CREATEBY, :UPDATEBY, :TO' +
        'LLSTATIONID)')
    SQLDelete.Strings = (
      'DELETE FROM RALF.SICK'
      'WHERE'
      '  SICKID = :SICKID')
    SQLUpdate.Strings = (
      'UPDATE RALF.SICK'
      'SET'
      '  ISARREARAGE = :ISARREARAGE,'
      '  CODE = :CODE,'
      '  BIRTHDAY = :BIRTHDAY,'
      '  SEX = :SEX,'
      '  CNAME = :CNAME,'
      '  CREATED = :CREATED,'
      '  ISACTIVE = :ISACTIVE,'
      '  ISVALID = :ISVALID,'
      '  ST = :ST,'
      '  UPDATED = :UPDATED,'
      '  PROFESSIONID = :PROFESSIONID,'
      '  WEDLOCKID = :WEDLOCKID,'
      '  NATIVEPLACEID = :NATIVEPLACEID,'
      '  NATIONID = :NATIONID,'
      '  PAYMENTMETHODID = :PAYMENTMETHODID,'
      '  CREATEBY = :CREATEBY,'
      '  UPDATEBY = :UPDATEBY,'
      '  TOLLSTATIONID = :TOLLSTATIONID'
      'WHERE'
      '  SICKID = :OLD_SICKID')
    SQLRefresh.Strings = (
      'WHERE'
      '  SICKID = :SICKID')
    SQLLock.Strings = (
      'SELECT * FROM RALF.SICK'
      'WHERE'
      '  SICKID = :SICKID'
      'FOR UPDATE NOWAIT')
    SQL.Strings = (
      'SELECT * FROM RALF.SICK')
    Active = True
    object DataSetSICKID: TFloatField
      DisplayLabel = #32534#21495
      FieldName = 'SICKID'
      ReadOnly = True
    end
    object DataSetBIRTHDAY: TDateTimeField
      DisplayLabel = #29983#26085
      FieldName = 'BIRTHDAY'
    end
    object DataSetCNAME: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'CNAME'
      Size = 32
    end
    object DataSetCREATED: TDateTimeField
      DisplayLabel = #24314#31435#26102#38388
      FieldName = 'CREATED'
    end
    object DataSetISVALID: TIntegerField
      DisplayLabel = #26159#21542#26377#25928
      FieldName = 'ISVALID'
    end
    object DataSetISACTIVE: TIntegerField
      DisplayLabel = #26159#21542#27963#21160
      FieldName = 'ISACTIVE'
    end
    object DataSetST: TIntegerField
      DisplayLabel = #20869#37096#29366#24577
      FieldName = 'ST'
    end
    object DataSetUPDATED: TDateTimeField
      DisplayLabel = #21040#26399#26085#26399
      FieldName = 'UPDATED'
    end
    object DataSetPROFESSIONID: TFloatField
      DisplayLabel = #32844#19994
      FieldName = 'PROFESSIONID'
    end
    object DataSetWEDLOCKID: TFloatField
      DisplayLabel = #32467#23130#29366#24577
      FieldName = 'WEDLOCKID'
    end
    object DataSetNATIVEPLACEID: TFloatField
      DisplayLabel = #31821#36143
      FieldName = 'NATIVEPLACEID'
    end
    object DataSetNATIONID: TFloatField
      DisplayLabel = #27665#26063
      FieldName = 'NATIONID'
    end
    object DataSetPAYMENTMETHODID: TFloatField
      DisplayLabel = #20184#36153#26041#24335
      FieldName = 'PAYMENTMETHODID'
    end
    object DataSetCREATEBY: TFloatField
      DisplayLabel = #21019#24314#32773
      FieldName = 'CREATEBY'
    end
    object DataSetUPDATEBY: TFloatField
      DisplayLabel = #20462#25913#32773
      FieldName = 'UPDATEBY'
    end
    object DataSetCODE: TStringField
      DisplayLabel = #32534#30721
      FieldName = 'CODE'
      Size = 16
    end
    object DataSetTOLLSTATIONID: TFloatField
      FieldName = 'TOLLSTATIONID'
    end
    object DataSetISARREARAGE: TIntegerField
      FieldName = 'ISARREARAGE'
      Required = True
    end
    object DataSetSEX: TIntegerField
      DisplayLabel = #24615#21035
      FieldName = 'SEX'
      Required = True
    end
  end
end