?? data.dfm
字號:
object dm: Tdm
OldCreateOrder = False
Left = 221
Top = 63
Height = 464
Width = 578
object ADOCN: TADOConnection
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 8
Top = 8
end
object whckdmads: TADODataSet
Connection = ADOCN
CursorType = ctStatic
CommandText = 'select * from CKDMB'
Parameters = <>
Left = 64
Top = 16
end
object whbmdmads: TADODataSet
Connection = ADOCN
CommandText = 'select * from BMDMB'
Parameters = <>
Left = 64
Top = 224
object whbmdmadsID: TStringField
FieldName = #37096#38376'ID'
FixedChar = True
Size = 4
end
object whbmdmadsDSDesigner: TStringField
FieldName = #37096#38376#21517#31216
FixedChar = True
Size = 12
end
end
object bmlymxads: TADODataSet
CacheSize = 1000
Connection = ADOCN
CursorType = ctStatic
CommandText = 'select '#20986#20179#26085#26399', '#26448#26009#32534#30721', '#25968#37327', '#21333#20215', '#37329#39069', '#20986#20179#21333#21495' from bmlymxb'
IndexFieldNames = #20986#20179#21333#21495
Parameters = <>
Left = 352
Top = 280
object bmlymxadsID: TStringField
FieldKind = fkLookup
FieldName = #31867#22411'ID'
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #31867#22411'ID'
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object bmlymxadsStringField: TStringField
FieldKind = fkLookup
FieldName = #26448#26009#35268#26684
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #26448#26009#35268#26684
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object bmlymxadsStringField2: TStringField
FieldKind = fkLookup
FieldName = #31867#22411
LookupDataSet = whcclxdmads
LookupKeyFields = #20986#20179#31867#22411'ID'
LookupResultField = #20986#20179#31867#22411
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object bmlymxadsStringField3: TStringField
FieldKind = fkLookup
FieldName = #21333#20301
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #21333#20301
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object bmlymxadsStringField4: TStringField
FieldKind = fkLookup
FieldName = #26448#26009#21517#31216
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #26448#26009#21517#31216
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object bmlymxadsDSDesigner: TDateTimeField
FieldName = #20986#20179#26085#26399
end
object bmlymxadsDSDesigner2: TStringField
FieldName = #26448#26009#32534#30721
FixedChar = True
Size = 14
end
object bmlymxadsDSDesigner3: TIntegerField
FieldName = #25968#37327
end
object bmlymxadsDSDesigner4: TBCDField
FieldName = #21333#20215
Precision = 19
end
object bmlymxadsDSDesigner5: TBCDField
FieldName = #37329#39069
Precision = 19
end
object bmlymxadsDSDesigner6: TStringField
FieldName = #20986#20179#21333#21495
FixedChar = True
Size = 10
end
end
object gysghmxads: TADODataSet
CacheSize = 1000
Connection = ADOCN
CursorType = ctStatic
CommandText = 'select * from jcmxcx'
Parameters = <>
Left = 352
Top = 376
object gysghmxadsStringField5: TStringField
FieldKind = fkLookup
FieldName = #39564#25910#20154
LookupDataSet = whysrads
LookupKeyFields = #39564#25910#20154'ID'
LookupResultField = #39564#25910#20154
KeyFields = #39564#25910#20154'ID'
LookupCache = True
Lookup = True
end
object gysghmxadsID4: TStringField
FieldKind = fkLookup
FieldName = #31867#22411'ID'
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #31867#22411'ID'
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object gysghmxadsStringField: TStringField
FieldKind = fkLookup
FieldName = #26448#26009#35268#26684
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #26448#26009#35268#26684
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object gysghmxadsStringField2: TStringField
FieldKind = fkLookup
FieldName = #31867#22411
LookupDataSet = whcclxdmads
LookupKeyFields = #20986#20179#31867#22411'ID'
LookupResultField = #20986#20179#31867#22411
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object gysghmxadsStringField3: TStringField
FieldKind = fkLookup
FieldName = #21333#20301
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #21333#20301
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object gysghmxadsStringField4: TStringField
FieldKind = fkLookup
FieldName = #26448#26009#21517#31216
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #26448#26009#21517#31216
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object gysghmxadsDSDesigner: TDateTimeField
FieldName = #36827#20179#26085#26399
end
object gysghmxadsID3: TStringField
FieldName = #39564#25910#20154'ID'
FixedChar = True
Size = 4
end
object gysghmxadsDSDesigner2: TStringField
FieldName = #36865#36135#21333#21495
FixedChar = True
Size = 10
end
object gysghmxadsDSDesigner3: TStringField
FieldName = #26448#26009#32534#30721
FixedChar = True
Size = 14
end
object gysghmxadsDSDesigner4: TIntegerField
FieldName = #25968#37327
end
object gysghmxadsDSDesigner5: TBCDField
FieldName = #21333#20215
Precision = 19
end
object gysghmxadsDSDesigner6: TBCDField
FieldName = #37329#39069
Precision = 19
end
end
object whcclxdmads: TADODataSet
Connection = ADOCN
CursorType = ctStatic
CommandText = 'select * FROM CCLXB'
Parameters = <>
Left = 64
Top = 272
end
object whjcdads: TADODataSet
CacheSize = 1000
Connection = ADOCN
CursorType = ctStatic
BeforeDelete = whjcdadsBeforeDelete
OnNewRecord = whjcdadsNewRecord
CommandText = 'select * from JCDHB'
Parameters = <>
Left = 192
Top = 16
object whjcdadsID: TAutoIncField
FieldName = #36827#20179'ID'
ReadOnly = True
end
object whjcdadsDSDesigner: TStringField
FieldName = #36865#36135#21333#21495
FixedChar = True
Size = 10
end
object whjcdadsDSDesigner2: TDateTimeField
FieldName = #36827#20179#26085#26399
end
object whjcdadsID2: TStringField
FieldName = #36827#20179#31867#22411'ID'
LookupCache = True
FixedChar = True
Size = 4
end
object whjcdadsID3: TStringField
FieldName = #20379#24212#21830'ID'
LookupCache = True
FixedChar = True
Size = 6
end
object whjcdadsID4: TStringField
FieldName = #29992#25143'ID'
FixedChar = True
Size = 2
end
object whjcdadsID5: TStringField
FieldName = #20179#24211'ID'
FixedChar = True
Size = 4
end
object whjcdadsID6: TStringField
FieldName = #39564#25910#20154'ID'
LookupCache = True
FixedChar = True
Size = 4
end
object whjcdadsField: TStringField
FieldKind = fkLookup
FieldName = #36827#20179#31867#22411
LookupDataSet = whjclxdmads
LookupKeyFields = #36827#20179#31867#22411'ID'
LookupResultField = #36827#20179#31867#22411
KeyFields = #36827#20179#31867#22411'ID'
LookupCache = True
Lookup = True
end
object whjcdadsField2: TStringField
FieldKind = fkLookup
FieldName = #20379#24212#21830
LookupDataSet = whgysdmads
LookupKeyFields = #20379#24212#21830'ID'
LookupResultField = #20379#24212#21830#31616#31216
KeyFields = #20379#24212#21830'ID'
LookupCache = True
Lookup = True
end
object whjcdadsDSDesigner3: TStringField
FieldName = #22791#27880
FixedChar = True
Size = 40
end
object whjcdadsField3: TStringField
FieldKind = fkLookup
FieldName = #39564#25910#20154
LookupDataSet = whysrads
LookupKeyFields = #39564#25910#20154'ID'
LookupResultField = #39564#25910#20154
KeyFields = #39564#25910#20154'ID'
LookupCache = True
Lookup = True
end
end
object whjcmxads: TADODataSet
CacheSize = 1000
Connection = ADOCN
CursorType = ctStatic
BeforeInsert = whjcmxadsBeforeInsert
BeforePost = whjcmxadsBeforePost
AfterPost = whjcmxadsAfterPost
OnNewRecord = whjcmxadsNewRecord
CommandText = 'select * from JCMXB'
DataSource = whjcdds
IndexFieldNames = #36827#20179'ID'
MasterFields = #36827#20179'ID'
Parameters = <>
Left = 192
Top = 64
object whjcmxadsID: TAutoIncField
FieldName = #36827#20179#26126#32454'ID'
ReadOnly = True
end
object whjcmxadsID2: TStringField
FieldName = #36827#20179'ID'
FixedChar = True
Size = 12
end
object whjcmxadsField: TStringField
FieldKind = fkLookup
FieldName = #26448#26009#21517#31216
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #26448#26009#21517#31216
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object whjcmxadsDSDesigner: TStringField
FieldName = #26448#26009#32534#30721
FixedChar = True
Size = 14
end
object whjcmxadsField4: TStringField
FieldKind = fkLookup
FieldName = #21333#20301
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #21333#20301
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object whjcmxadsField2: TStringField
FieldKind = fkLookup
FieldName = #31867#22411
LookupDataSet = whcclxdmads
LookupKeyFields = #20986#20179#31867#22411'ID'
LookupResultField = #20986#20179#31867#22411
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object whjcmxadsField3: TStringField
FieldKind = fkLookup
FieldName = #26448#26009#35268#26684
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #26448#26009#35268#26684
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object whjcmxadsID3: TStringField
FieldKind = fkLookup
FieldName = #31867#22411'ID'
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #31867#22411'ID'
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object whjcmxadsDSDesigner2: TIntegerField
FieldName = #25968#37327
OnChange = whjcmxadsDSDesigner2Change
end
object whjcmxadsDSDesigner3: TBCDField
FieldName = #21333#20215
OnChange = whjcmxadsDSDesigner3Change
Precision = 19
end
object whjcmxadsDSDesigner4: TBCDField
FieldName = #37329#39069
Precision = 19
end
object whjcmxadsDSDesigner5: TStringField
FieldName = #22791#27880
FixedChar = True
end
end
object whccdads: TADODataSet
CacheSize = 1000
Connection = ADOCN
CursorType = ctStatic
BeforeDelete = whccdadsBeforeDelete
OnNewRecord = whccdadsNewRecord
CommandText = 'select * from CCDHB'
Parameters = <>
Left = 194
Top = 110
object whccdadsID: TAutoIncField
FieldName = #20986#20179'ID'
ReadOnly = True
end
object whccdadsDSDesigner: TStringField
FieldName = #20986#20179#21333#21495
FixedChar = True
Size = 10
end
object whccdadsDSDesigner2: TDateTimeField
FieldName = #20986#20179#26085#26399
end
object whccdadsID2: TStringField
FieldName = #20986#20179#31867#22411'ID'
FixedChar = True
Size = 4
end
object whccdadsField2: TStringField
FieldKind = fkLookup
FieldName = #20986#20179#31867#22411
LookupDataSet = whcclxdmads
LookupKeyFields = #20986#20179#31867#22411'ID'
LookupResultField = #20986#20179#31867#22411
KeyFields = #20986#20179#31867#22411'ID'
LookupCache = True
Lookup = True
end
object whccdadsField: TStringField
FieldKind = fkLookup
FieldName = #37096#38376
LookupDataSet = whbmdmads
LookupKeyFields = #37096#38376'ID'
LookupResultField = #37096#38376#21517#31216
KeyFields = #37096#38376'ID'
LookupCache = True
Lookup = True
end
object whccdadsID3: TStringField
FieldName = #37096#38376'ID'
FixedChar = True
Size = 4
end
object whccdadsID4: TStringField
FieldName = #29992#25143'ID'
FixedChar = True
Size = 4
end
object whccdadsID5: TStringField
FieldName = #20179#24211'ID'
FixedChar = True
Size = 4
end
object whccdadsDSDesigner3: TStringField
FieldName = #39046#29992#20154
FixedChar = True
Size = 8
end
object whccdadsDSDesigner4: TStringField
FieldName = #22791#27880
FixedChar = True
Size = 40
end
end
object QCLYADS: TADODataSet
CacheSize = 1000
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -