tcpmod.dfm

delphi开发的基于 gprsd数据采集程序

object TcpModule: TTcpModule
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 748
  Top = 343
  Height = 458
  Width = 337
  object IdTCPClient1: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 0
    Host = '10.70.18.7'
    Port = 8080
    Left = 56
    Top = 80
  end
  object ADOQuery1: TADOQuery
    Parameters = <>
    Left = 64
    Top = 152
  end
  object ADOStoredProc1: TADOStoredProc
    Connection = ADOConnection1
    ProcedureName = 'DATA_CALC'
    Parameters = <
      item
        Name = 'APP_ID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'WELL_ID'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'COLLECT_TIME'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = Null
      end
      item
        Name = 'DATA_COUNT'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA1'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA2'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA3'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA4'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA5'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA6'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA7'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA8'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA9'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA10'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA11'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA12'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA13'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA14'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA15'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA16'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA17'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA18'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA19'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA20'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA21'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA22'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA23'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA24'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA25'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA26'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA27'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA28'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA29'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA30'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA31'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA32'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA33'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA34'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA35'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end
      item
        Name = 'DATA36'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 15
        Value = Null
      end>
    Left = 56
    Top = 216
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'OraOLEDB.Oracle'
    Left = 56
    Top = 296
  end
  object IdUDPServer1: TIdUDPServer
    Active = True
    Bindings = <>
    DefaultPort = 0
    OnUDPRead = IdUDPServer1UDPRead
    Left = 56
    Top = 24
  end
end