设计流程如下：首先确定它是否是第一次使用。如果第一次使用，它需要设置一个新的用户名和密码。系统存储用户名和密码。如果不是第一次，它需要输入用户名和密码才能登录。
在Delphi开发环境，一个新的项目中，添加一个窗体Form1中添加项目；两按钮在Form1，决定的，另一个是取消；然后两个文本框edituser和editpass增加1，分别。用户名和密码输入框，定义全局变量的形式层面：tregistry.and EGF添加注册表接口的使用。
wsz_iffirst添加功能来确定它是否是首次使用；增加的过程wsz_saveuse，保存用户名和密码；添加功能wsz_checkuser判断用户名和密码是否正确。然后在Form1 formshow事件和确定按钮事件三功能和工艺要求，满足设计要求。
确定是否第一次使用
wsz_iffirst：布尔函数；
VaR
SUser：字符串；
SPass：字符串；
开始
结果：=假；
RegF：= tregistry.create；
RegF.RootKey：= hkey_local_machine；
RegF.OpenKey（软件微软 whh726
SUser：= regf.readstring（用户）；
SPass：= regf.readstring（通）；
如果（（（长度（SUSER）结果：=真；
RegF。自由；
结束；
确定用户名和密码是否正确
功能wsz_checkuser（权限：字符串；mypass：字符串）：布尔；
VaR
SUser：字符串；
SPass：字符串；
开始
结果：=假；
RegF：= tregistry.create；
RegF.RootKey：= hkey_local_machine；
RegF.OpenKey（软件微软 whh726
SUser：= regf.readstring（用户）；
SPass：= regf.readstring（通）；
如果（SUSER =权限）和（意思= mypass）然后
结果：=真；
RegF。自由；
结束；
保存用户名和密码
程序wsz_saveuser（权限：字符串；mypass：字符串）；
开始
RegF：= tregistry.create；
RegF.RootKey：= hkey_local_machine；
RegF.OpenKey（软件微软 whh726
regf.writestring（用户
regf.writestring（通
RegF。自由；
结束；
取消按钮
TWszLoginForm.BitBtnCloseClick（发件人：TObject）程序；
开始
关闭；
结束；
肯定/按钮
TWszLoginForm.BitBtnYesClick（发件人：TObject）程序；
VaR
Suser：字符串；
Spass：字符串；
开始
Suser：=装饰（edituser。文本）；
Spass：=装饰（editpass。文本）；
如果（长度（SUSER）开始
application.messagebox（用户名和密码必须输入！
mb_ok + mb_iconinformation）；
edituser.setfocus；
出口;
结束；
如果wsz_iffirst然后
开始
处理首次登录用户名和密码
如果Application.MessageBox（
您第一次使用这个软件。请记住您的用户名和密码，以便下次登录。您现在要进入系统吗
系统提示
mb_okcancel + mb_iconquestion = IDOK然后）
开始
保存
wsz_saveuser（SUSER，SPASS）；
终点
其他的
开始
edituser.setfocus；
出口;
结束；
其他的结束
开始
如果不wsz_checkuser（SUSER，SPASS）然后
开始
Application.MessageBox (sorry, the user name and password input is incorrect!
系统提示
mb_ok + mb_iconinformation）；
edituser.setfocus；
出口;
结束；
结束；
全局变量
gb_wsz_user：= SUSER；
gb_wsz_pass：=快乐；
关闭；
结束；
窗体的显示事件
TWszLoginForm.FormShow（发件人：TObject）程序；
开始
如果wsz_iffirst然后
开始
application.messagebox（
你第一次使用这个软件，你可以随意输入用户名和密码。
系统提示
mb_ok + mb_iconinformation）；
结束；
结束；
