图 书 仓 库 管 理 系 统 第53页

edit1.text:='''';edit2.text:='''';edit1.setfocus;
end
else begin
with datamoduleform.keyquery do
begin
close;
sql.clear;
sql.add(''select * from key where keyname=:keyname'');
parameters.parambyname(''keyname'').value:=edit1.text;
open;
s:=fieldvalues[''keyno''];
end;
if s<>edit2.text  file://判断该用户名下的密码是否正确
then begin
messagedlg(''您所输入的密码不正确，请重新输入或按“取消”退出。'',
mtinformation,[mbok],0);
edit2.text:='''';edit2.setfocus;
end
else begin        file://从数据库中删除该用户
with datamoduleform.keyquery do
begin
close;
sql.clear;
sql.add(''delete from key where keyname=:keyname'');
parameters.parambyname(''keyname'').value:=edit1.text;
execsql;
end;

 << 上一页  [51] [52] [53] [54] [55] 下一页