?? data.~dfm
字號:
LookupResultField = #21333#20301
KeyFields = #26448#26009#32534#30721
LookupCache = True
Lookup = True
end
object whccmxadsStringField: 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 whccmxadsDSDesigner2: TFloatField
FieldName = #25968#37327
OnChange = whccmxadsDSDesigner2Change
end
object whccmxadsDSDesigner3: TBCDField
FieldName = #21333#20215
OnChange = whccmxadsDSDesigner2Change
Precision = 19
end
object whccmxadsDSDesigner4: TBCDField
FieldName = #37329#39069
Precision = 19
end
object whccmxadsDSDesigner5: TStringField
FieldName = #22791#27880
FixedChar = True
end
end
object whccmxds: TDataSource
DataSet = whccmxads
Left = 404
Top = 343
end
object jzxxbads: TADODataSet
Connection = adocn
CursorType = ctStatic
CommandText = 'select * from '#32467#36716#20449#24687#34920
Parameters = <>
Left = 101
Top = 6
end
object jzxxbds: TDataSource
DataSet = jzxxbads
Left = 149
Top = 6
end
object cshads_clkc: TADODataSet
Connection = adocn
CursorType = ctStatic
BeforeInsert = cshads_clkcBeforeInsert
BeforePost = cshads_clkcBeforePost
CommandText =
'select * from '#26448#26009#27599#24180#24211#23384#34920' '#13#10'where ('#21021#22987#25968#37327'>0 or '#21021#22987#37329#39069'>0 or '#36827#20179#25968#37327'>0 or ' +
' '#36827#20179#37329#39069'>0 or '#13#10#20986#20179#25968#37327'>0 or '#20986#20179#37329#39069'>0 or '#24211#23384#25968#37327' >0 or '#24211#23384#37329#39069'>0 ) and '#13#10' '#24180 +
#20221'=:nf order by '#26448#26009#32534#30721
Parameters = <
item
Name = 'nf'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end>
Left = 577
Top = 59
object cshads_clkcDSDesigner: TIntegerField
FieldName = #24180#20221
ReadOnly = True
end
object cshads_clkcDSDesigner2: TStringField
FieldName = #26448#26009#32534#30721
ReadOnly = True
FixedChar = True
Size = 14
end
object cshads_clkcDSDesigner3: TStringField
FieldName = #26448#26009#21517#31216
ReadOnly = True
FixedChar = True
Size = 18
end
object cshads_clkcDSDesigner4: TStringField
FieldName = #21333#20301
ReadOnly = True
FixedChar = True
Size = 4
end
object cshads_clkcDSDesigner5: TStringField
FieldName = #26448#26009#35268#26684
ReadOnly = True
FixedChar = True
Size = 8
end
object cshads_clkcID: TStringField
FieldName = #31867#22411'ID'
ReadOnly = True
FixedChar = True
Size = 4
end
object cshads_clkcStringField: TStringField
FieldKind = fkLookup
FieldName = #31867#22411
LookupDataSet = whcllxdmads
LookupKeyFields = #31867#22411'ID'
LookupResultField = #31867#22411#21517#31216
KeyFields = #31867#22411'ID'
LookupCache = True
ReadOnly = True
Lookup = True
end
object cshads_clkcDSDesigner6: TFloatField
FieldName = #21021#22987#25968#37327
end
object cshads_clkcDSDesigner7: TFloatField
FieldName = #21021#22987#37329#39069
end
object cshads_clkcDSDesigner8: TStringField
FieldName = #22791#27880
FixedChar = True
Size = 22
end
object cshads_clkcDSDesigner9: TBCDField
FieldName = #21442#32771#20215#26684
Precision = 19
end
object cshads_clkcDSDesigner10: TFloatField
FieldName = #36827#20179#25968#37327
end
object cshads_clkcDSDesigner11: TFloatField
FieldName = #36827#20179#37329#39069
end
object cshads_clkcDSDesigner12: TFloatField
FieldName = #20986#20179#25968#37327
end
object cshads_clkcDSDesigner13: TFloatField
FieldName = #20986#20179#37329#39069
end
object cshads_clkcDSDesigner14: TFloatField
FieldName = #24211#23384#25968#37327
end
object cshads_clkcDSDesigner15: TFloatField
FieldName = #24211#23384#37329#39069
end
end
object cshds_clkc: TDataSource
DataSet = cshads_clkc
Left = 623
Top = 58
end
object ASP_KCZL: TADOStoredProc
Connection = adocn
ProcedureName = 'cpkc_update;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@nf'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = Null
end>
Left = 675
Top = 59
end
object ASP_yjczl: TADOStoredProc
Connection = adocn
ProcedureName = 'cpkc_update;1'
Parameters = <
item
Name = '@RETURN_VALUE'
DataType = ftInteger
Direction = pdReturnValue
Precision = 10
Value = 0
end
item
Name = '@nf'
Attributes = [paNullable]
DataType = ftInteger
Precision = 10
Value = Null
end>
Left = 722
Top = 58
end
object cxads_cpjc: TADODataSet
Connection = adocn
CursorType = ctStatic
BeforeInsert = cshads_cpkcBeforeInsert
BeforePost = cshads_cpkcBeforePost
CommandText =
'select * from '#20135#21697#27599#26376#32467#23384#34920' '#13#10'where ('#19978#26376#25968#37327'>0 or '#19978#26376#37329#39069'>0 or '#36827#20179#25968#37327'>0 or '#36827 +
#20179#37329#39069'>0 or '#13#10#20986#20179#25968#37327'>0 or '#20986#20179#37329#39069'>0 or '#26412#26376#25968#37327' >0 or '#26412#26376#37329#39069'>0) and '#13#10' '#24180#20221'=:' +
'nf and '#26376#20221'=:yf order by '#20998#31867'id,'#20135#21697'id'
Parameters = <
item
Name = 'nf'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end
item
Name = 'yf'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end>
Left = 467
Top = 9
object IntegerField1: TIntegerField
FieldName = #24180#20221
ReadOnly = True
end
object StringField1: TStringField
FieldName = #20135#21697'id'
ReadOnly = True
FixedChar = True
Size = 12
end
object cxads_cpjcDSDesigner: TIntegerField
FieldName = #26376#20221
end
object StringField2: TStringField
FieldName = #20998#31867'id'
ReadOnly = True
FixedChar = True
Size = 10
end
object StringField3: TStringField
FieldKind = fkLookup
FieldName = #20998#31867
LookupDataSet = zlads_cplx
LookupKeyFields = #20998#31867'ID'
LookupResultField = #21517#31216
KeyFields = #20998#31867'id'
LookupCache = True
ReadOnly = True
Lookup = True
end
object StringField4: TStringField
FieldName = #21517#31216#35268#26684
ReadOnly = True
FixedChar = True
Size = 30
end
object StringField5: TStringField
FieldName = #21333#20301
ReadOnly = True
FixedChar = True
Size = 2
end
object FloatField1: TFloatField
FieldName = #19978#26376#25968#37327
end
object FloatField2: TFloatField
FieldName = #19978#26376#37329#39069
end
object StringField6: TStringField
FieldName = #22791#27880
FixedChar = True
Size = 22
end
object FloatField3: TFloatField
FieldName = #21333#20215
end
object FloatField4: TFloatField
FieldName = #36827#20179#25968#37327
end
object FloatField5: TFloatField
FieldName = #36827#20179#37329#39069
end
object FloatField6: TFloatField
FieldName = #20986#20179#25968#37327
end
object FloatField7: TFloatField
FieldName = #20986#20179#37329#39069
end
object FloatField8: TFloatField
FieldName = #26412#26376#25968#37327
end
object FloatField9: TFloatField
FieldName = #26412#26376#37329#39069
end
end
object cxds_cpjc: TDataSource
DataSet = cxads_cpjc
Left = 514
Top = 9
end
object cxads_cljc: TADODataSet
Connection = adocn
CursorType = ctStatic
BeforeInsert = cshads_clkcBeforeInsert
BeforePost = cshads_clkcBeforePost
CommandText =
'select * from '#26448#26009#27599#26376#32467#23384#34920' '#13#10'where ('#19978#26376#25968#37327'>0 or '#19978#26376#37329#39069'>0 or '#36827#20179#25968#37327'>0 or ' +
' '#36827#20179#37329#39069'>0 or '#13#10#20986#20179#25968#37327'>0 or '#20986#20179#37329#39069'>0 or '#26412#26376#25968#37327' >0 or '#26412#26376#37329#39069'>0) and '#13#10#24180#20221'=' +
':nf and '#26376#20221'=:yf order by '#31867#22411'id,'#26448#26009#32534#30721
Parameters = <
item
Name = 'nf'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end
item
Name = 'yf'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end>
Left = 469
Top = 56
object IntegerField2: TIntegerField
FieldName = #24180#20221
ReadOnly = True
end
object cxads_cljcDSDesigner: TIntegerField
FieldName = #26376#20221
end
object StringField7: TStringField
FieldName = #26448#26009#32534#30721
ReadOnly = True
FixedChar = True
Size = 14
end
object StringField8: TStringField
FieldName = #26448#26009#21517#31216
ReadOnly = True
FixedChar = True
Size = 18
end
object StringField9: TStringField
FieldName = #21333#20301
ReadOnly = True
FixedChar = True
Size = 4
end
object StringField10: TStringField
FieldName = #26448#26009#35268#26684
ReadOnly = True
FixedChar = True
Size = 8
end
object StringField11: TStringField
FieldName = #31867#22411'ID'
ReadOnly = True
FixedChar = True
Size = 4
end
object StringField12: TStringField
FieldKind = fkLookup
FieldName = #31867#22411
LookupDataSet = whcllxdmads
LookupKeyFields = #31867#22411'ID'
LookupResultField = #31867#22411#21517#31216
KeyFields = #31867#22411'ID'
LookupCache = True
ReadOnly = True
Lookup = True
end
object FloatField10: TFloatField
FieldName = #19978#26376#25968#37327
end
object FloatField11: TFloatField
FieldName = #19978#26376#37329#39069
end
object StringField13: TStringField
FieldName = #22791#27880
FixedChar = True
Size = 22
end
object BCDField1: TBCDField
FieldName = #21442#32771#20215#26684
Precision = 19
end
object FloatField12: TFloatField
FieldName = #36827#20179#25968#37327
end
object FloatField13: TFloatField
FieldName = #36827#20179#37329#39069
end
object FloatField14: TFloatField
FieldName = #20986#20179#25968#37327
end
object FloatField15: TFloatField
FieldName = #20986#20179#37329#39069
end
object FloatField16: TFloatField
FieldName = #26412#26376#25968#37327
end
object FloatField17: TFloatField
FieldName = #26412#26376#37329#39069
end
end
object cxds_cljc: TDataSource
DataSet = cxads_cljc
Left = 517
Top = 55
end
object cxads_gysmyjh: TADODataSet
Connection = adocn
CursorType = ctStatic
BeforeInsert = cshads_clkcBeforeInsert
BeforePost = cshads_clkcBeforePost
CommandText =
'select '#20379#24212#21830'id,'#26448#26009#32534#30721',sum('#25968#37327') as '#25968#37327',sum('#37329#39069') as '#37329#39069' from '#13#10'(select m.'#20379 +
#24212#21830'id,d.'#26448#26009#32534#30721',d.'#25968#37327',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(year,m.'#26085#26399')=:nf and'#13#10'datepart(month,m.'#26085#26399')=:yf) a' +
's gysjh'#13#10'group by '#20379#24212#21830'id,'#26448#26009#32534#30721#13#10'order by '#20379#24212#21830'id,'#26448#26009#32534#30721
Parameters = <
item
Name = 'nf'
DataType = ftString
Size = 4
Value = '2003'
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -