VB+SQL 登陆控制（正确答案给50分）

大体的思路就是在用户登录的那个表里面增加一个字段，类型是bit，设置一个标志位，如果这个用户登录了，则这个标志位置1，否则置零，然后再用户登录的过程中首先判断这个标志是否是1，如果是1的话，则提示已经登录，最好写个存储过程，这样比较方便，然后在用户退出的时候，再把这个标志位置0就可以啦。下面这个是些代码，希望对楼主有用。
CREATE PROC ProStatusOn   --创建登录存储过程
 @QQNumber VARCHAR(15)
AS
 BEGIN 
   DECLARE @QQStatus bit
   SELECT @QQStatus = (SELECT QQStatus FROM QQTime WHERE QQNumber = @QQNumber)
   IF @QQStatus = 1
     BEGIN
       PRINT '此用户已经登录！'
     END
   ELSE
     BEGIN
       UPDATE QQTime SET QQStatus =1 WHERE QQNumber = @QQNumber
       UPDATE QQTime SET QQStartime = getdate() WHERE QQNumber = @QQNumber
     END
 END
Go