umadsick.dfm

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

inherited MADSick: TMADSick
  Left = 231
  Top = 181
  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, DEPAR' +
        'TMENT)'
      'VALUES'
      
        '  (:ISARREARAGE, :CODE, :BIRTHDAY, :SEX, :CNAME, :CREATED, :ISAC' +
        'TIVE, :ISVALID, :ST, :UPDATED, :PROFESSIONID, :WEDLOCKID, :NATIV' +
        'EPLACEID, :NATIONID, :PAYMENTMETHODID, :CREATEBY, :UPDATEBY, :TO' +
        'LLSTATIONID, :DEPARTMENT)')
    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,'
      '  DEPARTMENT = :DEPARTMENT'
      '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'
      
        'WHERE TO_CHAR(CREATED, '#39'yyyy-mm-dd'#39') = TO_CHAR(SYSDATE, '#39'yyyy-mm' +
        '-dd'#39')')
    Active = True
    Left = 120
    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 = #26356#26032#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
      DisplayLabel = #38376#35786
      FieldName = 'TOLLSTATIONID'
    end
    object DataSetISARREARAGE: TIntegerField
      FieldName = 'ISARREARAGE'
    end
    object DataSetSEX: TIntegerField
      DisplayLabel = #24615#21035
      FieldName = 'SEX'
      Required = True
    end
    object DataSetDEPARTMENT: TStringField
      DisplayLabel = #24037#20316#21333#20301
      FieldName = 'DEPARTMENT'
      Size = 128
    end
  end
  object SPAfterInser: TOraStoredProc
    StoredProcName = 'RALF.SP_SICK_AI'
    Session = MPDatabase.Session
    SQL.Strings = (
      'begin'
      '  RALF.SP_SICK_AI(:L_CREATEBY, :L_SICKID);'
      'end;')
    AutoCalcFields = False
    Left = 56
    Top = 120
    ParamData = <
      item
        DataType = ftInteger
        Name = 'L_CREATEBY'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'L_SICKID'
        ParamType = ptInput
      end>
  end
end