📄 data.dfm
字号:
Connection = ADOCN
CursorType = ctStatic
CommandText =
'SELECT TOP 100 PERCENT '#37096#38376'ID, '#26448#26009#32534#30721', SUM('#37329#39069') AS '#37329#39069#13#10'FROM dbo.bmlym' +
'xb'#13#10'GROUP BY '#37096#38376'ID, '#26448#26009#32534#30721#13#10'ORDER BY '#37096#38376'ID, '#26448#26009#32534#30721
Parameters = <>
Left = 464
Top = 136
object QCLYADSDSDesigner: TStringField
FieldName = #26448#26009#32534#30721
FixedChar = True
Size = 14
end
object QCLYADSField: TStringField
FieldKind = fkLookup
FieldName = #37096#38376#21517#31216
LookupDataSet = whbmdmads
LookupKeyFields = #37096#38376'ID'
LookupResultField = #37096#38376#21517#31216
KeyFields = #37096#38376'ID'
LookupCache = True
Lookup = True
end
object QCLYADSID: TStringField
FieldName = #37096#38376'ID'
FixedChar = True
Size = 4
end
object QCLYADSDSDesigner3: TBCDField
FieldName = #37329#39069
LookupCache = True
ReadOnly = True
Visible = False
Precision = 19
end
object QCLYADSField2: TStringField
FieldKind = fkLookup
FieldName = #26448#26009#26126#31216
LookupDataSet = whclbmads
LookupKeyFields = #26448#26009#32534#30721
LookupResultField = #26448#26009#21517#31216
KeyFields = #26448#26009#32534#30721
LookupCache = True
Size = 0
Lookup = True
end
end
object whgysdmads: TADODataSet
CacheSize = 1000
Connection = ADOCN
CommandText = 'select * from GYSDMB'
Parameters = <>
Left = 64
Top = 112
object whgysdmadsID: TStringField
FieldName = #20379#24212#21830'ID'
FixedChar = True
Size = 6
end
object whgysdmadsDSDesigner: TStringField
FieldName = #20379#24212#21830#31616#31216
FixedChar = True
Size = 12
end
object whgysdmadsDSDesigner2: TStringField
FieldName = #20379#24212#21830#21517#31216
FixedChar = True
Size = 30
end
object whgysdmadsDSDesigner3: TStringField
FieldName = #32852#31995#20154
FixedChar = True
Size = 8
end
object whgysdmadsDSDesigner4: TStringField
FieldName = #30005#35805
FixedChar = True
Size = 14
end
object whgysdmadsDSDesigner5: TStringField
FieldName = #22320#22336
FixedChar = True
Size = 30
end
end
object whjclxdmads: TADODataSet
Connection = ADOCN
CommandText = 'select * from JCLXB'
Parameters = <>
Left = 64
Top = 168
end
object cxjcbads: TADODataSet
CacheSize = 1000
Connection = ADOCN
CommandText = 'select * from CLjcB'
Parameters = <>
Left = 352
Top = 160
object cxjcbadsDSDesigner: TStringField
FieldName = #26448#26009#32534#30721
FixedChar = True
Size = 14
end
object cxjcbadsDSDesigner2: TStringField
FieldName = #26448#26009#21517#31216
FixedChar = True
Size = 18
end
object cxjcbadsDSDesigner3: TStringField
FieldName = #21333#20301
FixedChar = True
Size = 4
end
object cxjcbadsDSDesigner4: TStringField
FieldName = #26448#26009#35268#26684
FixedChar = True
Size = 8
end
object cxjcbadsStringField: TStringField
FieldKind = fkLookup
FieldName = #31867#22411
LookupDataSet = whcllxdmads
LookupKeyFields = #31867#22411'ID'
LookupResultField = #31867#22411#21517#31216
KeyFields = #31867#22411'ID'
Lookup = True
end
object cxjcbadsID: TStringField
FieldName = #31867#22411'ID'
FixedChar = True
Size = 4
end
object cxjcbadsID2: TStringField
FieldName = #20179#24211'ID'
FixedChar = True
Size = 4
end
object cxjcbadsDSDesigner5: TIntegerField
FieldName = #19978#26376#32467#23384
end
object cxjcbadsDSDesigner6: TBCDField
FieldName = #19978#26376#21333#20215
Precision = 19
end
object cxjcbadsDSDesigner7: TBCDField
FieldName = #19978#26376#37329#39069
Precision = 19
end
object cxjcbadsDSDesigner8: TIntegerField
FieldName = #36827#20179#25968#37327
end
object cxjcbadsDSDesigner9: TBCDField
FieldName = #36827#20179#21333#20215
Precision = 19
end
object cxjcbadsDSDesigner10: TBCDField
FieldName = #36827#20179#37329#39069
Precision = 19
end
object cxjcbadsDSDesigner11: TIntegerField
FieldName = #20986#20179#25968#37327
end
object cxjcbadsDSDesigner12: TBCDField
FieldName = #20986#20179#21333#20215
Precision = 19
end
object cxjcbadsDSDesigner13: TBCDField
FieldName = #20986#20179#37329#39069
Precision = 19
end
object cxjcbadsDSDesigner14: TIntegerField
FieldName = #26412#26376#32467#23384
end
object cxjcbadsDSDesigner15: TBCDField
FieldName = #32467#23384#21333#20215
Precision = 19
end
object cxjcbadsDSDesigner16: TBCDField
FieldName = #32467#23384#37329#39069
Precision = 19
end
object cxjcbadsDSDesigner17: TIntegerField
FieldName = #23454#38469#32467#23384
end
object cxjcbadsDSDesigner18: TBCDField
FieldName = #23454#38469#37329#39069
Precision = 19
end
end
object gysghhzads: TADODataSet
CacheSize = 1000
Connection = ADOCN
CursorType = ctStatic
OnCalcFields = gysghhzadsCalcFields
CommandText =
'SELECT '#26448#26009#32534#30721', SUM('#25968#37327') AS '#25968#37327', SUM('#37329#39069') AS '#37329#39069' from jcmxcx'#13#10'group by ' +
#26448#26009#32534#30721' '
Parameters = <>
Left = 352
Top = 328
object gysghhzadsID: 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
Visible = False
Lookup = True
end
object gysghhzadsStringField: 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 gysghhzadsStringField2: 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 gysghhzadsStringField3: 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 gysghhzadsStringField4: 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 gysghhzadsFloatField: TFloatField
FieldKind = fkCalculated
FieldName = #21333#20215
DisplayFormat = '#0.00'
EditFormat = '#0.00'
Calculated = True
end
object gysghhzadsDSDesigner: TStringField
FieldName = #26448#26009#32534#30721
FixedChar = True
Size = 14
end
object gysghhzadsDSDesigner2: TIntegerField
FieldName = #25968#37327
ReadOnly = True
end
object gysghhzadsDSDesigner3: TBCDField
FieldName = #37329#39069
ReadOnly = True
Precision = 19
end
end
object bmlyhzbads: TADODataSet
CacheSize = 1000
Connection = ADOCN
CursorType = ctStatic
OnCalcFields = bmlyhzbadsCalcFields
CommandText =
'SELECT '#26448#26009#32534#30721', SUM('#25968#37327') AS '#25968#37327', SUM('#37329#39069') AS '#37329#39069' from bmlymxb'#13#10'group by' +
' '#26448#26009#32534#30721' '
IndexFieldNames = #26448#26009#32534#30721
Parameters = <>
Left = 352
Top = 224
object bmlyhzbadsDSDesigner: TStringField
FieldName = #26448#26009#32534#30721
FixedChar = True
Size = 14
end
object bmlyhzbadsDSDesigner2: TIntegerField
FieldName = #25968#37327
ReadOnly = True
end
object bmlyhzbadsDSDesigner3: TBCDField
FieldName = #37329#39069
ReadOnly = True
Precision = 19
end
object bmlyhzbadsID: 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 bmlyhzbadsStringField: 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 bmlyhzbadsStringField2: 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 bmlyhzbadsStringField3: 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 bmlyhzbadsStringField4: 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 bmlyhzbadsField: TFloatField
FieldKind = fkCalculated
FieldName = #21333#20215
DisplayFormat = '#0.00'
EditFormat = '#0.00'
Calculated = True
end
end
object whtzmxads: TADODataSet
CacheSize = 1000
Connection = ADOCN
CursorType = ctStatic
BeforeInsert = whtzmxadsBeforeInsert
BeforePost = whtzmxadsBeforePost
OnNewRecord = whtzmxadsNewRecord
CommandText = 'select * from TZMXB'
DataSource = whcjtzds
IndexFieldNames = #35843#25972'ID'
MasterFields = #35843#25972'ID'
Parameters = <>
Left = 192
Top = 256
object whtzmxadsID: TAutoIncField
FieldName = #35843#25972#26126#32454'ID'
ReadOnly = True
end
object whtzmxadsID2: TIntegerField
FieldName = #35843#25972'ID'
end
object whtzmxadsDSDesigner: TStringField
FieldName = #26448#26009#32534#30721
FixedChar = True
Size = 14
end
object whtzmxadsDSDesigner2: TIntegerField
FieldName = #35843#25972#25968#37327
OnChange = whtzmxadsDSDesigner2Change
end
object whtzmxadsID3: 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 whtzmxadsStringField4: 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 whtzmxadsStringField3: 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 whtzmxadsStringField2: 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 whtzmxadsStringField: 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 whtzmxadsDSDesigner3: TBCDField
FieldName = #35843#25972#21333#20215
OnChange = whtzmxadsDSDesigner3Change
Precision = 19
end
object whtzmxadsDSDesigner4: TBCDField
FieldName = #35843#25972#37329#39069
Precision = 19
end
object whtzmxadsDSDesigner5: TStringField
FieldName = #36865#36135#21333#21495
FixedChar = True
Size = 10
end
object whtzmxadsDSDesigner6: TStringField
FieldName = #22791#27880
FixedChar = True
end
end
object whclbmads: TADODataSet
CacheSize = 1000
Connection = ADOCN
CursorType = ctStatic
BeforePost = whclbmadsBeforePost
AfterPost = whclbmadsAfterPost
OnNewRecord = whclbmadsNewRecord
CommandText = 'select * from CLDMB'
Parameters = <>
Left = 64
Top = 368
object whclbmadsDSDesigner: TStringField
FieldName = #26448#26009#32534#30721
FixedChar = True
Size = 14
end
object whclbmadsDSDesigner2: TStringField
FieldName = #26448#26009#21517#31216
FixedChar = True
Size = 18
end
object whclbmadsDSDesigner3: TStringField
FieldName = #21333#20301
FixedChar = True
Size = 4
end
object whclbmadsDSDesigner4: TStringField
FieldName = #26448#26009#35268#26684
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -