图 书 仓 库 管 理 系 统 第52页

begin
close;
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 begin
if not datamoduleform.keytable.locate(''keyname'',edit1.text,[])
      file://判断用户名是否存在，用户名必须存在，才可以删除
then begin
messagedlg(''您所输入的用户名不存在，请重新输入或按“取消”退出。'',
mtinformation,[mbok],0);

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