1 / 11
文档名称:

医药销售管理系统.doc

格式:doc   大小:241KB   页数:11页
下载后只包含 1 个 DOC 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

医药销售管理系统.doc

上传人:aluyuw1 2018/2/24 文件大小:241 KB

下载得到文件列表

医药销售管理系统.doc

相关文档

文档介绍

文档介绍:商场服装销售管理系统
课程设计目的:随着我国市场经济蓬勃发展,计算机在各个行业的应用越来越广,而在销售行业的应用就更能提高工作效率,于是就编制了这个商场服装销售管理系统.
系统结构图:本系统共6个部分,5个完整的功能模块。
商场销售管理系统
退出系统
系统维护
报表查询
信息管理
销售管理
进货管理
进货
用户管理
销售
销售查询
客户管理
退出界面
财务报表
服装查询
关于系统
系统设计:
数据库设计:
2)菜单设计:
3)表单设计:
验证的表单check
登录中的程序是:
locate for 用户名=alltrim()
if not eof()
if =密码

DO d:\商场服装销售管理系统\
="d:\商场服装销售管理系统\bba25"
else
messagebox("密码错误",0,"")
endif
else
messagebox("用户名错误",0,"")
endif
程序中主表单
修改客户的表单:
打印报表的表单:
介绍系统的表单
用户操作的表单
销售的表单
Text3的interactive 中的程序
SELECT , ;
FROM yp!kh INNER JOIN yp!xs;
INNER JOIN yp!yp ;
ON = ;
ON = ;
WHERE = into array b
a(i,1)=
a(i,2)=
a(i,6)=date()
for j=1 to 2
a(i,3+j)=b(j)
endfor
确定按钮中的程序
insert into xs from array a
select * from xs into cursor temp
select temp
zap
insert into temp from array a
do while not eof()
update yp set 库存=库存- where =
skip
enddo
销售查询表单
查询中的程序:
a=alltrim()
if not empty(a)
cap=ctod(a)
="select * from xs where 销售日期=cap"
endif
b=alltrim()
if not empty(b)
cap=b
="select * from xs where 药品编号=cap"
endif
c=alltrim()
if not empty(c)
cap=c
="select * from xs where 客户编号=cap"
endif
进货表单
添加中的程序
select yp
locate for 药品编号=
if not eof()
replace 库存量 with 库存量+ ,入库日期 with date()
else
insert into yp values (,,,,,,,date())
endif
药品操作表单
设计心得:
在我的指导老师的悉心指导下,我才能完成如此宏大的工程,在设计的过程中才发现我在VFP的许多方面还不是很理解,在我遇到困难时,我的老师都给了我耐心而细致的讲解,有时老师不顾休息时间,帮助我查资料,可以说没有老师的帮助,就没有这个系统。
通过这个设计,使我们更好的理解了VFP在解决现实生活中的作用。
最后再次感谢我们的老师。
课程设计教材及主要参考资料:
(1)《Visual Foxpro 程序设计