问个简单的数据库问题

Question

从段代码是 登陆验证
if (UserEdit.Text='') or (PassEdit.Text='') then
   begin              // ='请正确填写注册用户信息!'
     Label3.Caption:=Translate('String0','请正确填写注册用户信息!');
     Exit;
   end;                                                                                                                //(MD5Print(MD5String(PassEdit.Text)))
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from member where member='+quotedstr(UserEdit.Text)+' and pass='+quotedstr(MD5Print(MD5String(PassEdit.Text))));
adoquery1.open;
if adoquery1.recordcount=0 then
  begin
  Label3.Caption:=Translate('String0','用户名或密码错误!');
    Exit;
  end;我现在在数据库中加入了一列 VIP
想用来判断登陆的用户是否是VIP 用户 
如果VIP的值为真是VIP用户 
   运行检测更新代码
如果不是VIP用户择直接登陆我想知道 怎么样来获取 登陆用户的VIP的值

Answer 1

if ADOQuery1.FieldByName('VIP').AsBoolean then
  showmessage('欢迎VIP用户')
else
  showmessage('不是VIP用户');

Answer 2

看你的数据中存的是什么数据类型，如果是布尔型的直接用楼上的就行。
如果是其它的，字符用.asstring，数字用 .asinteger来取值就可以

Answer 3

if (UserEdit.Text='') or (PassEdit.Text='') then 
  begin              // ='请正确填写注册用户信息!' 
    Label3.Caption:=Translate('String0','请正确填写注册用户信息!'); 
    Exit; 
  end;                                                                                                                //(MD5Print(MD5String(PassEdit.Text))) 
adoquery1.close; 
adoquery1.sql.clear; 
adoquery1.sql.add('select * from member where member='+quotedstr(UserEdit.Text)+' and pass='+quotedstr(MD5Print(MD5String(PassEdit.Text)))); 
adoquery1.open; 
if adoquery1.recordcount.isempty
then
  begin 
  Label3.Caption:=Translate('String0','用户名或密码错误!'); 
    Exit; 
  end
else
  begin
    if adoquery1.fieldbyname('vip').asstring='VIP'
          {或adoquery1.fieldbyname('vip').asboolean=true}
     then  {检查更新代码}
    else  {显示主窗体}
  end;