object DataSetBZSJJ1: TSQLDataSet
Relation.DeleteRule = krNoAction
Relation.UpdateRule = krNoAction
UpdateOptions.DeleteSQL =
'DELETE FROM TABLE_TARGETDEF'#13#10'WHERE ( FTargetDefCode = :OLD__FTa' +
'rgetDefCode ) '#13#10#13#10
UpdateOptions.Fields = <
item
Name = 'FTargetDefCode'
ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
end>
UpdateOptions.InsertSQL =
'INSERT INTO TABLE_TARGETDEF'#13#10'( FTargetDefCode , FTargetDefName ,' +
' FTargetTypeCode , FUnitName , FDataSourceCode , FCalcOrder , FC' +
'alcFormula , FStatMethodCode , FStatParam , FOrder , FDesc ) '#13#10'V' +
'ALUES ( :FTargetDefCode , :FTargetDefName , :FTargetTypeCode , :' +
'FUnitName , :FDataSourceCode , :FCalcOrder , :FCalcFormula , :FS' +
'tatMethodCode , :FStatParam , :FOrder , :FDesc )'#13#10#13#10
UpdateOptions.UpdateSQL =
'UPDATE TABLE_TARGETDEF '#13#10'SET FTargetDefCode = :FTargetDefCode ' +
', '#13#10' FTargetDefName = :FTargetDefName , '#13#10' FTargetTypeCode = :F' +
'TargetTypeCode , '#13#10' FUnitName = :FUnitName , '#13#10' FDataSourceCod' +
'e = :FDataSourceCode , '#13#10' FCalcOrder = :FCalcOrder , '#13#10' FCalcF' +
'ormula = :FCalcFormula , '#13#10' FStatMethodCode = :FStatMethodCode ' +
' , '#13#10' FStatParam = :FStatParam , '#13#10' FOrder = :FOrder , '#13#10' FDes' +
'c = :FDesc '#13#10'WHERE ( FTargetDefCode = :OLD__FTargetDefCode ) '#13 +
#10#13#10
UpdateOptions.UpdateMode = upWhereKeyOnly
ID = 'BZSJJ1'
DisplayName = #26631#20934#25968#25454#38598'1'
Database.Reference = 'Biz:\GROUPPRODUCTSTAT\GROUPPRODUCTDB.Database'
CheckConstraints = <>
Params = <>
SQL.Text = 'SELECT *'#13#10' FROM TABLE_TARGETDEF'
Left = 304
Top = 200
end |