sqldata.dfm

乐都SQL版传奇全套代码,绝对可编译

object DataModule_ID: TDataModule_ID
  OldCreateOrder = False
  Left = 547
  Top = 393
  Height = 222
  Width = 301
  object ADOConnectionID: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=503264;Persist Security Info=True;U' +
      'ser ID=sa;Initial Catalog=Woool2005;Data Source=LXH'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 8
  end
  object ADOQueryID: TADOQuery
    Connection = ADOConnectionID
    Parameters = <
      item
        Name = 'Name'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT ACCOUNT, PASSWORD, ErrorCount, ActionTick'
      'FROM D_ACCOUNT'
      'WHERE (ACCOUNT=:Name)and(DELETED = 0)')
    Left = 120
    Top = 8
  end
  object ADOStoredProc_ADDACCOUNT: TADOStoredProc
    Connection = ADOConnectionID
    ProcedureName = 'ACCOUNT_add_ID;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@ACCOUNT'
        Attributes = [paNullable]
        DataType = ftString
        Size = 11
        Value = Null
      end
      item
        Name = '@PASSWORD'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@USERNAME'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@IDCARD'
        Attributes = [paNullable]
        DataType = ftString
        Size = 18
        Value = Null
      end
      item
        Name = '@PHONENUMBER'
        Attributes = [paNullable]
        DataType = ftString
        Size = 14
        Value = Null
      end
      item
        Name = '@QUIZ1'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ANSWER1'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@EMAIL'
        Attributes = [paNullable]
        DataType = ftString
        Size = 40
        Value = Null
      end
      item
        Name = '@QUIZ2'
        Attributes = [paNullable]
        DataType = ftString
        Size = 20
        Value = Null
      end
      item
        Name = '@ANSWER2'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = Null
      end
      item
        Name = '@BIRTHDAY'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@MOBILE'
        Attributes = [paNullable]
        DataType = ftString
        Size = 13
        Value = Null
      end>
    Left = 16
    Top = 64
  end
  object ADOStoredProc_UpDate: TADOStoredProc
    Connection = ADOConnectionID
    ProcedureName = 'ACCOUNT_UPDATE;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@ACCOUNT'
        Attributes = [paNullable]
        DataType = ftString
        Size = 11
        Value = Null
      end
      item
        Name = '@PASSWORD'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = Null
      end
      item
        Name = '@ERRORCOUNT'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end
      item
        Name = '@ACTIONTICK'
        Attributes = [paNullable]
        DataType = ftInteger
        Precision = 10
        Value = Null
      end>
    Left = 200
    Top = 8
  end
  object ADOStoredProc_GETACCOUNT: TADOStoredProc
    Connection = ADOConnectionID
    ProcedureName = 'ACCOUNT_GET;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@ACCOUNT'
        Attributes = [paNullable]
        DataType = ftString
        Size = 14
        Value = Null
      end>
    Prepared = True
    Left = 168
    Top = 80
  end
end