object DataSetProjectTaskSet: TSQLDataSet
Relation.DeleteRule = krNoAction
Relation.UpdateRule = krNoAction
UpdateOptions.DeleteSQL =
'DELETE FROM BUP_PROJECTTASK'#13#10'WHERE ( AutoIn = :OLD__AutoIn ) '#13#10 +
' AND ( ContractNo = :OLD__ContractNo ) '#13#10' AND ( BuildingID = :' +
'OLD__BuildingID ) '#13#10' AND ( LDID = :OLD__LDID ) '#13#10' AND ( HouseI' +
'D = :OLD__HouseID ) '#13#10' AND ( ProjectType = :OLD__ProjectType ) ' +
#13#10' AND ( Status = :OLD__Status ) '#13#10' AND ( PTNo = :OLD__PTNo ) ' +
#13#10' AND ( InputUser = :OLD__InputUser ) '#13#10' AND ( InputDate = :O' +
'LD__InputDate ) '#13#10' AND ( BeginDate = :OLD__BeginDate ) '#13#10' AND ' +
'( EndDate = :OLD__EndDate ) '#13#10' AND ( NeedFinDate = :OLD__NeedFi' +
'nDate ) '#13#10' AND ( FactFinDate = :OLD__FactFinDate ) '#13#10' AND ( Si' +
'gnDate = :OLD__SignDate ) '#13#10' AND ( FactOutDate = :OLD__FactOutD' +
'ate ) '#13#10#13#10
UpdateOptions.Fields = <
item
Name = 'AutoIn'
ProviderFlags = [pfInUpdate, pfInKey]
end
item
Name = 'InputDate'
ProviderFlags = [pfInUpdate]
end
item
Name = 'BeginDate'
ProviderFlags = [pfInUpdate]
end
item
Name = 'EndDate'
ProviderFlags = [pfInUpdate]
end
item
Name = 'NeedFinDate'
ProviderFlags = [pfInUpdate]
end
item
Name = 'FactFinDate'
ProviderFlags = [pfInUpdate]
end
item
Name = 'SignDate'
ProviderFlags = [pfInUpdate]
end
item
Name = 'FactOutDate'
ProviderFlags = [pfInUpdate]
end
item
Name = 'ContractNo'
ProviderFlags = [pfInUpdate]
end
item
Name = 'BuildingID'
ProviderFlags = [pfInUpdate]
end
item
Name = 'LDID'
ProviderFlags = [pfInUpdate]
end
item
Name = 'HouseID'
ProviderFlags = [pfInUpdate]
end
item
Name = 'ProjectType'
ProviderFlags = [pfInUpdate]
end
item
Name = 'Status'
ProviderFlags = [pfInUpdate]
end
item
Name = 'PTNo'
ProviderFlags = [pfInUpdate]
end
item
Name = 'InputUser'
ProviderFlags = [pfInUpdate]
end>
UpdateOptions.InsertSQL =
'INSERT INTO BUP_PROJECTTASK'#13#10'( AutoIn , ContractNo , BuildingID ' +
', LDID , HouseID , ProjectType , Status , PTNo , InputUser , Inp' +
'utDate , BeginDate , EndDate , NeedFinDate , FactFinDate , SignD' +
'ate , FactOutDate ) '#13#10'VALUES ( :AutoIn , :ContractNo , :Building' +
'ID , DID , :HouseID , rojectType , :Status , TNo , :InputU' +
'ser , :InputDate , :BeginDate , :EndDate , :NeedFinDate , :FactF' +
'inDate , :SignDate , :FactOutDate )'#13#10#13#10
UpdateOptions.UpdateSQL =
'UPDATE BUP_PROJECTTASK '#13#10'SET AutoIn = :AutoIn , '#13#10' ContractNo ' +
'= :ContractNo , '#13#10' BuildingID = :BuildingID , '#13#10' LDID = DID ' +
' , '#13#10' HouseID = :HouseID , '#13#10' ProjectType = rojectType , '#13#10' ' +
'Status = :Status , '#13#10' PTNo = TNo , '#13#10' InputUser = :InputUser' +
' , '#13#10' InputDate = :InputDate , '#13#10' BeginDate = :BeginDate , '#13#10 +
' EndDate = :EndDate , '#13#10' NeedFinDate = :NeedFinDate , '#13#10' FactF' +
'inDate = :FactFinDate , '#13#10' SignDate = :SignDate , '#13#10' FactOutDa' +
'te = :FactOutDate '#13#10'WHERE ( AutoIn = :OLD__AutoIn ) '#13#10' AND ( ' +
'ContractNo = :OLD__ContractNo ) '#13#10' AND ( BuildingID = :OLD__Bui' +
'ldingID ) '#13#10' AND ( LDID = :OLD__LDID ) '#13#10' AND ( HouseID = :OLD' +
'__HouseID ) '#13#10' AND ( ProjectType = :OLD__ProjectType ) '#13#10' AND ' +
'( Status = :OLD__Status ) '#13#10' AND ( PTNo = :OLD__PTNo ) '#13#10' AND ' +
'( InputUser = :OLD__InputUser ) '#13#10' AND ( InputDate = :OLD__Inpu' +
'tDate ) '#13#10' AND ( BeginDate = :OLD__BeginDate ) '#13#10' AND ( EndDat' +
'e = :OLD__EndDate ) '#13#10' AND ( NeedFinDate = :OLD__NeedFinDate ) ' +
#13#10' AND ( FactFinDate = :OLD__FactFinDate ) '#13#10' AND ( SignDate =' +
' :OLD__SignDate ) '#13#10' AND ( FactOutDate = :OLD__FactOutDate ) '#13#10 +
#13#10
UpdateOptions.UpdateMode = upWhereKeyOnly
BeforeInsert = DataSetProjectTaskSetBeforeInsert
ID = 'ProjectTaskSet'
DisplayName = #24037#31243#20219#21153#25968#25454#38598
Database.Reference = 'Biz:\ZSGLXT\GOLDENBRIDGE.Database'
CheckConstraints = <>
Params = <>
SQL.Text = 'SELECT *'#13#10' FROM BUP_PROJECTTASK'
Left = 146
Top = 106
object FIELD_ProjectTaskSet_AutoIn: TUserDataField
ID = 'AutoIn'
DisplayName = #31995#32479#32534#21495
DataType = dtString
DataTypeAttribute.Size = 32
EditStyleID = 'String'
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert]
AutoFillDef.Expression.Text = '&[Biz:\ZSGLXT\SystemParms.ParamGroup\Sys_Num.Param]'
IsRequired = True
StoredProps = {
417474726962757465730D0A4175746F46696C6C4465660D0A456C656D656E74
0D0A497352657175697265640D0A4C6F6F6B75704465660D0A4C6F6F6B757052
6573756C740D0A}
end
object FIELD_ProjectTaskSet_Choice: TInternalDataField
ID = 'Choice'
DisplayName = #36873#25321
DataType = dtInteger
EditStyleID = 'CheckBox'
Alignment = taLeftJustify
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert]
AutoFillDef.Expression.Text = '0'
end
end |