delphi 实现登录窗口。从SQLSERVER中读取账号和密码

来源：百度知道 编辑：UC知道 时间：2024/06/25 16:47:18
这个是点击按钮后实现的登录效果。但是编译后程序运行登录的时候出错：检测到错误类：EdatabaseError,错误信息：'qry1:field'用户名'not found .进程中止

我得代码如下：

procedure TForm2.btn1Click(Sender: TObject);
begin
if (edt1.Text='')or(edt2.text='')then
showmessage('用户名或者密码不能为空')
else if

qry1.FieldByName('用户名').AsString<>edt1.Text then

showmessage('用户密码不正确')

end;
end.

帮忙看看哪里错拉

qry1必须先从数据库中查到数据才行

...
else
begin
qry1.Close;
qry1.SQL.Clear;
qry1.SQL.Add('select * from 表名');
qry1.Open;
if qry1.FieldByName('用户名').AsString<>edt1.Text then
ShowMessage('');
end;