- 1、本文档共56页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
;程序功能的实现;执行File→New→Form命令,在当前项目中添加一个Form窗体,将其Name属性设置为 LoginForm;将Caption属性设置为“用户登录”
。
在Form窗体中添加3个Labe组件,3个Edit组件和3个Button组件,设计界面如下图所示。;将“确认密码”Label组件和右边的Edit组件以及“确定”按钮的Visible属性值均设置为 False;将“用户密码”、“确认密码”右边的 Edit组件的PassWd属性均设置为“*”。
用户在登录时需要访问数据库,所以需要建立数据连接。执行File→New→Data Module命令,在项目中添加一个Data Module窗体,用于存放数据组件,将该窗体的Name属性设置为
DM。
在DM窗体中添加一个ADOConnection组件
,将其ConnectionString属性值设置为UDL文件
,将LoginPrompt属性设置为False;将Connected;属性设置为True。再在DM窗体中添加一个 ADOQuery组件和一个DataSource组件。将 ADOQuery组件的Name属性值设置为query, Connection属性设置为ADOConnection组件;将 DataSource组件的DataSet属性设置为query。
(5)按照步骤(1)的方法,在当前项目中添加两个Form窗体,分别命名为ManageForm和 UsrForm,分别作为管理员和用户操作界面,窗体的具体设置将在下文进行介绍。
2.代码实现
设计好“用户登录”界面后,接下来编写代码实现界面的功能。;登录
当用户单击“登录”按钮时,程序先判断用户名和密码是否为空,如果为空则提示输入用户名和密码,否则将用户输入的信息提交给数据库,程序根据数据库的返回值给出以下3种处理结果:
不存在:提示错误信息,建议注册。
密码不正确:提示密码错误,要求重新输入密码。
登录成功:根据用户类型打开相应的界面,并关闭登录窗口。;由于登录时需要查询数据库UsrInf表中的数据,所以需要利用DM窗体中的组件进行程序设计。同时,要根据用户的类型分别打开管理员窗体(ManageForm)和用户窗体(UsrForm)
,因此,需要在登录模块中声明DM窗体, ManageForm窗体和UsrForm窗体。参考代码如下:;MessageDlg(名不能为空。,mtWarning,[mbOK],0);
Edit1.SetFocus end
else if Edit2.Text = then begin
MessageDlg(密码不能为空。,mtWarning,[mbOK],0);
Edit2.SetFocus end
else begin
sqlstr := select * from UsrInf where UsrName = :iname and UsrPassWd = :ipasswd;
DM.query.Close; DM.query.SQL.Clear; DM.query.SQL.Add(sqlstr);;DM.query.Parameters.ParamByName(iname).Value := Edit1.Text;
DM.query.Parameters.ParamByName(ipasswd).Value := Edit2.Text;
DM.query.Open;
if DM.query.RecordCount = 0 then begin
MessageDlg(用户名不存在,请重新登录。 ,mtError,[mbOK],0);
Edit1.Text := ;
Edit2.Text := ; Edit1.SetFocus end
else begin;if DM.query.FieldByName(UsrType).Value = 0 then begin
Application.CreateForm(TManageForm,ManageForm); ManageForm.show;
LoginForm.Free end
else begin
Application.CreateForm(TUsrForm,UsrForm); UsrForm.Show;
LoginForm.Free; end;
end; end;
end;;2)注册
当单击“注册”按钮时,“确定”按钮、“确认密码”标签及其右边的Edit组件的Visible属性均为True。设置好用户名和密码后,单击“确定”按钮,系统判断第一次输入密码与确认密 码是否一致,如果一致,则将数据提交到数据 库,否则提示密码错误。如果系统在数据库中 没有发现有重复的用户名,则提示注册成功, 进入用户界面。否则提示重新输入用户名。
实
您可能关注的文档
- 会议云产品功能与成功案例.ppt
- 跨境电子商务运营实务高职全套完整教学课件.pptx
- 理学矿物与岩石.pptx
- 小学数学人教课标版三年级上册周长的计算 公开课.pptx
- 农学现代遗传学基因的概念和结构.pptx
- 五年级下册数学教学工作总结5篇.docx
- 小学语文二年级上册《浅水洼里的小鱼》1课件.pptx
- web2.0及其网络资源83.pptx
- 九年级思想品德教学计划上册 九年级思想品德教材优秀.docx
- 植物系《寂静的春天》经典科普读物导读课件.pptx
- 中国国家标准 GB/T 4797.3-2024环境条件分类 自然环境条件 第3部分:生物.pdf
- GB/T 4797.3-2024环境条件分类 自然环境条件 第3部分:生物.pdf
- 《GB/T 10395.28-2024农业机械 安全 第28部分:移动式谷物螺旋输送机》.pdf
- 中国国家标准 GB/T 10395.28-2024农业机械 安全 第28部分:移动式谷物螺旋输送机.pdf
- GB/T 10395.28-2024农业机械 安全 第28部分:移动式谷物螺旋输送机.pdf
- 高中数学学考复习优化练习20空间点、直线、平面之间的位置关系含答案.docx
- 刘静心 82003005 材加概论结课论文(2).pdf
- 社会实践登记表1.doc
- 刘静心 82003005 材加概论结课论文.docx
- 十三五全面二孩政策解读.ppt
文档评论(0)