?? data.~dfm
字號:
object dm: Tdm
OldCreateOrder = False
OnCreate = DataModuleCreate
Left = 160
Top = 101
Height = 465
Width = 784
object adocn: TADOConnection
Connected = True
ConnectionString =
'Provider=SQLOLEDB.1;Password=dell;Persist Security Info=True;Use' +
'r ID=sa;Initial Catalog='#20116#37329#31649#29702#31995#32479';Data Source=YAN'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 17
Top = 3
end
object zlads_cpzl: TADODataSet
Connection = adocn
CursorType = ctStatic
CommandText = 'select * from '#20135#21697#34920' order by '#20998#31867'id, '#20135#21697'id'
Parameters = <>
Left = 17
Top = 60
object zlads_cpzlid: TStringField
FieldName = #20135#21697'id'
FixedChar = True
Size = 12
end
object zlads_cpzlField: TStringField
FieldKind = fkLookup
FieldName = #20998#31867
LookupDataSet = zlads_cplx
LookupKeyFields = #20998#31867'ID'
LookupResultField = #21517#31216
KeyFields = #20998#31867'id'
LookupCache = True
Lookup = True
end
object zlads_cpzlid2: TStringField
FieldName = #20998#31867'id'
Visible = False
FixedChar = True
Size = 10
end
object zlads_cpzlDSDesigner: TStringField
FieldName = #21517#31216#35268#26684
FixedChar = True
Size = 30
end
object zlads_cpzlDSDesigner2: TStringField
DisplayWidth = 4
FieldName = #21333#20301
FixedChar = True
Size = 2
end
object zlads_cpzlDSDesigner3: TFloatField
FieldName = #21333#20215
end
end
object zlds_cpzl: TDataSource
DataSet = zlads_cpzl
Left = 63
Top = 59
end
object zlads_cplx: TADODataSet
Connection = adocn
CursorType = ctStatic
CommandText = 'select * from '#20135#21697#31867#22411#34920
Parameters = <>
Left = 17
Top = 103
object zlads_cplxID: TStringField
FieldName = #20998#31867'ID'
FixedChar = True
Size = 10
end
object zlads_cplxDSDesigner: TStringField
FieldName = #21517#31216
FixedChar = True
end
object zlads_cplxDSDesigner2: TStringField
FieldName = #22791#27880
FixedChar = True
Size = 25
end
end
object zlds_cplx: TDataSource
DataSet = zlads_cplx
Left = 63
Top = 103
end
object zlads_khzl: TADODataSet
Connection = adocn
CursorType = ctStatic
CommandText = 'select * from '#23458#25143
Parameters = <>
Left = 16
Top = 151
object zlads_khzlID: TStringField
FieldName = #23458#25143'ID'
FixedChar = True
Size = 6
end
object zlads_khzlDSDesigner: TStringField
FieldName = #23458#25143#21517#31216
FixedChar = True
Size = 30
end
object zlads_khzlDSDesigner2: TStringField
DisplayWidth = 10
FieldName = #32852#31995#20154#22995#21517
FixedChar = True
Size = 8
end
object zlads_khzlDSDesigner3: TStringField
FieldName = #32852#31995#20154#22836#34900
FixedChar = True
Size = 12
end
object zlads_khzlDSDesigner4: TStringField
FieldName = #22320#22336
FixedChar = True
Size = 38
end
object zlads_khzlDSDesigner5: TStringField
FieldName = #22478#24066
FixedChar = True
Size = 10
end
object zlads_khzlDSDesigner6: TStringField
FieldName = #22320#21306
FixedChar = True
Size = 10
end
object zlads_khzlDSDesigner7: TStringField
DisplayWidth = 8
FieldName = #37038#25919#32534#30721
FixedChar = True
Size = 6
end
object zlads_khzlDSDesigner8: TStringField
FieldName = #30005#35805
FixedChar = True
Size = 14
end
object zlads_khzlDSDesigner9: TStringField
FieldName = #20256#30495
FixedChar = True
Size = 14
end
end
object zlds_khzl: TDataSource
DataSet = zlads_khzl
Left = 64
Top = 151
end
object zlads_xsyzl: TADODataSet
Connection = adocn
CursorType = ctStatic
CommandText = 'select * from '#38144#21806#21592#36164#26009
Parameters = <>
Left = 17
Top = 196
object zlads_xsyzlID: TStringField
DisplayWidth = 8
FieldName = #38144#21806#21592'ID'
FixedChar = True
Size = 4
end
object zlads_xsyzlDSDesigner: TStringField
DisplayWidth = 10
FieldName = #38144#21806#21592#21517#31216
FixedChar = True
Size = 8
end
object zlads_xsyzlDSDesigner2: TStringField
FieldName = #22791#27880
FixedChar = True
Size = 22
end
end
object zlds_xsyzl: TDataSource
DataSet = zlads_xsyzl
Left = 65
Top = 197
end
object cshads_cpkc: TADODataSet
Connection = adocn
CursorType = ctStatic
BeforeInsert = cshads_cpkcBeforeInsert
BeforePost = cshads_cpkcBeforePost
CommandText =
'select * from '#20135#21697#27599#24180#24211#23384#34920' '#13#10'where ('#21021#22987#20313#37327'>0 or '#21021#22987#20313#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 '#20135#21697'id'
Parameters = <
item
Name = 'nf'
Attributes = [paSigned]
DataType = ftInteger
Precision = 10
Size = 4
Value = Null
end>
Left = 574
Top = 13
object cshads_cpkcDSDesigner: TIntegerField
FieldName = #24180#20221
ReadOnly = True
end
object cshads_cpkcid: TStringField
FieldName = #20135#21697'id'
ReadOnly = True
FixedChar = True
Size = 12
end
object cshads_cpkcid2: TStringField
FieldName = #20998#31867'id'
ReadOnly = True
FixedChar = True
Size = 10
end
object cshads_cpkcStringField: 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 cshads_cpkcDSDesigner2: TStringField
FieldName = #21517#31216#35268#26684
ReadOnly = True
FixedChar = True
Size = 30
end
object cshads_cpkcDSDesigner3: TStringField
FieldName = #21333#20301
ReadOnly = True
FixedChar = True
Size = 2
end
object cshads_cpkcDSDesigner4: TFloatField
FieldName = #21021#22987#20313#37327
end
object cshads_cpkcDSDesigner5: TFloatField
FieldName = #21021#22987#20313#39069
end
object cshads_cpkcDSDesigner6: TStringField
FieldName = #22791#27880
FixedChar = True
Size = 22
end
object cshads_cpkcDSDesigner7: TFloatField
FieldName = #21333#20215
end
object cshads_cpkcDSDesigner8: TFloatField
FieldName = #36827#20179#25968#37327
end
object cshads_cpkcDSDesigner9: TFloatField
FieldName = #36827#20179#37329#39069
end
object cshads_cpkcDSDesigner10: TFloatField
FieldName = #20986#20179#25968#37327
end
object cshads_cpkcDSDesigner11: TFloatField
FieldName = #20986#20179#37329#39069
end
object cshads_cpkcDSDesigner12: TFloatField
FieldName = #24211#23384#25968#37327
end
object cshads_cpkcDSDesigner13: TFloatField
FieldName = #24211#23384#37329#39069
end
end
object cshds_cpkc: TDataSource
DataSet = cshads_cpkc
Left = 620
Top = 13
end
object zlads_cpjclx: TADODataSet
Connection = adocn
CursorType = ctStatic
CommandText = 'select * from '#25104#21697#36827#20179#31867#22411#34920' '
Parameters = <>
Left = 17
Top = 289
object zlads_cpjclxID: TStringField
DisplayWidth = 10
FieldName = #36827#20179#31867#22411'ID'
FixedChar = True
Size = 4
end
object zlads_cpjclxDSDesigner: TStringField
FieldName = #31867#22411#21517#31216
FixedChar = True
Size = 12
end
object zlads_cpjclxDSDesigner2: TStringField
DisplayWidth = 30
FieldName = #22791#27880
Size = 30
end
end
object zlds_cpjclx: TDataSource
DataSet = zlads_cpjclx
Left = 63
Top = 288
end
object zlads_cpjcysr: TADODataSet
Connection = adocn
CursorType = ctStatic
CommandText = 'select * from '#20135#21697#36827#20179#39564#25910#20154
Parameters = <>
Left = 17
Top = 335
object zlads_cpjcysrID: TStringField
DisplayWidth = 8
FieldName = #39564#25910#20154'ID'
FixedChar = True
Size = 4
end
object zlads_cpjcysrDSDesigner: TStringField
FieldName = #22995#21517
FixedChar = True
Size = 8
end
object zlads_cpjcysrDSDesigner2: TStringField
FieldName = #22791#27880
FixedChar = True
Size = 24
end
end
object zlds_cpjcysr: TDataSource
DataSet = zlads_cpjcysr
Left = 65
Top = 336
end
object djwhads_cpjcd: TADODataSet
Connection = adocn
CursorType = ctStatic
LockType = ltBatchOptimistic
BeforeInsert = djwhads_cpjcdBeforeInsert
BeforeEdit = djwhads_cpjcdBeforeEdit
BeforePost = djwhads_cpjcdBeforePost
AfterPost = djwhads_cpjcdAfterPost
AfterCancel = djwhads_cpjcdAfterCancel
BeforeDelete = djwhads_cpjcdBeforeDelete
AfterDelete = djwhads_cpjcdAfterDelete
AfterScroll = djwhads_cpjcdAfterScroll
OnNewRecord = djwhads_cpjcdNewRecord
CommandText = 'select * from '#25104#21697#36827#20179#21333' where '#26085#26399' between :date1 and :date2'
Parameters = <
item
Name = 'date1'
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
Value = Null
end
item
Name = 'date2'
DataType = ftDateTime
NumericScale = 3
Precision = 23
Size = 16
Value = Null
end>
Left = 359
Top = 12
object djwhads_cpjcdDSDesigner: TStringField
FieldName = #21333#25454#21495
FixedChar = True
Size = 12
end
object djwhads_cpjcdDSDesigner2: TStringField
FieldName = #25209#21495
FixedChar = True
Size = 16
end
object djwhads_cpjcdid: TStringField
FieldName = #36827#20179#31867#22411'id'
FixedChar = True
Size = 4
end
object djwhads_cpjcdField: TStringField
FieldKind = fkLookup
FieldName = #36827#20179#31867#22411
LookupDataSet = zlads_cpjclx
LookupKeyFields = #36827#20179#31867#22411'ID'
LookupResultField = #31867#22411#21517#31216
KeyFields = #36827#20179#31867#22411'id'
LookupCache = True
Lookup = True
end
object djwhads_cpjcdStringField: TStringField
FieldKind = fkLookup
FieldName = #39564#25910#20154
LookupDataSet = zlads_cpjcysr
LookupKeyFields = #39564#25910#20154'ID'
LookupResultField = #22995#21517
KeyFields = #39564#25910#20154'ID'
LookupCache = True
Lookup = True
end
object djwhads_cpjcdDSDesigner3: TDateTimeField
FieldName = #26085#26399
end
object djwhads_cpjcdID2: TStringField
FieldName = #39564#25910#20154'ID'
FixedChar = True
Size = 4
end
object djwhads_cpjcdDSDesigner4: TBooleanField
FieldName = #20316#24223#26631#24535
end
object djwhads_cpjcdDSDesigner5: TStringField
FieldName = #20316#24223#20154
FixedChar = True
Size = 8
end
object djwhads_cpjcdDSDesigner6: TDateTimeField
FieldName = #20316#24223#26085#26399
end
object djwhads_cpjcdDSDesigner7: TStringField
FieldName = #22791#27880
FixedChar = True
Size = 50
end
end
object djwhds_cpjcd: TDataSource
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -