图 书 仓 库 管 理 系 统 第51页

end;
5.7.3   用户注册窗体模块的实现
          
                         图5.9  用户注册窗体
procedure tkey3form.speedbutton1click(sender: tobject);
begin        file://用户注删窗口注删按钮事件
if (edit1.text='''')or(edit2.text='''')or(edit3.text='''')
then begin
messagedlg(''请输入完整的信息！'',mtinformation,[mbok],0);
edit1.setfocus;
end
else begin
if datamoduleform.keytable.locate(''keyname'',edit1.text,[])
       file://判断用户名是否存在,系统不允许用户名重复
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
with datamoduleform.keyquery do     file://在数据库中添加该用户

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