原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VF专周报告(销售管理系统)
VisualFoxPro专周
——销售管理系统
实
验
报
告
指导老师：
班 级：
学 号：
姓 名：
时 间： 2009年12月31日
实验目的：
熟悉Visual FoxPro的操作环境，数据表格的设计 通过一个完整的程序开发，让我们掌握、巩固一下所学知识，同时发现自己的不足，通过查阅资料，寻求帮助，解决自己的问题，提升自己的能力，让我们对vf有更深入的了解和认识。
实验要求：
制作一个销售管理系统，包括登陆、注册、修改密码、主菜单、数据查询、数据处理、数据统计、数据输出、退出几个模块。数据库表中包含合同管理表和用户表。合同管理表包含：合同编号、甲方代表、甲方电话、乙方代表、完成情况、开户银行、交货时间、交货地点、结算方式、所属地区、签订日期等字段，用户表包含：合同编号、用户名、密码等字段。数据查询中有按签订日期、合同编号、任意条件查询，数据处理包含查询当前记录，修改记录，删除记录，输入新记录等操作，数据统计包括区域统计、金额统计，数据输出用报表，按单合同、按完成情况和所有记录的输出。最后把所有表单就、
实验环境：
Windows xp 和 Visual FoxPro
四、程序的总体框架图:
五、表的结构：
合同管理表：
字段名 合同编号 甲方名称 开户银行 甲方电话 甲方代表 乙方代表 鉴定日期 合同金额 交货时间 交货地点 结算方式 所属地区 完成情况 类型 C C C C C C D N D C C C C
用户表:
字段名 合同编号 用户名 密码 类型 C C C 部分模块的流程图：
登陆：
注册：
数据处理：
数据查询：
对程序的具体分析：
登陆：
用户名：edit1、密码：edit2、权限：Combo1
use 用户表
Locate for 用户名=thisform.edit1.value
if found()
Locate for 密码=alltrim(thisform.edit2.value)
if found()
if 权限=管理员 and 权限=alltrim(thisform.Combo1.value)
MessageBox(登录成功,48,提示)
do form 管理员主菜单
Thisform.release
else
if 权限=用户 and 权限=alltrim(thisform.Combo1.value)
MessageBox(登录成功,48,提示)
do form 用户主菜单
Thisform.release
else
MessageBox(权限错误,48,提示)
endif
endif
else
MessageBox(密码错误,48,提示)
endif
else
MessageBox(用户名不存在,48,提示)
endif
Use
注册：
用户名：Text1、密码：Text2、合同编号：Text3、权限：combo1
thisform.Text1.setfocus
If!empty(thisform.Text1.value).and.!empty(thisform.Text2.value) and !empty(thisform.Text3.value)
Locate for 用户名=alltrim(thisform.Text1.value)
if .not.found()
insert into 用户表( 用户名,合同编号,密码,权限) values (thisform.Text1.value,thisform.Text3.Value,thisform.Text2.Value,bo1.Value)
MessageBox(注册成功,48,提示)
Do form 登陆
Thisform.release
else
MessageBox(该用户名已存在,48,提示)
endif
else
MessageBox(请输入完整信息,48,提示)
endif
数据处理：
合同编号：Text1
文档评论（0）