4.3.2.3. 主界面设计
该系统提供的所有功能都放置在一个统一的界面中供用户选择,该界面称之为主界面。本系统的主界面采用了菜单交互方式,如图4.2所示。
图4.3.3 主界面
在此界面上还提供了4项功能,下面对其分别进行介绍。
4.3.2.4. 用户密码管理模块
用户密码修改界面如图4.3所示。该界面的所有功能都在相同的界面下操作,选择菜单对应的用户密码修改/修改密码命令,弹出以下界面。上述功能的代码设计如下:
图4.3.4 用户密码管理界面
(1)确定:对象 cmdOk 过程:Click If thisform.txt用户名.Value = \
MessageBox(\用户名不存在\提示\return Endif
If ALLTRIM(thisform.txtPwd.Value) != ALLTRIM(thisform.txt密码.Value) MessageBox(\密码不正确\提示\return Endif
If ALLTRIM(thisform.txtPwd1.Value) == \MessageBox(\请输入新密码\提示\return Endif
If ALLTRIM(thisform.txtPwd1.Value) != ALLTRIM(thisform.txtPwd2.Value) MessageBox(\新密码与确认密码不同\提示\return Endif
&&设置用户记录的密码
thisform.txt密码.Value = ALLTRIM(thisform.txtPwd1.Value) TableUpdate(.T.) &&保存缓冲区中的数据 release thisform &&关闭表单
MessageBox(\密码已经成功修改,请在下次登录时使用新密码\
(2)取消:对象 cmdCancel 过程 Click release thisform
4.3.2.5. 查询管理模块
查询管理模块界面如图4.5—4.6所示。这是系统的查询部分,是使用该系统的关键核心部分,里面涉及查询常用的三种方式,包括姓名、住址、联系方式查
询。上述功能的代码设计如下:
图4.3.5按姓名查询界面
对象:Command1(查询) 过程: Click
xm=allt(thisform.text1.value) loca for 姓名=xm
if.not.found( )
. messagebox(\查无此人\信息\thisform.refresh
对象: Command2(退出) 过程: Click thisform.release
图4.3.6按住址查询界面
对象:Command1(查询) 过程: Click xm=allt(thisform.text1.value) loca for 家庭地址=xm if.not.found( )
messagebox(\查无此人\信息\thisform.refresh
对象: Command2(退出) 过程: Click Thisform.release
图4.3.7按通讯方式查询界面
对象:Command1(查询) 过程: Click tx=allt(thisform.text1.value)
loca for 住宅电话=tx.or.手机=tx.or.办公电话=tx.or.小灵通=tx if.not.found( )
messagebox(\查无此人\信息\else
brow for 住宅电话=tx.or.手机=tx.or.办公电话=tx.or.小灵通=tx thisform.refresh endif
4.3.2.6. 系统退出管理模块
系统运行完成之后总要有关闭或退出模块以防止他人使用,为了用户的使用方便,该系统采用菜单交互式,即由用户选择文件/退出命令,退出系统。实现系统的关闭。界面如图4.7所示。
图4.3.6 系统退出管理窗口
4.3.2.7. 导入模块
该模块主要实现的功能是从文件中导入人员信息。通过函数void load()来实现,打开文件进行通讯录建立操作,通过移动指针将通讯录的信息记录在文件中。
4.4. 系统测试
图4.4.1 程序的开始主菜单页面
图4.4.2 程序的录入界面
图4.4.3 程序的查询菜单界面
图4.4.4 程序的显示界面