?? umadsick.dfm
字號:
inherited MADSick: TMADSick
Left = 214
Top = 214
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 = #26159#21542#24050#23130
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#32534#21495
FieldName = 'TOLLSTATIONID'
end
object DataSetISARREARAGE: TIntegerField
DisplayLabel = #26159#21542#27424#36153
FieldName = 'ISARREARAGE'
Required = True
end
object DataSetSEX: TIntegerField
DisplayLabel = #24615#21035
FieldName = 'SEX'
Required = True
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -