二、需求分析
本程序设计的是一个经营影碟租借的管理系统。经过简单的扩充就可以成为一个完整的影碟和客户的管理程序，下面来说一下本程序的各个模块功能及VF的结构。 内容来自www.paper51.com
三、系统功能
这一款完全适合VCD/DVD光盘音像出租销售店傻瓜式日常租借管理软件。VCD出租、销售、还碟、丢碟处理，灵活的连续剧处理，加上独待的租金计算法，可以满足VCD出租、销售客户的需要。方便的拼音五笔码自动生成，拼音、五笔码、编码、连续剧搜索。能自动计算押金、租金、会员剩余天数与可观看影片部数等等数据；能对会员及光盘信息进行方便有效的科学管理；界面设计大方、简洁、实用；操作简单方便。使用用易VCD音像租借销管理系统立刻可以使您的出租销售业务摆脱繁重混乱的手工时代，进入科学高效的信息管理时代！
paper51.com
本程序由 登陆密码、主窗口、菜单等组成。而主窗口菜单又由，客户信息、音像信息、借片\归还、数据与统计、管理维护、退出这几个部分组成子菜单数据管理。 http://www.paper51.com
四、系统流程图
主窗口：主窗口是本软件的核心，百分之九二的功能代码都在这里实现，主窗口的左上方是由菜单组组成的，实现了功能的切换和数据的处理。欢迎界面写上了设计人和系统名。
paper51.com
本程序的流程图： copyright paper51.com
paper51.com
五、数据库设计系统功能
paper51.com
登陆密码： http://www.paper51.com
对“确定”按钮的Click事件的代码为： copyright paper51.com
restore frommima.mem additive paper51.com
if ma==alltrim(thisform.text1.value)
copyright paper51.com
rele wind xgmm 内容来自www.paper51.com
do form ksjm
copyright paper51.com
else 内容来自www.paper51.com
=messagebox("密码输入错误",64,"提示")
http://www.paper51.com
do form mima
内容来自www.paper51.com
endif paper51.com
release windows mima
内容来自论文无忧网 www.paper51.com
对“取消”按钮的Click事件的代码为：
http://www.paper51.com
release windows mima
内容来自www.paper51.com
clear events paper51.com
密码登陆界面图如下：
http://www.paper51.com
paper51.com
l 主窗口： 内容来自论文无忧网 www.paper51.com
http://www.paper51.com
****************表单form1的load事件代码为：********************
copyright paper51.com
public i http://www.paper51.com
i=0
paper51.com
***********************Init事件代码为：*************************** paper51.com
do "影碟租借管理系统/main.mpr"withthis, .T. paper51.com
(如下图) copyright paper51.com
paper51.com
以上是进入的初始界面：当你进入以后，可以看见菜单栏上的几个菜单，客户信息、音像信息、借片\归还、数据与统计、管理维护、退出 http://www.paper51.com
l 浏览客户记录如下图所示: 内容来自www.paper51.com
http://www.paper51.com
****************表单form1的load事件代码为：********************
内容来自www.paper51.com
public m.no1 paper51.com
m.no1=1
内容来自www.paper51.com
if reccount()>0 copyright paper51.com
gotop 内容来自论文无忧网 www.paper51.com
thisform.refresh
paper51.com
thisform.command1.enabled=.f.
内容来自www.paper51.com
thisform.command2.enabled=.f. 内容来自论文无忧网 www.paper51.com
thisform.command4.enabled=.t. paper51.com
thisform.command5.enabled=.t. 内容来自论文无忧网 www.paper51.com
endif
http://www.paper51.com
if reccount()>0
paper51.com
skip -1 内容来自www.paper51.com
ifbof()
http://www.paper51.com
go top http://www.paper51.com
endif
内容来自www.paper51.com
thisform.refresh 内容来自论文无忧网 www.paper51.com
ifrecno()=1 内容来自论文无忧网 www.paper51.com
thisform.command1.enabled=.f.
内容来自论文无忧网 www.paper51.com
thisform.command2.enabled=.f. http://www.paper51.com
thisform.command4.enabled=.t. http://www.paper51.com
thisform.command5.enabled=.t. paper51.com
else
内容来自论文无忧网 www.paper51.com
thisform.command1.enabled=.t. paper51.com
thisform.command2.enabled=.t. paper51.com
thisform.command4.enabled=.t. copyright paper51.com
thisform.command5.enabled=.t. http://www.paper51.com
endif 内容来自论文无忧网 www.paper51.com
endif copyright paper51.com
