mainunit.dfm

来自「CMPP2版短信平台行业版,运营商支持下400条/S」· DFM 代码 · 共 531 行 · 第 1/2 页

    Aggregates = <>
    Params = <>
    ProviderName = 'DSP1'
    Left = 352
    Top = 160
  end
  object Command_Update: TADOCommand
    Connection = ADOConn
    Parameters = <>
    Left = 384
    Top = 160
  end
  object StoredProc_MSG: TADOStoredProc
    Connection = ADOConn
    ProcedureName = 'CMPP2_RECEIVEMESSAGE;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg_Id'
        Attributes = [paNullable]
        DataType = ftLargeint
        Precision = 19
        Value = Null
      end
      item
        Name = '@Dest_Id'
        Attributes = [paNullable]
        DataType = ftString
        Size = 21
        Value = Null
      end
      item
        Name = '@Service_Id'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@TP_pid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@TP_udhi'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg_Fmt'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Src_terminal_Id'
        Attributes = [paNullable]
        DataType = ftString
        Size = 21
        Value = Null
      end
      item
        Name = '@Registered_Delivery'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg_Length'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg_Content'
        Attributes = [paNullable]
        DataType = ftString
        Size = 300
        Value = Null
      end>
    Left = 448
    Top = 160
  end
  object StoredProc_Report: TADOStoredProc
    Connection = ADOConn
    ProcedureName = 'CMPP2_RECEIVEREPORT;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg_Id'
        Attributes = [paNullable]
        DataType = ftLargeint
        Precision = 19
        Value = Null
      end
      item
        Name = '@Dest_Id'
        Attributes = [paNullable]
        DataType = ftString
        Size = 21
        Value = Null
      end
      item
        Name = '@Service_Id'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@TP_pid'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@TP_udhi'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg_Fmt'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Src_terminal_Id'
        Attributes = [paNullable]
        DataType = ftString
        Size = 21
        Value = Null
      end
      item
        Name = '@Registered_Delivery'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@Msg_Length'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@MT_Msg_Id'
        Attributes = [paNullable]
        DataType = ftLargeint
        Precision = 19
        Value = Null
      end
      item
        Name = '@Stat'
        Attributes = [paNullable]
        DataType = ftString
        Size = 8
        Value = Null
      end
      item
        Name = '@Submit_time'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@Done_time'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@Dest_terminal_Id'
        Attributes = [paNullable]
        DataType = ftString
        Size = 21
        Value = Null
      end
      item
        Name = '@SMSC_sequence'
        Attributes = [paNullable]
        DataType = ftLargeint
        Precision = 19
        Value = Null
      end>
    Left = 480
    Top = 160
  end
  object Command_Delete: TADOCommand
    Connection = ADOConn
    Parameters = <>
    Left = 416
    Top = 160
  end
  object ApplicationEvents_X: TApplicationEvents
    OnException = ApplicationEvents_XException
    Left = 248
    Top = 160
  end
  object Timer_CheckNet: TTimer
    Enabled = False
    Interval = 60000
    OnTimer = Timer_CheckNetTimer
    Left = 184
    Top = 192
  end
  object Query2: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 288
    Top = 200
  end
  object Query4: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 296
    Top = 280
  end
  object Query5: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 296
    Top = 328
  end
  object Query6: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 168
    Top = 104
  end
  object Query3: TADOQuery
    Connection = ADOConn
    Parameters = <>
    Left = 288
    Top = 240
  end
end