基于VFP公司客户员工关系管理系统
减小字体
增大字体第五章 系统详细设计
程序按照三个主要管理功能进行组织，其中借书和还书由于经常使用，单独列出来。下面我们按照操作顺序对程序的操作、界面的源程序进行详细说明。
5.1系统登陆界面：
双击图标运行程序以后，就可以看到程序的登录界面。需要通过系统管理验证，即输入正确的密码进行系统登陆，本系统默认的密码为system。当然，用户可以在系统登录时为了防止系统密码的泄露而可以进行对密码的及时修改和更新。
代码如下：
command1.click(确认)：
IF (N>2)
=MESSAGEBOX("口令三次输入错误,不能使用本系统",48,"信息提示")
THISFORM.CONT=.F.
THISFORM.RELEASE
ELSE
IF ALLTRIM(THISFORM.PASS)==ALLTRIM(THISFORM.TEXT1.VALUE)
THISFORM.CONT=.T.
THISFORM.RELEASE
ELSE
=MESSAGEBOX("口 令 不 正 确, 重 新 输 入",48,"信息提示")
THISFORM.TEXT1.VALUE=SPACE(10)
N=N+1
THISFORM.TEXT1.SETFOCUS
ENDIF
ENDIF
5．2系统主界面：
在系统登录成功之后，就会看到系统的主界面如下所示：
在本系统主界面中，我们可以看到一个MDI窗体，用户在使用时只需要点击鼠标左键就可以进入相应的功能选项，快捷而方便，从这个窗体上可以清楚地看到本系统所具备的三个主要主要功能，即客户数据录入，客户数据查询及系统维护三大功能模块。
5.3客户信息录入：
本应用模块的主要功能是实现对客户个人信息的录入系统操作，如编号，姓名，性别，客户类型等基本操作。从而完成本系统的借阅者的个人信息管理。
代码如下：
page1.activate:
SET DELETE OFF
THISFORM.PAGEFRAME1.PAGE1.IMAGE1.VISIBLE=.F.
SELECT KH
COUNT TO CURJLS FOR !DELETED()
COUNT TO CURDEL FOR DELETED()
GO TOP
THISFORM.JLS=CURJLS
THISFORM.DELJLS=CURDEL
THISFORM.DISP()
THISFORM.PAGEFRAME1.PAGE1.REFRESH
5.4客户信息查询：
本功能模块是本系统的查询功能模块，用户可以在本模块上进行按条件（单条件或组合条件）进行查询，也可以按照具体相同属性的客户进行排序操作，并将排序后的结果进行打印操作。
代码如下：
command2.click(重新设置)：
THISFORM.PAGEFRAME1.PAGE2.TEXT1.VALUE=""
THISFORM.PAGEFRAME1.PAGE2.TEXT2.VALUE=""
THISFORM.PAGEFRAME1.PAGE2.OP1.VALUE=0
THISFORM.PAGEFRAME1.PAGE2.COMBO1.VALUE=""
THISFORM.PAGEFRAME1.PAGE2.COMBO2.VALUE=""
THISFORM.PAGEFRAME1.PAGE2.TEXT1.SETFOCUS()
Command1.click(确定)
SELECT KH
EXPS=".T. "
IF NOT EMPTY(THISFORM.PAGEFRAME1.PAGE2.TEXT1.VALUE)
EXPS=EXPS+" AND '"+ALLTRIM(THISFORM.PAGEFRAME1.PAGE2.TEXT1.VALUE)+"'$BH"
ENDIF
IF NOT EMPTY(THISFORM.PAGEFRAME1.PAGE2.TEXT2.VALUE)
EXPS=EXPS+" AND '"+ALLTRIM(THISFORM.PAGEFRAME1.PAGE2.TEXT2.VALUE)+"'$XM"
ENDIF
DO CASE
CASE THISFORM.PAGEFRAME1.PAGE2.OP1.VALUE=1
EXPS=EXPS+" AND XB='男'"
CASE THISFORM.PAGEFRAME1.PAGE2.OP1.VALUE=2
EXPS=EXPS+" AND XB='女'"
ENDCASE
IF NOT EMPTY(THISFORM.PAGEFRAME1.PAGE2.COMBO1.VALUE)
EXPS=EXPS+" AND ZW='"+ALLTRIM(THISFORM.PAGEFRAME1.PAGE2.COMBO1.VALUE)+"'"
ENDIF
IF NOT EMPTY(THISFORM.PAGEFRAME1.PAGE2.COMBO2.VALUE)
EXPS=EXPS+" AND LX='"+ALLTRIM(THISFORM.PAGEFRAME1.PAGE2.COMBO2.VALUE)+"'"
ENDIF
IF !ALLTRIM(EXPS)==".T. "
SET FILTER TO &EXPS
ENDIF
COUNT TO REC
IF REC=0
=MESSAGEBOX("指定的条件没有选中任何客户!",48,"信息提示")
ENDIF
GO TOP
THISFORM.PAGEFRAME1.PAGE2.GRID1.REFRESH
Command3.click(排序确定)
SELECT KH
SEL=THISFORM.PAGEFRAME1.PAGE2.OPTIONGROUP1.VALUE
DO CASE
CASE SEL=1
INDEX ON BH TO TEMPIDX
CASE SEL=2
INDEX ON XM TO TEMPIDX
CASE SEL=3
INDEX ON XB TO TEMPIDX
CASE SEL=4
INDEX ON ZW TO TEMPIDX
CASE SEL=5
INDEX ON LX TO TEMPIDX
CASE SEL=6
INDEX ON DW TO TEMPIDX
ENDCASE
GO TOP
THISFORM.PAGEFRAME1.PAGE2.GRID1.REFRESH
Command4.click(打印客户表)
SELECT KH
RECBH=RECNO()
COUNT TO ZS
GO TOP
IF ZS=0
=MESSAGEBOX("没有选择任何要打印的客户,不能打印!",48,"信息提示")
RETURN
ELSE
COND=FILTER()
IF EMPTY(COND)
COND=".T."
ENDIF
SET FILTER TO !EMPTY(TAG) AND &COND
COUNT TO REC
IF REC=0
=MESSAGEBOX("没有选择任何要打印的客户,不能打印!",48,"信息提示")
ELSE
REPORT FORM KH PREVIEW
ENDIF
SET FILTER TO &COND
GO RECBH
ENDIF
5.5系统维护：
一个完整的应用系统，必须要能够具备适当的系统维护功能，以防系统出现故障、机器出现故障等现象。在这里，有几个实用的功能，一是系统密码修改功能，以防止系统的密码泄露之后，管理员能够及时地进行密码更新，以防系统的资料被别人窃取和修改。另一个实用的功能是系统的客户资料的及时备份和恢复。
代码如下：
Command1.click(密码修改确认)
PASS=THISFORM.PAGEFRAME1.PAGE3.CONTAINER1.TEXT2.VALUE
SAVE TO PASS ALL LIKE PASS
用户数据转出：
用户数据转入：
数据重新编号：
本模块的作用是将客户的编号按照需要进行重新编号，由小到大排序。
以上内容只是毕业设计作品的部分资料介绍,如果了解更多详情请联系客服QQ:57510459
购买帮助>>
Tags：
作者：佚名
- 好的评价 如果您觉得此文章好，就请您
0%(0) 
- 差的评价 如果您觉得此文章差，就请您
0%(0) 
中查找“基于VFP公司客户员工关系管理系统”更多相关内容
中查找“基于VFP公司客户员工关系管理系统”更多相关内容评论内容只代表网友观点，与本站立场无关！
评论摘要(共 0 条，得分 0 分，平均 0 分)
查看完整评论