object DataSetGGSJJ: TSQLDataSet
Relation.DeleteRule = krNoAction
Relation.UpdateRule = krNoAction
ID = 'GGSJJ'
DisplayName = #20844#21578#25968#25454#38598
Database.Reference = 'Biz:\KINTH\JSERPSJK.DATABASE'
CheckConstraints = <>
Params = <>
SQL.Expressions = <
item
Name = '[Default]'
Expression.Text = 'SELECT *'#13#10' FROM XWGGB'
end>
SQL.Text = 'SELECT *'#13#10' FROM XWGGB'
object FIELD_GGSJJ_BH: TUserDataField
ID = 'BH'
DisplayName = #32534#21495
EditStyleID = 'String'
Attributes.ReadOnly.Text = 'True'
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Options = [foFillReadOnly, foNullFieldOnly]
AutoFillDef.Expression.Text = '&[Biz:\KINTH\YWCSZ.ParamGroup\SJBH.Param]'
ModifiedProps = (
'Attributes'
'AutoFillDef'
'EditStyleID'
'Element'
'LookupDef')
end
object FIELD_GGSJJ_YXKSSJ: TUserDataField
ID = 'YXKSSJ'
DisplayName = #26377#25928#24320#22987#26102#38388
EditStyleID = 'DateTime'
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Expression.Text = 'ServerTime()'
ModifiedProps = (
'Attributes'
'AutoFillDef'
'EditStyleID'
'Element'
'LookupDef')
end
object FIELD_GGSJJ_YXJSSJ: TUserDataField
ID = 'YXJSSJ'
DisplayName = #26377#25928#32467#26463#26102#38388
EditStyleID = 'DateTime'
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Expression.Text = 'ServerTime()'
ModifiedProps = (
'Attributes'
'AutoFillDef'
'EditStyleID'
'Element'
'LookupDef')
end
object FIELD_GGSJJ_TJBM: TUserDataField
ID = 'TJBM'
DisplayName = #25552#20132#37096#38376
EditStyleID = 'String'
Attributes.ReadOnly.Text = 'True'
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Options = [foFillReadOnly, foNullFieldOnly]
AutoFillDef.Expression.Text = 'DeptName()'
ModifiedProps = (
'Attributes'
'AutoFillDef'
'EditStyleID'
'Element'
'LookupDef')
end
object FIELD_GGSJJ_TJR: TUserDataField
ID = 'TJR'
DisplayName = #25552#20132#20154
EditStyleID = 'String'
Attributes.ReadOnly.Text = 'True'
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Options = [foFillReadOnly, foNullFieldOnly]
AutoFillDef.Expression.Text = 'OperatorName()'
ModifiedProps = (
'Attributes'
'AutoFillDef'
'EditStyleID'
'Element'
'LookupDef')
end
object FIELD_GGSJJ_TJGW: TUserDataField
ID = 'TJGW'
DisplayName = #25552#20132#23703#20301
EditStyleID = 'String'
Attributes.ReadOnly.Text = 'True'
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Options = [foFillReadOnly, foNullFieldOnly]
AutoFillDef.Expression.Text = 'PositionName()'
ModifiedProps = (
'Attributes'
'AutoFillDef'
'EditStyleID'
'Element'
'LookupDef')
end
object FIELD_GGSJJ_TJSJ: TUserDataField
ID = 'TJSJ'
DisplayName = #25552#20132#26102#38388
EditStyleID = 'DateTime'
Attributes.ReadOnly.Text = 'True'
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Options = [foFillReadOnly, foNullFieldOnly]
AutoFillDef.Expression.Text = 'ServerTime()'
ModifiedProps = (
'Attributes'
'AutoFillDef'
'EditStyleID'
'Element'
'LookupDef')
end
object FIELD_GGSJJ_FBFW: TUserDataField
ID = 'FBFW'
DisplayName = #21457#24067#33539#22260
EditStyleID = 'String'
Attributes.ReadOnly.Text = 'True'
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Options = [foFillReadOnly, foNullFieldOnly]
AutoFillDef.Expression.Text = #39#37329#31246#38598#22242#39
Button.Options = [boDisableOnParentDisabled, boHideOnDisabled]
Button.OnClick = FIELD_GGSJJ_FBFWButtonClick
ModifiedProps = (
'Attributes'
'AutoFillDef'
'EditStyleID'
'Element'
'LookupDef')
end
object FIELD_GGSJJ_ZT: TUserDataField
ID = 'ZT'
DisplayName = #20027#39064
EditStyleID = 'String'
Attributes.Required.Text = 'True'
Attributes.RequiredHint = #20027#39064#19981#33021#20026#31354'!'
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
ModifiedProps = (
'Attributes'
'AutoFillDef'
'EditStyleID'
'Element'
'LookupDef')
end
object FIELD_GGSJJ_LB: TUserDataField
ID = 'LB'
DisplayName = #31867#21035
EditStyleID = 'String'
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
LookupDef.Kind = lkEnumValues
LookupDef.Values.Strings = (
'<?xml version="1.0" standalone="yes"?> <DATAPACKET Version="2.0' +
'"><METADATA><FIELDS><FIELD fieldname="'#26597#25214#20540'" attrname="xF0" fieldt' +
'ype="string" WIDTH="255"/></FIELDS>< ARAMS/></METADATA><ROWDATA>' +
'<ROW xF0="'#21046#24230'"/><ROW xF0="'#26032#38395'"/><ROW xF0="'#36890#30693'"/><ROW xF0="'#37325#35201#20915#31574'"/></' +
'ROWDATA></DATAPACKET>')
LookupDef.DisplayField = #26597#25214#20540
LookupDef.KeyField = #26597#25214#20540
LookupDef.ViewID = 'GridView'
LookupDef.ViewProperties.Strings = (
'object TGridViewDesigner'
' Options = [goShowQuickCodeField]'
'end')
LookupDef.Options = [loDropDownButton]
ModifiedProps = (
'Attributes'
'AutoFillDef'
'EditStyleID'
'Element'
'LookupDef')
end
object FIELD_GGSJJ_JPD: TUserDataField
ID = 'JPD'
DisplayName = #32039#36843#24230
EditStyleID = 'String'
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
LookupDef.Kind = lkEnumValues
LookupDef.Values.Strings = (
'<?xml version="1.0" standalone="yes"?> <DATAPACKET Version="2.0' +
'"><METADATA><FIELDS><FIELD fieldname="'#20851#38190#20540'" attrname="xF0" fieldt' +
'ype="string" WIDTH="255"/><FIELD fieldname="'#26597#25214#20540'" attrname="xF1" ' +
'fieldtype="string" WIDTH="255"/></FIELDS>< ARAMS/></METADATA><RO' +
'WDATA><ROW xF0="'#36739#20302'" xF1="04"/><ROW xF0="'#19968#33324'" xF1="01"/><ROW xF0="' +
#24613#36843'" xF1="02"/><ROW xF0="'#32039#24613'" xF1="03"/></ROWDATA></DATAPACKET>')
LookupDef.DisplayField = #20851#38190#20540
LookupDef.KeyField = #26597#25214#20540
LookupDef.ViewID = 'GridView'
LookupDef.ViewProperties.Strings = (
'object TGridViewDesigner'
' Options = [goShowQuickCodeField]'
'end')
LookupDef.Options = [loDropDownButton]
ModifiedProps = (
'Attributes'
'AutoFillDef'
'EditStyleID'
'Element'
'LookupDef')
end
object FIELD_GGSJJ_SFZD: TUserDataField
ID = 'SFZD'
DisplayName = #26159#21542#32622#39030
EditStyleID = 'String'
AutoFillDef.Enabled = True
AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
AutoFillDef.Expression.Text = #39'02'#39
LookupDef.Kind = lkEnumValues
LookupDef.Values.Strings = (
'<?xml version="1.0" standalone="yes"?> <DATAPACKET Version="2.0' +
'"><METADATA><FIELDS><FIELD fieldname="'#20851#38190#20540'" attrname="xF0" fieldt' +
'ype="string" WIDTH="255"/><FIELD fieldname="'#26597#25214#20540'" attrname="xF1" ' +
'fieldtype="string" WIDTH="255"/></FIELDS>< ARAMS/></METADATA><RO' +
'WDATA><ROW xF0="'#26159'" xF1="01"/><ROW xF0="'#21542'" xF1="02"/></ROWDATA></' +
'DATAPACKET>')
LookupDef.DisplayField = #20851#38190#20540
LookupDef.KeyField = #26597#25214#20540
LookupDef.ViewID = 'GridView'
LookupDef.ViewProperties.Strings = (
'object _1: TGridViewDesigner'
' Options = [goShowQuickCodeField]'
'end')
LookupDef.Options = [loDropDownButton]
ModifiedProps = (
'Attributes'
'AutoFillDef'
'EditStyleID'
'Element'
'LookupDef')
end
end |