为了做一个登陆窗体,网上找了很多资料,都不满意。
自已动手做了一个,发现关闭登陆窗体后,主窗体总是要闪一下,也就是密码不对需要退出登陆窗体时,主窗体总是要弹出来显示一下再关闭,非常的不爽,翻遍网络没有哪个解决了这个问题。把登陆窗体设成主窗体,可以解决这个问题,但是用托盘控件就不行,真正的主窗体不会收到右下角的托盘。最后逼着自己来研究(整整搞了一天),终于解决了这个问题。代码只有几行,也确实搞笑,为了给初学者学习做登陆窗体机会,我在代码中加入了access数据库做密码验证,高手就不要下了,纯粹是骗分的,至于你信不信,我反正信了。
这个代码可以在delphi2009、delphi2010、delphi XE下运行通过。没有使用任何第三方控件。
这个代码初学者可以学习MD5的生成,这是标准的MD5加密;可以学习模态窗体的创建与释放;还可以学习一下数据库的连接与读取数据。
1