⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 udm.dfm

📁 a voice guide client ,it is the second part of voice guide center
💻 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 + -