出错提示 capability not supported 错在哪啊？？？ 原代码

Question

end;
  end;;;;;;;;;;;;;;;;;;
end;

Answer 1

执行没问题。可是我在运行是输入用户名和密码时 ，提示  capability not supported   

Answer 2

执行没问题。可是我在运行是输入用户名和密码时 ，提示  capability not supported

Answer 3

if  Locate('password',Trim(Pass_edit.Text),[]) then //[]缺少参数填入
loCaseInsensitive
或
loPartialKey

Answer 4

看看这篇Borland自己的文章：http://community.borland.com/article/0,1410,25183,00.html
Handling the "Capability not supported" error

Answer 5

begin
 if Trim(edit1.Text) = '' then
 begin
   Application.MessageBox('对不起，请输入用户名再进行登录','提示',mb_ok + mb_IconInformation);
   Exit;
 end;
 with query do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from login ');//where user ='''+trim(name_edit.text)+'''');
    PrePare;
    Open;
    if Not (Locate('user',Trim(edit1.Text),[])) then
    begin
      Application.MessageBox('提示：用户名不存在,请重新输入','提示',mb_ok + mb_iconinformation);//Pchar
      edit1.Clear;
      pass_edit.Clear;
      edit1.SetFocus();
      Exit;
    end;
    if  Locate('password',Trim(Pass_edit.Text),[]) then
    begin
       dl := True;
      //Form1.Close;
       form2.show;
      //主窗体打开并提示登录成功；
    end  else
    begin
      Application.MessageBox('提示：密码不正确，请重新输入','提示',MB_OK + MB_Iconinformation);//中文提示啊
      pass_edit.Clear;
      pass_edit.SetFocus;
      exit;
    end;
  end;
一定行！！！！！