then beginmessagedlg(''请输入完整的信息。'',mtinformation,[mbok],0);edit1.setfocus;endelse beginif not datamoduleform.keytable.locate(''keyno'',edit1.text,[])then beginmessagedlg(''原密码输入错误，不能修改新密码！'',mtinformation,[mbok],0);edit1.text:='''';edit2.text:='''';edit3.text:='''';edit1.setfocus;endelse beginif edit2.text<>edit3.textthen beginmessagedlg(''两次密码输入不同，请重新输入新密码！'',mtinformation,[mbok],0);edit2.text:='''';edit3.text:='''';edit2.setfocus;endelse begin file://在数据库中修改密码with datamoduleform.keyquery dobeginclose; 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;
end;5.7.3 用户注册窗体模块的实现 图5.9 用户注册窗体procedure tkey3form.speedbutton1click(sender: tobject);begin file://用户注删窗口注删按钮事件if (edit1.text='''')or(edit2.text='''')or(edit3.text='''')then beginmessagedlg(''请输入完整的信息！'',mtinformation,[mbok],0);edit1.setfocus;endelse beginif datamoduleform.keytable.locate(''keyname'',edit1.text,[]) file://判断用户名是否存在,系统不允许用户名重复then beginmessagedlg(''用户名已存在，请输入新的用户名和密码！'',mtinformation,[mbok],0);edit1.text:='''';edit2.text:='''';edit3.text:='''';edit1.setfocus;endelse beginif edit2.text<>edit3.textthen beginmessagedlg(''您输入的两个密码不相同，请重新输入！'',mtinformation,[mbok],0);edit2.text:='''';edit3.text:='''';edit2.setfocus;endelse beginwith datamoduleform.keyquery do file://在数据库中添加该用户
beginclose;sql.clear;sql.add(''insert into key values(:keyname,:keyno)'');parameters.parambyname(''keyname'').value:=edit1.text;parameters.parambyname(''keyno'').value:=edit2.text;execsql;end;messagedlg(''新用户添加成功，您可以继续添加用户，或按“取消”退出。'',mtinformation,[mbok],0);edit1.text:='''';edit2.text:='''';edit3.text:='''';edit1.setfocus;end; end; end;end;5.7.4 用户注销窗体模块的实现 图5.10 用户注销窗体procedure tkey4form.speedbutton1click(sender: tobject);var s:string;begin file://用户注销窗口注销按钮事件if (edit1.text='''')or(edit2.text='''')then messagedlg(''请输入完整的信息！'',mtinformation,[mbok],0)else beginif not datamoduleform.keytable.locate(''keyname'',edit1.text,[]) file://判断用户名是否存在，用户名必须存在，才可以删除then beginmessagedlg(''您所输入的用户名不存在，请重新输入或按“取消”退出。'',mtinformation,[mbok],0);
edit1.text:='''';edit2.text:='''';edit1.setfocus;endelse beginwith datamoduleform.keyquery dobeginclose;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 beginmessagedlg(''您所输入的密码不正确，请重新输入或
