serverdb.dfm

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

    TableName = 'MessageLog'
    Left = 29
    Top = 296
  end
  object rqyMessageLog: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <>
    SQL.Strings = (
      'select * from '
      ' MessageLog')
    Left = 29
    Top = 392
  end
  object tblConnAddress: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    TableName = 'ConnAddress'
    Left = 232
    Top = 336
    object tblConnAddressNetHandle: TIntegerField
      FieldName = 'NetHandle'
    end
    object tblConnAddressHand: TIntegerField
      FieldName = 'Hand'
    end
    object tblConnAddressIPAddress: TStringField
      FieldName = 'IPAddress'
      FixedChar = True
      Size = 18
    end
    object tblConnAddressUnitName: TStringField
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = tblConnUnitName
      LookupKeyFields = 'Hand'
      LookupResultField = 'UnitName'
      KeyFields = 'Hand'
      Lookup = True
    end
    object tblConnAddressDateTime: TDateTimeField
      FieldName = 'DateTime'
    end
  end
  object delConnAddress: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <
      item
        Name = 'pHandle'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'delete from'
      ' ConnAddress'
      'where '
      'NetHandle=:pHandle')
    Left = 315
    Top = 432
  end
  object updConnAddress: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <
      item
        Name = 'pHand'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'pIPAddress'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 18
        Value = Null
      end
      item
        Name = 'pDateTime'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'pSPNumber'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'pHandle'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Update ConnAddress'
      'set Hand=:pHand,'
      '    IPAddress=:pIPAddress,'
      '    DateTime=:pDateTime,'
      '    SPNumber=:pSPNumber '
      'where NetHandle=:pHandle')
    Left = 312
    Top = 383
  end
  object tblConnUnitName: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    TableName = 'ConnUnitName'
    Left = 312
    Top = 337
    object tblConnUnitNameHand: TIntegerField
      FieldName = 'Hand'
    end
    object tblConnUnitNameUnitName: TStringField
      FieldName = 'UnitName'
      FixedChar = True
      Size = 255
    end
  end
  object delMessageLog: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <
      item
        Name = 'pNetHandle'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'pHand'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'pUserID'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'pDateTime'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      'delete MessageLog'
      'where '
      '(NetHandle=:pNetHandle)and'
      '(Hand=:pHand)and'
      '(UserID=:pUserID)and'
      '(DateTime=:pDateTime)')
    Left = 29
    Top = 339
  end
  object delAllConnAddress: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <>
    SQL.Strings = (
      'delete ConnAddress')
    Left = 232
    Top = 384
  end
  object tbResult: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    TableName = 'Result'
    Left = 101
    Top = 392
  end
  object tbDeliver: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    TableName = 'Deliver'
    Left = 157
    Top = 395
  end
  object tblSendMonthFee: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    TableName = 'SendMonthFee'
    Left = 232
    Top = 432
  end
  object qrySendMonthFee: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'p_Falg'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from SendMonthFee'
      'where Falg=:p_Falg')
    Left = 576
    Top = 378
  end
  object updSendMonthFee: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <
      item
        Name = 'pFeeDateTime'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'pRecNo'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update SendMonthFee'
      'set FeeDateTime=:pFeeDateTime,'
      '    Falg=0'
      'where RecNo=:pRecNo')
    Left = 576
    Top = 426
  end
  object upLogin: TADOQuery
    Connection = ADOServerDB
    Parameters = <
      item
        Name = 'NewUser'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'NewPassWord'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end
      item
        Name = 'pUser'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 128
        Value = Null
      end
      item
        Name = 'pHand'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'pPassWord'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      'update Login'
      'set Option_ID=:NewUser,'
      '    PassWord=:NewPassWord'
      'where (User=:pUser)and'
      '      (Hand=:pHand)and'
      '      (PassWord=:pPassWord)')
    Left = 376
    Top = 430
  end
  object updSendMonthFeeAll: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <
      item
        Name = '1'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update SendMonthFee'
      ' set Falg=:1')
    Left = 576
    Top = 326
  end
  object tblTranClient: TADOTable
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    TableName = 'TranClient'
    Left = 368
    Top = 224
  end
  object qryTranClient: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <
      item
        Name = 'pFalg'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end>
    SQL.Strings = (
      'select * from TranClient'
      'where Falg=:pFalg')
    Left = 368
    Top = 279
  end
  object updTranClient: 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 TranClient'
      'set Falg='#39'0'#39
      'where RecNo=:pRecNO')
    Left = 440
    Top = 280
  end
  object qrytemp: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'pprono'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'select * from temp'
      'where prono=:pprono')
    Left = 424
    Top = 128
  end
  object uptemp: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Server_DB'
    Parameters = <
      item
        Name = 'pzcdate'
        Attributes = [paNullable]
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'pzcnumb'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 11
        Value = Null
      end
      item
        Name = 'pprono'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'update temp'
      'set ZCDATE=:pzcdate,'
      '    ZCNUMB=:pzcnumb,'
      '    ZC=1'
      'where prono=:pprono')
    Left = 424
    Top = 176
  end
end