主题:帮帮忙啊
begin
timeid:=timeid+1;
adotable1.FieldByName('Name').AsString :=user.Text;
if(user.text=adotable1.fieldbyname('Name').asstring )
and (password.text=adotable1.fieldbyname('Mma').asstring)
then
begin
Modalresult:=mrOK;
end
else
begin
if timeid>3 then
begin
application.Terminate ;
end
else if user.text<>adotable1.FieldByName('Name').asstring then
begin
application.MessageBox('非法用户名,请输入正确的用户名!','用户名',
MB_OK+MB_ICONEXCLAMATION);
user.SetFocus;
end
else
begin
application.MessageBox('输入密码错误,请再输入一次','密码',
MB_OK+MB_ICONEXCLAMATION);
password.SetFocus;
end;
end
这是我的一个小系统的登陆里的'确定'按纽里的程序我运行的时候回出现如下的错误能帮我看看吗?谢谢!
project kaoqin.exe raised exception class EDatabaseError with message ‘ADOTable1:Aataset not in edit or insert mode’. Process stopped. Use Step or Run to continue.
timeid:=timeid+1;
adotable1.FieldByName('Name').AsString :=user.Text;
if(user.text=adotable1.fieldbyname('Name').asstring )
and (password.text=adotable1.fieldbyname('Mma').asstring)
then
begin
Modalresult:=mrOK;
end
else
begin
if timeid>3 then
begin
application.Terminate ;
end
else if user.text<>adotable1.FieldByName('Name').asstring then
begin
application.MessageBox('非法用户名,请输入正确的用户名!','用户名',
MB_OK+MB_ICONEXCLAMATION);
user.SetFocus;
end
else
begin
application.MessageBox('输入密码错误,请再输入一次','密码',
MB_OK+MB_ICONEXCLAMATION);
password.SetFocus;
end;
end
这是我的一个小系统的登陆里的'确定'按纽里的程序我运行的时候回出现如下的错误能帮我看看吗?谢谢!
project kaoqin.exe raised exception class EDatabaseError with message ‘ADOTable1:Aataset not in edit or insert mode’. Process stopped. Use Step or Run to continue.