unit28.~dfm
来自「应对服装行业的生产成本控制系统」· ~DFM 代码 · 共 419 行
~DFM
419 行
object DataModule1: TDataModule1
OldCreateOrder = False
Left = 319
Top = 7
Height = 618
Width = 531
object DCOMConnection1: TDCOMConnection
Connected = True
ServerGUID = '{1E3FACBA-310A-4F3A-81EC-C45B4B517C3A}'
ServerName = 'Project1.fzcbhsglxt'
ComputerName = 'KF'
Left = 39
Top = 16
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider1'
RemoteServer = DCOMConnection1
Left = 32
Top = 67
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 99
Top = 67
end
object ClientDataSet2: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider2'
RemoteServer = DCOMConnection1
Left = 32
Top = 119
end
object DataSource2: TDataSource
DataSet = ClientDataSet2
Left = 99
Top = 119
end
object ClientDataSet3: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider3'
RemoteServer = DCOMConnection1
Left = 32
Top = 171
end
object DataSource3: TDataSource
DataSet = ClientDataSet3
Left = 99
Top = 171
end
object ClientDataSet4: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider4'
RemoteServer = DCOMConnection1
Left = 32
Top = 223
end
object DataSource4: TDataSource
DataSet = ClientDataSet4
Left = 99
Top = 223
end
object ClientDataSet5: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider5'
RemoteServer = DCOMConnection1
Left = 32
Top = 277
end
object DataSource5: TDataSource
DataSet = ClientDataSet5
Left = 99
Top = 277
end
object ClientDataSet6: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider6'
RemoteServer = DCOMConnection1
Left = 32
Top = 329
end
object DataSource6: TDataSource
DataSet = ClientDataSet6
Left = 99
Top = 329
end
object ClientDataSet7: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider7'
RemoteServer = DCOMConnection1
Left = 32
Top = 381
end
object DataSource7: TDataSource
DataSet = ClientDataSet7
Left = 99
Top = 381
end
object ClientDataSet8: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider8'
RemoteServer = DCOMConnection1
Left = 32
Top = 433
end
object DataSource8: TDataSource
DataSet = ClientDataSet8
Left = 99
Top = 433
end
object ClientDataSet9: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider9'
RemoteServer = DCOMConnection1
Left = 204
Top = 67
end
object DataSource9: TDataSource
DataSet = ClientDataSet9
Left = 276
Top = 67
end
object ClientDataSet10: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider10'
RemoteServer = DCOMConnection1
Left = 204
Top = 119
end
object DataSource10: TDataSource
DataSet = ClientDataSet10
Left = 276
Top = 119
end
object ClientDataSet11: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider11'
RemoteServer = DCOMConnection1
Left = 204
Top = 171
end
object DataSource11: TDataSource
DataSet = ClientDataSet11
Left = 276
Top = 171
end
object ClientDataSet12: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider12'
RemoteServer = DCOMConnection1
Left = 204
Top = 223
end
object DataSource12: TDataSource
DataSet = ClientDataSet12
Left = 276
Top = 223
end
object ClientDataSet13: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider13'
RemoteServer = DCOMConnection1
Left = 204
Top = 277
end
object DataSource13: TDataSource
DataSet = ClientDataSet13
Left = 276
Top = 277
end
object ClientDataSet14: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider14'
RemoteServer = DCOMConnection1
Left = 204
Top = 329
end
object DataSource14: TDataSource
DataSet = ClientDataSet14
Left = 276
Top = 329
end
object ClientDataSet15: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider15'
RemoteServer = DCOMConnection1
Left = 204
Top = 381
end
object DataSource15: TDataSource
DataSet = ClientDataSet15
Left = 276
Top = 381
end
object ClientDataSet16: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider16'
RemoteServer = DCOMConnection1
Left = 204
Top = 433
end
object DataSource16: TDataSource
DataSet = ClientDataSet16
Left = 276
Top = 433
end
object ClientDataSet17: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider17'
RemoteServer = DCOMConnection1
Left = 377
Top = 67
end
object DataSource17: TDataSource
DataSet = ClientDataSet17
Left = 451
Top = 67
end
object ClientDataSet18: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider18'
RemoteServer = DCOMConnection1
Left = 377
Top = 119
end
object DataSource18: TDataSource
DataSet = ClientDataSet18
Left = 451
Top = 119
end
object ClientDataSet19: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider19'
RemoteServer = DCOMConnection1
Left = 377
Top = 171
end
object DataSource19: TDataSource
DataSet = ClientDataSet19
Left = 451
Top = 171
end
object ClientDataSet20: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider20'
RemoteServer = DCOMConnection1
Left = 377
Top = 223
end
object DataSource20: TDataSource
DataSet = ClientDataSet20
Left = 451
Top = 223
end
object ClientDataSet21: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider21'
RemoteServer = DCOMConnection1
Left = 377
Top = 277
end
object DataSource21: TDataSource
DataSet = ClientDataSet21
Left = 451
Top = 277
end
object ClientDataSet22: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider22'
RemoteServer = DCOMConnection1
Left = 377
Top = 329
end
object DataSource22: TDataSource
DataSet = ClientDataSet22
Left = 451
Top = 329
end
object ClientDataSet23: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider23'
RemoteServer = DCOMConnection1
Left = 377
Top = 381
end
object DataSource23: TDataSource
DataSet = ClientDataSet23
Left = 451
Top = 381
end
object ClientDataSet24: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider24'
RemoteServer = DCOMConnection1
Left = 377
Top = 433
end
object DataSource24: TDataSource
DataSet = ClientDataSet24
Left = 451
Top = 433
end
object ClientDataSet25: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider25'
RemoteServer = DCOMConnection1
Left = 204
Top = 16
end
object DataSource25: TDataSource
DataSet = ClientDataSet25
Left = 276
Top = 16
end
object ClientDataSet26: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider26'
RemoteServer = DCOMConnection1
Left = 373
Top = 16
end
object DataSource26: TDataSource
DataSet = ClientDataSet26
Left = 445
Top = 16
end
object ClientDataSet27: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider27'
RemoteServer = DCOMConnection1
Left = 32
Top = 485
end
object DataSource27: TDataSource
DataSet = ClientDataSet27
Left = 99
Top = 485
end
object ClientDataSet28: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider28'
RemoteServer = DCOMConnection1
Left = 204
Top = 485
end
object DataSource28: TDataSource
DataSet = ClientDataSet28
Left = 276
Top = 485
end
object ClientDataSet29: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider29'
RemoteServer = DCOMConnection1
Left = 377
Top = 485
end
object DataSource29: TDataSource
DataSet = ClientDataSet29
Left = 451
Top = 485
end
object ClientDataSet30: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider30'
RemoteServer = DCOMConnection1
Left = 204
Top = 533
end
object DataSource30: TDataSource
DataSet = ClientDataSet30
Left = 276
Top = 533
end
object ClientDataSet31: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'DataSetProvider31'
RemoteServer = DCOMConnection1
Left = 377
Top = 533
end
object DataSource31: TDataSource
DataSet = ClientDataSet31
Left = 451
Top = 533
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?