smg_db.~dfm

来自「SPIG1.1.rar SPIG接口协议」· ~DFM 代码 · 共 229 行

object frmSMGDB: TfrmSMGDB
  OldCreateOrder = False
  Left = 178
  Top = 118
  Height = 409
  Width = 507
  object tblDeliver: TADOTable
    Connection = ADO
    CursorType = ctStatic
    TableName = 'Deliver'
    Left = 32
    Top = 8
  end
  object tblReport: TADOTable
    Connection = ADO
    TableName = 'Report'
    Left = 32
    Top = 72
  end
  object tblServerType: TADOTable
    Connection = ADO
    TableName = 'ServerType'
    Left = 32
    Top = 144
  end
  object qryDeliver: TADOQuery
    Connection = ADO
    Parameters = <>
    Left = 120
    Top = 8
  end
  object qryReport: TADOQuery
    Connection = ADO
    Parameters = <>
    Left = 120
    Top = 72
  end
  object qryServerType: TADOQuery
    Connection = ADO
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'pSPNumber'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'pServerType'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'select * from ServerType'
      'where (SPNumber=:pSPNumber)and(Server_Type=:pServerType)'
      'ORDER BY SPNumber')
    Left = 120
    Top = 144
  end
  object tblSubmit: TADOTable
    Connection = ADO
    TableName = 'Submit'
    Left = 32
    Top = 216
  end
  object qrySubmit: TADOQuery
    Connection = ADO
    Parameters = <>
    Left = 120
    Top = 216
  end
  object qryBind: TADOQuery
    Connection = ADO
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'pSPNumber'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'pUserName'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = Null
      end
      item
        Name = 'pPassWord'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = Null
      end>
    SQL.Strings = (
      'select * from Bind'
      'where (SPNumber=:pSPNumber)and'
      '           (UserName=:pUserName)and'
      '           (PassWord=:pPassWord)'
      'ORDER BY SPNumber')
    Left = 216
    Top = 8
  end
  object ADO: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=best#!@007;Persist Security Info=Tr' +
      'ue;User ID=best;Initial Catalog=SMGDB'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 312
  end
  object tblBind: TADOTable
    Connection = ADO
    TableName = 'Bind'
    Left = 216
    Top = 72
  end
  object UpTryAll: TADOQuery
    Connection = ADO
    Parameters = <
      item
        Name = '0'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'update Register'
      'set Try=:0')
    Left = 248
    Top = 248
  end
  object qryRegister: TADOQuery
    Connection = ADO
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'pSvcType'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'pSPNumber'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'select * from Register'
      'where (SvcType=:pSvcType)and'
      '      (SPNumber=:pSPNumber)'
      'Order by RecNo,SPNumber,SvcType')
    Left = 336
    Top = 248
  end
  object qrySvcContent: TADOQuery
    Connection = ADO
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'pSvcType'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'select * from SvcContent'
      'where SvcType=:pSvcType')
    Left = 416
    Top = 248
  end
  object qryScheduleSend: TADOQuery
    Connection = ADO
    CursorType = ctStatic
    Parameters = <
      item
        Name = '1'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select * from ScheduleSendData'
      'where Flag=:1'
      'Order by RecNo,SPNumber,SvcType,Flag')
    Left = 264
    Top = 168
  end
  object UpScheduleSend: TADOQuery
    Connection = ADO
    Parameters = <>
    SQL.Strings = (
      'Update ScheduleSendData'
      'set Flag=:0'
      'where RecNo=:pRecNo')
    Left = 360
    Top = 152
  end
end