Y
yankk
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TFormPassw.BitBtn1Click(Sender: TObject);
var i:integer;
begin
if dlcs<3 then
begin
with ADOQuery1 do
begin
close;
sql.clear;
Sql.add('select * from operator where ( Ono=:cs1 )and (Passw=:cs2));
parameters.ParamByName('cs1').value:=strtoint(Edit1.Text);
parameters.ParamByName('cs2').value:=Edit2.text;
open;
end;
if ADOQuery1.RecordCount=0 then
begin
showmessage('对不起，您的用户名不存在或密码不正确！');
dlcs:=dlcs+1;
end
else
begin
showmessage('欢迎使用本系统!·');
end;
end
else
begin
showmessage('对不起，您没有使用本系统的权限！');
close;
end;
end;
这是一个验证用户号和密码的窗体，dlcs 是一个整形变量，代表密码或用户名错误的登录次数，dlcs〉=3时
就不让登录了。但是这个程序在第一次不对第二次登录时，显示“BOF或EOF中有一个是真，或前记录已被删除，说需操作要求一个当前纪录的错误，请高人指点迷津！！！！！