rar文件我传不上来,我把数据集的代码给你
object DataSetZDTCYCSJJ: TSQLDataSet
Relation.DeleteRule = krNoAction
Relation.UpdateRule = krNoAction
ID = 'ZDTCYCSJJ'
DisplayName = #33258#21160#22635#20805#24322#24120#25968#25454#38598
Database.Reference = 'Biz:\OPERATION\OPERATIONDB.DATABASE'
CheckConstraints = <>
Params = <>
SQL.Expressions = <
item
Name = '[Default]'
Expression.Text =
'SELECT CRM_PRODUCT.PRODUCTID, CRM_PRODUCT.CLIENTACCOUNT, CRM_PRO' +
'DUCT.PRODUCTNAME, CRM_PRODUCT.PRODUCTTYPE, CRM_PRODUCT.FNUMBER'#13#10 +
' FROM CRM_PRODUCT'#13#10' WHERE CRM_PRODUCT.PRODUCTNAME = '#39#39#39'test'#39#39#39
end>
SQL.Text =
'SELECT CRM_PRODUCT.PRODUCTID, CRM_PRODUCT.CLIENTACCOUNT, CRM_PRO' +
'DUCT.PRODUCTNAME, CRM_PRODUCT.PRODUCTTYPE, CRM_PRODUCT.FNUMBER'#13#10 +
' FROM CRM_PRODUCT'#13#10' WHERE CRM_PRODUCT.PRODUCTNAME = '#39#39#39'test'#39#39#39
Left = 146
Top = 106
object FIELD_ZDTCYCSJJ_PRODUCTNAME: TUserDataField
ID = 'PRODUCTNAME'
DisplayName = #20135#21697#21517#31216
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Options = [foFillReadOnly, foNullFieldOnly]
AutoFillDef.Expression.Text = #39'test'#39
ModifiedProps = (
'AutoFillDef')
end
object FIELD_ZDTCYCSJJ_PRODUCTTYPE: TUserDataField
ID = 'PRODUCTTYPE'
DisplayName = #35268#26684#22411#21495
LookupDef.Kind = lkDataValues
LookupDef.ValidateKind = vkAutoAdd
LookupDef.DataBase.Reference = 'Biz:\OPERATION\OPERATIONDB.DATABASE'
LookupDef.SQL.Strings = (
'SELECT TOP 1 CRM_PRODUCT.PRODUCTTYPE'
' FROM CRM_PRODUCT'
' WHERE CRM_PRODUCT.PRODUCTNAME = '#39#39#39'test'#39#39#39)
LookupDef.DisplayField = 'PRODUCTTYPE'
LookupDef.KeyField = 'PRODUCTTYPE'
LookupDef.ViewID = 'GridView'
LookupDef.ViewProperties.Strings = (
'object TGridViewDesigner'
' VisibleColumns.Strings = ('
' '#39'PRODUCTTYPE'#39')'
' Options = [goShowQuickCodeField]'
'end')
LookupDef.Options = [loAutoRefresh, loDropDownButton]
LookupDef.InnerSQLList.Expressions = <
item
Name = '[Default]'
Expression.Text =
'SELECT TOP 1 CRM_PRODUCT.PRODUCTTYPE'#13#10' FROM CRM_PRODUCT'#13#10' WHER' +
'E CRM_PRODUCT.PRODUCTNAME = '#39#39#39'test'#39#39#39
end>
LookupDef.InnerSQLList.Text =
'SELECT TOP 1 CRM_PRODUCT.PRODUCTTYPE'#13#10' FROM CRM_PRODUCT'#13#10' WHER' +
'E CRM_PRODUCT.PRODUCTNAME = '#39#39#39'test'#39#39#39
ModifiedProps = (
'LookupDef')
end
object FIELD_ZDTCYCSJJ_FNUMBER: TUserDataField
ID = 'FNUMBER'
DisplayName = #25968#37327
Attributes.ReadOnly.Text = 'IIf(IfNull(PRODUCTTYPE,'#39#39') = '#39'A'#39',False,True)'
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Options = [foFillReadOnly, foFillNullValue]
AutoFillDef.Expression.Text = 'IIf(IfNull(PRODUCTTYPE,'#39#39') = '#39'A'#39',FNUMBER,1)'
ModifiedProps = (
'Attributes'
'AutoFillDef')
end
end |