serverdb.dfm

SPServer.rar一个基于TCP/IP监听发送代码

object frmServerDB: TfrmServerDB
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 119
  Top = 14
  Height = 437
  VerticalOffset = 86
  Width = 600
  object ADOServerDB: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB;Use Procedure for Prepare=1;A' +
      'uto Translate=True;Packet Size=4096;Workstation ID=WWWWWW-HI;Use' +
      ' Encryption for Data=False;Tag with column collation when possib' +
      'le=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    BeforeDisconnect = ADOServerDBBeforeDisconnect
    OnConnectComplete = ADOServerDBConnectComplete
    Left = 24
    Top = 16
  end
  object aSvcType: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    TableName = 'SvcType'
    Left = 101
    Top = 16
  end
  object aqrSvcType: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    Filtered = True
    Parameters = <
      item
        Name = 'pSvcType'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'Select * from SvcType'
      'where SvcType=:pSvcType')
    Left = 172
    Top = 16
  end
  object aSvcContent: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    Filtered = True
    Parameters = <
      item
        Name = 'p_SvcTypeName'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'Select * from SvcContent'
      'where SvcType=:p_SvcTypeName')
    Left = 101
    Top = 259
  end
  object aqrRegister: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    Filtered = True
    Parameters = <
      item
        Name = 'p_SrcNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 11
        Value = Null
      end>
    SQL.Strings = (
      'select * from'
      'Register'
      'where SrcNo=:p_SrcNo')
    Left = 24
    Top = 103
  end
  object aRegister: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    AfterPost = aRegisterAfterPost
    AfterDelete = aRegisterAfterDelete
    TableName = 'Register'
    Left = 24
    Top = 222
  end
  object aDelRegister: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Filtered = True
    Parameters = <
      item
        Name = 'p_SrcNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 11
        Value = Null
      end>
    SQL.Strings = (
      'Delete from Register'
      'where SrcNo=:p_SrcNo')
    Left = 25
    Top = 60
  end
  object adeleteRegister: TADOStoredProc
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    ProcedureName = 'dP_Register;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@p_SrcNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 11
        Value = Null
      end>
    Prepared = True
    Left = 248
    Top = 128
  end
  object aqrRegister1: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Filtered = True
    Parameters = <
      item
        Name = 'p_SvcType'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'Select * from Register'
      'where SvcType=:p_SvcType')
    Left = 24
    Top = 168
  end
  object aRegCount: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    Filtered = True
    Parameters = <>
    SQL.Strings = (
      'Select Count(*) from Register')
    Left = 101
    Top = 160
    object aRegCountCOLUMN1: TIntegerField
      FieldName = 'COLUMN1'
      ReadOnly = True
    end
  end
  object atSvcContent: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    TableName = 'SvcContent'
    Left = 101
    Top = 302
  end
  object atLogin: TADOTable
    Connection = ADOServerDB
    CursorType = ctStatic
    TableName = 'Login'
    Left = 373
    Top = 380
  end
  object aqLogin: TADOQuery
    Connection = ADOServerDB
    CursorType = ctStatic
    Filtered = True
    Parameters = <
      item
        Name = 'pOptionID'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'pHand'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from Login'
      'where (Option_ID=:pOptionID)and'
      '      (Hand=:pHand)')
    Left = 372
    Top = 332
  end
  object dsr1: TDataSource
    DataSet = aRegister
    Left = 256
    Top = 8
  end
  object dsr2: TDataSource
    DataSet = atSvcContent
    Left = 303
    Top = 8
  end
  object dsr3: TDataSource
    DataSet = atLogin
    Left = 351
    Top = 8
  end
  object dsrRegister: TDataSource
    DataSet = aqryRegisterPhone
    Left = 256
    Top = 56
  end
  object aqryRegisterPhone: TADOQuery
    Connection = ADOServerDB
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Register'
      '')
    Left = 368
    Top = 56
  end
  object aUPSvcContent: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <
      item
        Name = 'p_SvcContent'
        Attributes = [paNullable, paLong]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 2147483647
        Value = Null
      end
      item
        Name = 'p_SvcType'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'Update SvcContent'
      'set'
      ' SvcContent=:p_SvcContent'
      ' where SvcType=:p_SvcType')
    Left = 102
    Top = 211
  end
  object aUpdateTry: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <
      item
        Name = 'p_Try'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'p_SrcNo'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 11
        Value = Null
      end>
    SQL.Strings = (
      'Update Register'
      'set Try=:p_Try'
      'where SrcNo=:p_SrcNo')
    Left = 172
    Top = 72
  end
  object aUpdateTryAll: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <>
    SQL.Strings = (
      'update Register'
      'set try=0'
      '')
    Left = 172
    Top = 192
  end
  object aInsertRegister: TADOStoredProc
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    ProcedureName = 'InsertNewRegster;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@p_SrcNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 11
        Value = Null
      end
      item
        Name = '@p_ChargeNo'
        Attributes = [paNullable]
        DataType = ftString
        Size = 11
        Value = Null
      end
      item
        Name = '@p_SvcType'
        Attributes = [paNullable]
        DataType = ftString
        Size = 11
        Value = Null
      end
      item
        Name = '@p_regDate'
        Attributes = [paNullable]
        DataType = ftString
        Size = 11
        Value = Null
      end>
    Prepared = True
    Left = 330
    Top = 128
  end
  object aScheduleSendData: TADOTable
    Connection = ADOServerDB
    CursorType = ctStatic
    TableName = 'ScheduleSendData'
    Left = 467
    Top = 375
  end
  object dsr4: TDataSource
    DataSet = aScheduleSendData
    Left = 399
    Top = 8
  end
  object aqryScheduleSendData: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'pFalg'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from ScheduleSendData'
      'where Falg=:pFalg')
    Left = 469
    Top = 423
  end
  object aUpScheduleSendData: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <
      item
        Name = 'pRecNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Update ScheduleSendData'
      'set Falg=0'
      'where No=:pRecNo')
    Left = 464
    Top = 326
  end
  object aUSvcContent: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <
      item
        Name = 'pSvcContent'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 255
        Value = Null
      end
      item
        Name = 'pSvcType'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'Update SvcContent'
      'set SvcContent=:pSvcContent'
      'where SvcType=:pSvcType')
    Left = 101
    Top = 347
  end
  object tblMessageLog: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'