|
3.3 系统用户管理模块设计 系统用户管理模块主要包括用户的添加和密码修改两个子模块。主要实现管理员对用户的管理。 paper51.com 当需要添加新的管理员的时候，管理员可以进入添加新的管理员用户界面，输入需要添加的用户的用户名和密码，用户名不能和数据库中已有的用户名相同，两次输入的密码必须一致，然后点击添加按钮，即可完成对管理员用户的添加，添加用户设计界面如图4： http://www.paper51.com paper51.com 图4系统用户添加界面 paper51.com 实现功能部分关键代码如下： http://www.paper51.com If username.Text = "" Then ‘判断用户名是否为空 paper51.com MsgBox "用户名不能为空！",vbOKOnly 内容来自www.paper51.com Exit Sub copyright paper51.com End If copyright paper51.com ‘判断用户两次输入的密码是否相同 paper51.com If password.Text <>checkpassword.Text Then 内容来自论文无忧网 www.paper51.com
MsgBox "两次输入密码不同！",vbOKOnly 内容来自论文无忧网 www.paper51.com password.SetFocus paper51.com
End If http://www.paper51.com 系统用户管理模块为管理员用户提供了修改密码的功能，用户必须输入正确的旧密码和两次输入的新密码相同才能完成对现有用户密码的修改，其设计界面如图5所示： 内容来自www.paper51.com 内容来自www.paper51.com 图5系统用户密码修改界面 copyright paper51.com 实现功能关键代码如下： 内容来自论文无忧网 www.paper51.com ‘判断两次输入的密码是否相同 http://www.paper51.com
If password.Text <>checkpassword.Text Then 内容来自www.paper51.com
MsgBox "两次输入密码不同",vbOKOnly paper51.com password.SetFocus 内容来自论文无忧网 www.paper51.com Else http://www.paper51.com
‘判断用户旧密码是否输入正确 内容来自www.paper51.com If Oldpassword.Text <> objRS.Fields(1).Value Then paper51.com
MsgBox "原密码不对", vbOKOnly http://www.paper51.com objRS.Close http://www.paper51.com
CloseDB 内容来自www.paper51.com ‘如果用户输入正确的旧密码和新密码，提示用户密码修改成功 内容来自论文无忧网 www.paper51.com objRS.Fields(1).Value = Trim(password.Text) copyright paper51.com
objRS.Update ‘更新数据库 内容来自www.paper51.com objRS.Close 内容来自论文无忧网 www.paper51.com CloseDB copyright paper51.com MsgBox "用户密码已修改", vbOKOnly ‘提示用户密码修改成功提示框 内容来自论文无忧网 www.paper51.com Unload Me 内容来自www.paper51.com
End If http://www.paper51.com 3.4 汽车信息管理模块设计 内容来自论文无忧网 www.paper51.com 汽车信息管理模块主要实现管理员对汽车信息的管理工作，提供方便快捷的操作。盖模块主要包括四个子模块,其主要功能是对车站的汽车信息进行添加,修改,删除操作。四个子模块之间的层次关系如图6： 内容来自www.paper51.com
paper51.com 图6汽车信息管理模块关系图 内容来自www.paper51.com
在此模块的设计过程中,使用了MSFlexGrid控件来显示汽车信息,使用ShowTitle和loadData两个函数来初始化MSFlexGrid控件，加载后就在窗口显示出长途汽车站所有汽车的相关信息。主要包括汽车的编号，汽车的型号，购买时间，使用时间，座位数量，有无电视，有无空调和备注信息。管理员可以通过该窗口了解到所有汽车的信息。以下将具体介绍各个功能的实现。 copyright paper51.com 3.4.1添加汽车信息子模块 copyright paper51.com 在长途汽车站的运营过程中，添加新的汽车信息是一件很平常的事情。在添加汽车信息子模块的设计时候,使用text文本框添加汽车信息,包括添加汽车编号,汽车类型,购买日期，使用时间，座位个数，有无电视，有无空调和备注信息，当用户按要求填写了相应的文本框之后点击添加按钮,将启动cmd_OK_Click事件，将添加的汽车信息放入数据库表中。设计界面如图7： paper51.com copyright paper51.com 图7添加汽车信息界面 内容来自论文无忧网 www.paper51.com 3.4.2修改汽车信息子模块 内容来自论文无忧网 www.paper51.com 修改汽车信息时，当用户选定MSFlexGrid控件中的一组记录时，其相应的信息就会显示在修改栏中，将指定记录附给修改栏中各个文本框使得用户可以对汽车的所有信息进行修改。对指定记录进行修改的代码片段如下： paper51.com Private Subcmd_edit_Click() ‘修改信息按钮 http://www.paper51.com
DimSelectedRowIndex As Integer copyright paper51.com SelectedRowIndex =FGridDatatable.Row ‘选中需要修改的那一行 http://www.paper51.com CurrentBus =FGridDatatable.TextMatrix(SelectedRowIndex, 1) 内容来自论文无忧网 www.paper51.com frm_editbusinfo.Show 1 copyright paper51.com
End Sub paper51.com |