图 书 仓 库 管 理 系 统 第50页

then begin
messagedlg(''请输入完整的信息。'',mtinformation,[mbok],0);
edit1.setfocus;
end
else begin
if not datamoduleform.keytable.locate(''keyno'',edit1.text,[])
then begin
messagedlg(''原密码输入错误，不能修改新密码！'',mtinformation,[mbok],0);
edit1.text:='''';edit2.text:='''';edit3.text:='''';edit1.setfocus;
end
else begin
if edit2.text<>edit3.text
then begin
messagedlg(''两次密码输入不同，请重新输入新密码！'',mtinformation,[mbok],0);
edit2.text:='''';edit3.text:='''';edit2.setfocus;
end
else begin         file://在数据库中修改密码
with datamoduleform.keyquery do
begin
close;   sql.clear;
sql.add(''update key set keyno=:keyno where keyname=:keyname'');
parameters.parambyname(''keyname'').value:=keyname;
parameters.parambyname(''keyno'').value:=edit2.text;
execsql;
messagedlg(''密码修改成功！'',mtinformation,[mbok],0);
key2form.close;
end; end; end; end;

 << 上一页  [41] [42] [43] [44] [45] [46] [47] [48] [49] [50]  ... 下一页  >>