📄 udm.dfm
字号:
object DataModule1: TDataModule1
OldCreateOrder = False
OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy
Left = 292
Top = 246
Height = 386
Width = 462
object scGpsDB: TSocketConnection
ServerGUID = '{480028D6-944D-4996-9A1F-5656E08D889B}'
ServerName = 'Server.ADHOCGPSServer'
Address = '127.0.0.1'
Left = 16
Top = 24
end
object cdsCarInfo: TClientDataSet
Aggregates = <>
PacketRecords = 1
Params = <>
ProviderName = 'dspRead'
RemoteServer = scGpsDB
Left = 208
Top = 16
end
object cdsLookup: TClientDataSet
Aggregates = <>
CommandText =
'EXEC TaxiSheetBegin @OperId, @SheetId OUTPUT , @SheetCount OUTPU' +
'T '
PacketRecords = 10
Params = <
item
DataType = ftUnknown
ParamType = ptUnknown
end>
ProviderName = 'dspFree'
RemoteServer = scGpsDB
Left = 104
Top = 88
end
object cdsTemp: TClientDataSet
Aggregates = <>
Params = <>
Left = 187
Top = 88
end
object cdsGroup: TClientDataSet
Aggregates = <>
PacketRecords = 1
Params = <>
ProviderName = 'dspGroup'
RemoteServer = scGpsDB
Left = 96
Top = 16
end
object cdsTeam: TClientDataSet
Aggregates = <>
PacketRecords = 1
Params = <>
ProviderName = 'dspTeam'
RemoteServer = scGpsDB
Left = 152
Top = 16
end
object dsTaxiStat: TDataSource
DataSet = cds03
Left = 216
Top = 160
end
object cds01: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dspFree'
RemoteServer = scGpsDB
Left = 72
Top = 168
end
object cds02: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dspFree'
RemoteServer = scGpsDB
Left = 120
Top = 168
end
object cds03: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dspFree'
RemoteServer = scGpsDB
Left = 160
Top = 168
end
object cds00: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dspFree'
RemoteServer = scGpsDB
Left = 16
Top = 168
end
object dsAlarmQry: TDataSource
DataSet = cdsAlarmQry
Left = 96
Top = 224
end
object cdsAlarmQry: TClientDataSet
Aggregates = <>
Params = <>
ProviderName = 'dspFree'
RemoteServer = scGpsDB
Left = 16
Top = 224
end
object cdsPrice: TClientDataSet
Aggregates = <>
PacketRecords = 10
Params = <>
ProviderName = 'dspFree'
RemoteServer = scGpsDB
Left = 280
Top = 16
end
object cdsCustomer: TClientDataSet
Aggregates = <>
FieldDefs = <
item
Name = 'CarID'
DataType = ftLargeint
end
item
Name = 'CarCode'
Attributes = [faFixed]
DataType = ftString
Size = 16
end
item
Name = 'CarName'
Attributes = [faFixed]
DataType = ftString
Size = 50
end
item
Name = 'CarType'
Attributes = [faFixed]
DataType = ftString
Size = 16
end
item
Name = 'CarColor'
Attributes = [faFixed]
DataType = ftString
Size = 16
end
item
Name = 'CarSymbol'
DataType = ftInteger
end
item
Name = 'CarUse'
Attributes = [faFixed]
DataType = ftString
Size = 16
end
item
Name = 'CarOwnerName'
Attributes = [faFixed]
DataType = ftString
Size = 14
end
item
Name = 'CarOwnerPhone'
Attributes = [faFixed]
DataType = ftString
Size = 15
end
item
Name = 'CarOwnerPWD'
Attributes = [faFixed]
DataType = ftString
Size = 10
end
item
Name = 'CarOwerAddress'
Attributes = [faFixed]
DataType = ftString
Size = 50
end
item
Name = 'Drivername'
Attributes = [faFixed]
DataType = ftString
Size = 18
end
item
Name = 'DriverLicense'
Attributes = [faFixed]
DataType = ftString
Size = 15
end
item
Name = 'CarEngine'
Attributes = [faFixed]
DataType = ftString
Size = 20
end
item
Name = 'CarBatholith'
Attributes = [faFixed]
DataType = ftString
Size = 20
end
item
Name = 'CarCommunicateCode'
Attributes = [faFixed]
DataType = ftString
Size = 20
end
item
Name = 'CarStyle'
DataType = ftSmallint
end
item
Name = 'Remark'
Attributes = [faFixed]
DataType = ftString
Size = 90
end
item
Name = 'TeamId'
DataType = ftInteger
end
item
Name = 'CommAttribute'
DataType = ftString
Size = 50
end
item
Name = 'InsuranceType'
DataType = ftString
Size = 50
end
item
Name = 'InsuranceValue'
DataType = ftFloat
end
item
Name = 'InsuranceDateTime'
DataType = ftDateTime
end
item
Name = 'InsuranceEndDateTime'
DataType = ftDateTime
end
item
Name = 'whType'
DataType = ftInteger
end
item
Name = 'whLastDateTime'
DataType = ftDateTime
end
item
Name = 'whEndDateTime'
DataType = ftDateTime
end>
IndexDefs = <>
Params = <>
ProviderName = 'dspFree'
RemoteServer = scGpsDB
StoreDefs = True
Left = 272
Top = 80
end
object dsCustomer: TDataSource
DataSet = cdsCustomer
Left = 288
Top = 152
end
object cds04: TClientDataSet
Aggregates = <>
CommandText = 'select * from ST_GoodsShippingPlan'
Params = <>
ProviderName = 'dspFree'
RemoteServer = scGpsDB
Left = 160
Top = 224
end
object dsGoods: TDataSource
DataSet = cds04
Left = 216
Top = 224
end
object cds05: TClientDataSet
Aggregates = <>
CommandText = 'select * from ST_OrderStatus'
Params = <>
ProviderName = 'dspFree'
RemoteServer = scGpsDB
Left = 264
Top = 224
end
object dsOrderStatus: TDataSource
DataSet = cds05
Left = 312
Top = 224
end
object scPetroQF: TSocketConnection
ServerGUID = '{2014CBFC-2953-46AE-813C-281A025D1089}'
ServerName = 'ETagDataServer.ETAGRDM'
Address = '127.0.0.1'
Left = 24
Top = 80
end
object cdsPetroQF: TClientDataSet
Aggregates = <>
CommandText =
'EXEC TaxiSheetBegin @OperId, @SheetId OUTPUT , @SheetCount OUTPU' +
'T '
PacketRecords = 10
Params = <
item
DataType = ftUnknown
ParamType = ptUnknown
end>
ProviderName = 'dspQuery'
RemoteServer = scPetroQF
Left = 24
Top = 128
end
object scPetroZP: TSocketConnection
ServerGUID = '{ECE6149D-8080-417D-8ECD-718678DE1BA7}'
ServerName = 'ZPDataServer.ZPRDM'
Address = '127.0.0.1'
Left = 352
Top = 24
end
object cdsPetroZP: TClientDataSet
Aggregates = <>
CommandText =
'EXEC TaxiSheetBegin @OperId, @SheetId OUTPUT , @SheetCount OUTPU' +
'T '
PacketRecords = 10
Params = <
item
DataType = ftUnknown
ParamType = ptUnknown
end>
ProviderName = 'dspQuery'
RemoteServer = scPetroZP
Left = 352
Top = 72
end
object scAuth: TSocketConnection
ServerGUID = '{847B9F2D-5D79-41FC-9005-53D59D9DBBCF}'
ServerName = 'AuthDataServer.AuthRDM'
Address = '61.144.40.113'
Left = 88
Top = 280
end
object cdsAuth: TClientDataSet
Aggregates = <>
CommandText =
'EXEC TaxiSheetBegin @OperId, @SheetId OUTPUT , @SheetCount OUTPU' +
'T '
PacketRecords = 10
Params = <
item
DataType = ftUnknown
ParamType = ptUnknown
end>
ProviderName = 'dspQuery'
RemoteServer = scAuth
Left = 176
Top = 280
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -