图 书 仓 库 管 理 系 统 第49页

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
keyname:=edit1.text;
keyform.hide;
mainform.show;mainform.windowstate:=wsmaximized;
end; end; end;
end;
§5.7  用户管理功能的实现
5.7.1   用户管理主窗体
5.7.2   密码修改窗体模块的实现
          procedure tkey2form.speedbutton1click(sender: tobject);
begin          file://密码修改窗口修改按钮事件
if (edit1.text='''')or(edit2.text='''')or(edit3.text='''')

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