?? data.~dfm
字號:
end
item
Name = 'yf'
DataType = ftString
Size = 2
Value = '08'
end>
Left = 475
Top = 198
object cxads_gysmyjhid: TStringField
FieldName = #20379#24212#21830'id'
FixedChar = True
Size = 6
end
object cxads_gysmyjhStringField: 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 cxads_gysmyjhDSDesigner3: TStringField
FieldName = #26448#26009#32534#30721
FixedChar = True
Size = 14
end
object cxads_gysmyjhStringField2: 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 cxads_gysmyjhStringField3: 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 cxads_gysmyjhStringField4: 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 cxads_gysmyjhStringField5: 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 cxads_gysmyjhID2: 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 cxads_gysmyjhDSDesigner: TFloatField
FieldName = #25968#37327
ReadOnly = True
end
object cxads_gysmyjhDSDesigner2: TBCDField
FieldName = #37329#39069
ReadOnly = True
Precision = 19
end
object cxads_gysmyjhField: TFloatField
FieldKind = fkCalculated
FieldName = #22343#20215
Calculated = True
end
end
object cxds_gysmyjh: TDataSource
DataSet = cxads_gysmyjh
Left = 523
Top = 199
end
object cxds_gysghmx: TDataSource
DataSet = cxads_gysghmx
Left = 522
Top = 247
end
object cxads_gysghmx: TADODataSet
Connection = adocn
CursorType = ctStatic
BeforeInsert = cshads_clkcBeforeInsert
BeforePost = cshads_clkcBeforePost
CommandText =
'select m.'#36827#20179#21333#21495',m.'#26085#26399',m.'#36827#20179#31867#22411'id,m.'#20379#24212#21830'id,m.'#39564#25910#20154'id,'#13#10'd.'#26448#26009#32534#30721',d.'#25968#37327',d.'#21333#20215',d' +
'.'#37329#39069' from '#26448#26009#36827#20179#21333' m,'#26448#26009#36827#20179#26126#32454#34920' d'#13#10'where m.'#36827#20179#21333#21495'=d.'#36827#20179#21333#21495' and '#13#10'datepart(y' +
'ear,m.'#26085#26399')=:nf and'#13#10'datepart(month,m.'#26085#26399')=:yf and '#13#10'm.'#20379#24212#21830'id=:gys'#13#10 +
'order by d.'#26448#26009#32534#30721
IndexFieldNames = #20379#24212#21830'id'
Parameters = <
item
Name = 'nf'
Attributes = [paSigned, paNullable]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end
item
Name = 'yf'
Attributes = [paSigned, paNullable]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end
item
Name = 'gys'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 6
Value = Null
end>
Left = 476
Top = 246
object StringField14: TStringField
FieldName = #20379#24212#21830'id'
FixedChar = True
Size = 6
end
object StringField15: 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 StringField16: TStringField
FieldName = #26448#26009#32534#30721
FixedChar = True
Size = 14
end
object StringField17: 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 StringField18: 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 StringField19: 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 StringField20: 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 StringField21: 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 cxads_gysghmxStringField: 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 cxads_gysghmxStringField2: 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 FloatField18: TFloatField
FieldName = #25968#37327
ReadOnly = True
end
object BCDField2: TBCDField
FieldName = #37329#39069
ReadOnly = True
Precision = 19
end
object cxads_gysghmxDSDesigner: TStringField
FieldName = #36827#20179#21333#21495
FixedChar = True
Size = 12
end
object cxads_gysghmxDSDesigner2: TDateTimeField
FieldName = #26085#26399
end
object cxads_gysghmxid: TStringField
FieldName = #36827#20179#31867#22411'id'
FixedChar = True
Size = 4
end
object cxads_gysghmxid2: TStringField
FieldName = #39564#25910#20154'id'
FixedChar = True
Size = 4
end
object cxads_gysghmxDSDesigner3: TBCDField
FieldName = #21333#20215
Precision = 19
end
end
object cxads_bmlyhz: TADODataSet
Connection = adocn
CursorType = ctStatic
BeforeInsert = cshads_clkcBeforeInsert
BeforePost = cshads_clkcBeforePost
OnCalcFields = cxads_bmlyhzCalcFields
CommandText =
'select '#37096#38376'id,'#26448#26009#32534#30721',sum('#25968#37327') as '#25968#37327',sum('#37329#39069') as '#37329#39069' from '#13#10'(select m.'#37096#38376 +
'id,d.'#26448#26009#32534#30721',d.'#25968#37327',d.'#37329#39069' from '#26448#26009#39046#26009#21333' m,'#13#10#26448#26009#39046#26009#26126#32454#34920' d'#13#10'where m.'#20986#20179#21333#21495'=d.'#20986#20179#21333 +
#21495' and '#13#10'datepart(year,m.'#26085#26399')=:nf and'#13#10'datepart(month,m.'#26085#26399')=:yf) a' +
's gysjh'#13#10'group by '#37096#38376'id,'#26448#26009#32534#30721#13#10'order by '#37096#38376'id,'#26448#26009#32534#30721
Parameters = <
item
Name = 'nf'
DataType = ftString
Size = 4
Value = '2003'
end
item
Name = 'yf'
DataType = ftString
Size = 2
Value = '08'
end>
Left = 474
Top = 296
object StringField22: TStringField
FieldName = #37096#38376'id'
FixedChar = True
Size = 6
end
object StringField23: 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 StringField24: TStringField
FieldName = #26448#26009#32534#30721
FixedChar = True
Size = 14
end
object StringField25: 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 StringField26: 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 StringField27: 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 StringField28: 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 StringField29: 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 FloatField19: TFloatField
FieldName = #25968#37327
ReadOnly = True
end
object BCDField3: TBCDField
FieldName = #37329#39069
ReadOnly = True
Precision = 19
end
object FloatField20: TFloatField
FieldKind = fkCalculated
FieldName = #22343#20215
Calculated = True
end
end
object cxds_bmlyhz: TDataSource
DataSet = cxads_bmlyhz
Left = 522
Top = 296
end
object cxads_bmlymx: TADODataSet
Connection = adocn
CursorType = ctStatic
BeforeInsert = cshads_clkcBeforeInsert
BeforePost = cshads_clkcBeforePost
CommandText =
'select m.'#20986#20179#21333#21495',m.'#26085#26399',m.'#20986#20179#31867#22411'id,m.'#37096#38376'id,m.'#39046#29992#20154','#13#10'd.'#26448#26009#32534#30721',d.'#25968#37327',d.'#21333#20215',d.'#37329#39069 +
' from '#26448#26009#39046#26009#21333' m,'#13#10#26448#26009#39046#26009#26126#32454#34920' d'#13#10'where m.'#20986#20179#21333#21495'=d.'#20986#20179#21333#21495' and '#13#10'datepart(ye' +
'ar,m.'#26085#26399')=:nf and'#13#10'datepart(month,m.'#26085#26399')=:yf and '#13#10'm.'#37096#38376'id=:gys'#13#10'or' +
'der by d.'#26448#26009#32534#30721
Parameters = <
item
Name = 'nf'
Attributes = [paSigned, paNullable]
DataType = ftInteger
Precision = 10
Size = 4
Value = 2003
end
item
Name = 'yf'
Attributes = [paSigned, paNullable]
DataType = ftInteger
Precision = 10
Size = 4
Value = 8
end
item
Name = 'gys'
DataType = ftString
NumericScale = 255
Precision = 255
Size = 4
Value = '856'
end>
Left = 473
Top = 342
object cxads_bmlymxid: TStringField
FieldName = #37096#38376'id'
FixedChar = True
Size = 6
end
object cxads_bmlymxStringField: 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 cxads_bmlymxS
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -