Delphi程序功能的实现.pptx

;程序功能的实现;执行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。设置好用户名和密码后，单击“确定”按钮，系统判断第一次输入密码与确认密 码是否一致，如果一致，则将数据提交到数据 库，否则提示密码错误。如果系统在数据库中 没有发现有重复的用户名，则提示注册成功， 进