object TDHTXXB: TTDHTXXB
IndexDefs = <>
ForeignKeyDefs = <>
TableLog.LogFields = <>
object BizFieldDef_HTID: TBizFieldDef
ID = 'HTID'
DisplayName = #21512#21516'ID'
DataType = dtString
DataTypeAttribute.Size = 32
EditStyleID = 'String'
Element.Reference = 'BFDBizList.XSHT'
Alignment = taLeftJustify
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Options = [foFillReadOnly, foNullFieldOnly]
AutoFillDef.Expression.Text = 'NewGUID()'
IsPrimaryKey = True
IsUnique = True
IsRequired = True
end
object BizFieldDef_HTBM: TBizFieldDef
ID = 'HTBM'
DisplayName = #21512#21516#32534#30721
DataType = dtString
DataTypeAttribute.Size = 32
EditStyleID = 'String'
Alignment = taLeftJustify
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Options = [foFillReadOnly, foNullFieldOnly]
AutoFillDef.Expression.Text = '&[YWCSZ.HTBMQZ]'
IsUnique = True
end
object BizFieldDef_ZZGSID: TBizFieldDef
ID = 'ZZGSID'
DisplayName = #21046#36896#20844#21496'ID'
DataType = dtString
DataTypeAttribute.Size = 64
EditStyleID = 'String'
Element.Reference = 'BFDBizList.test'
Templet.Reference = 'GGMBZ.ZZGSMB'
Alignment = taLeftJustify
LookupDef.Kind = lkDataValues
LookupDef.DataBase.Reference = 'OPERATIONDB'
LookupDef.SQL.Strings = (
'SELECT TEXDEPT.FID, TEXDEPT.FDISPLAYNAME'
' FROM TEXDEPT'
'WHERE EGSLB='#39#21046#36896#20844#21496#39)
LookupDef.DisplayField = 'FDISPLAYNAME'
LookupDef.KeyField = 'FID'
LookupDef.ViewID = 'GridView'
LookupDef.ViewProperties.Strings = (
'object TGridViewDesigner'
' VisibleColumns.Strings = ('
' '#39'FDISPLAYNAME'#39')'
' Options = []'
'end')
LookupDef.Options = [loDropDownButton]
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Options = [foFillReadOnly, foNullFieldOnly]
AutoFillDef.Expression.Text = '&[YWCSZ.DQZZGSID]'
end |