📄 untstudent.dfm
字号:
FieldName = 'BirthYear'
Footers = <>
Title.Color = 15525344
Width = 55
end
item
AssignedValues = [cvWidth, cvTitleColor]
EditButtons = <>
FieldName = 'BirthMonth'
Footers = <>
Title.Color = 15525344
Width = 48
end
item
AssignedValues = [cvTitleColor, cvTitleCaption]
EditButtons = <>
FieldName = 'faeduname'
Footers = <>
Title.Caption = #29238#20146#23398#21382
Title.Color = 15525344
end
item
AssignedValues = [cvTitleColor, cvTitleCaption]
EditButtons = <>
FieldName = 'faworkname'
Footers = <>
Title.Caption = #29238#20146#32844#19994
Title.Color = 15525344
end
item
AssignedValues = [cvTitleColor, cvTitleCaption]
EditButtons = <>
FieldName = 'moeduname'
Footers = <>
Title.Caption = #27597#20146#23398#21382
Title.Color = 15525344
end
item
AssignedValues = [cvTitleColor, cvTitleCaption]
EditButtons = <>
FieldName = 'moworkname'
Footers = <>
Title.Caption = #27597#20146#32844#19994
Title.Color = 15525344
end
item
AssignedValues = [cvAlignment, cvTitleColor, cvTitleCaption]
Alignment = taLeftJustify
EditButtons = <>
FieldName = 'ifloor'
Footers = <>
Title.Caption = #23621#20303#27004#23618
Title.Color = 15525344
end>
end
end
inherited pnlPalBottom: TPanel
Top = 470
Width = 781
inherited imgImgBR: TImage
Left = 759
end
inherited imgImgBC: TImage
Width = 737
end
end
inherited pnlPalTop: TPanel
Width = 781
inherited imgImgTC: TImage
Width = 769
end
inherited imgImgTR: TImage
Left = 775
end
end
inherited dsSingle: TDataSource
Left = 360
Top = 176
end
inherited adsSingle: TADODataSet
CursorType = ctStatic
CommandText = 'select * from tChildren'
object adsSingleiAutoID: TAutoIncField
FieldName = 'iAutoID'
ReadOnly = True
Visible = False
end
object adsSingleCode: TStringField
DisplayLabel = #32534#21495
FieldName = 'Code'
end
object adsSingleName: TStringField
DisplayLabel = #22995#21517
FieldName = 'Name'
Size = 10
end
object adsSingleSex: TIntegerField
DisplayLabel = #24615#21035
FieldName = 'Sex'
OnGetText = adsSingleSexGetText
OnSetText = adsSingleSexSetText
end
object adsSingleBirth: TDateTimeField
DisplayLabel = #29983#26085
FieldName = 'Birth'
OnChange = adsSingleBirthChange
end
object adsSingleBirthYear: TStringField
DisplayLabel = #23681
FieldName = 'BirthYear'
Size = 5
end
object adsSingleBirthMonth: TStringField
DisplayLabel = #26376
FieldName = 'BirthMonth'
Size = 5
end
object adsSingleClassID: TIntegerField
FieldName = 'ClassID'
Visible = False
end
object adsSingleClassName: TStringField
FieldKind = fkLookup
FieldName = 'ClassName'
LookupDataSet = adsLookUpClass
LookupKeyFields = 'iAutoID'
LookupResultField = 'Name'
KeyFields = 'ClassID'
LookupCache = True
Visible = False
Size = 30
Lookup = True
end
object adsSingleSchoolName: TStringField
FieldKind = fkLookup
FieldName = 'SchoolName'
LookupDataSet = adsLookUpClass
LookupKeyFields = 'iAutoID'
LookupResultField = 'SchoolName'
KeyFields = 'ClassID'
LookupCache = True
Visible = False
Size = 30
Lookup = True
end
object adsSingleClassYear: TStringField
FieldKind = fkLookup
FieldName = 'ClassYear'
LookupDataSet = adsLookUpClass
LookupKeyFields = 'iAutoID'
LookupResultField = 'ClassYear'
KeyFields = 'ClassID'
LookupCache = True
Visible = False
Size = 10
Lookup = True
end
object adsSingleSuggest: TStringField
DisplayLabel = #24314#35758
DisplayWidth = 8000
FieldName = 'Suggest'
Size = 8000
end
object dtmfldSingleCreateDate: TDateTimeField
FieldName = 'CreateDate'
end
object smlntfldSingleifloor: TSmallintField
FieldName = 'ifloor'
end
object smlntfldSinglefatherWork: TSmallintField
FieldName = 'fatherWork'
end
object smlntfldSinglefatherEdu: TSmallintField
FieldName = 'fatherEdu'
end
object smlntfldSingleMotherwork: TSmallintField
FieldName = 'Motherwork'
end
object smlntfldSingleMotherEdu: TSmallintField
FieldName = 'MotherEdu'
end
object adsSinglefaeduname: TStringField
FieldKind = fkLookup
FieldName = 'faeduname'
LookupDataSet = adsedu
LookupKeyFields = 'iAutoID'
LookupResultField = 'Name'
KeyFields = 'fatherEdu'
Size = 10
Lookup = True
end
object adsSinglemoeduname: TStringField
FieldKind = fkLookup
FieldName = 'moeduname'
LookupDataSet = adsedu
LookupKeyFields = 'iAutoID'
LookupResultField = 'Name'
KeyFields = 'MotherEdu'
Size = 10
Lookup = True
end
object adsSinglefaworkname: TStringField
FieldKind = fkLookup
FieldName = 'faworkname'
LookupDataSet = adswork
LookupKeyFields = 'iAutoID'
LookupResultField = 'Name'
KeyFields = 'fatherWork'
Size = 10
Lookup = True
end
object adsSinglemoworkname: TStringField
FieldKind = fkLookup
FieldName = 'moworkname'
LookupDataSet = adswork
LookupKeyFields = 'iAutoID'
LookupResultField = 'Name'
KeyFields = 'Motherwork'
Size = 10
Lookup = True
end
end
inherited pmSingle: TPopupMenu
Left = 288
Top = 112
end
inherited ImageList1: TImageList
Left = 264
Top = 251
Bitmap = {
494C010129002C00040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
00000000000036000000280000006000000008010000010010000000000000C6
000000000000000000000000000000000000000000000000386B724E482DA93D
69318C350F42935293529456D55AF65EF66217673867386B0000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000000386BF66269313177517F
EE726B5EC84107216A2DAD390F4210463046524E724E9352D55AF65E1763386B
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -