小型商店销售管理系统.docx
《小型商店销售管理系统.docx》由会员分享，可在线阅读，更多相关《小型商店销售管理系统.docx（16页珍藏版）》请在冰点文库上搜索。
小型商店销售管理系统
一.题目1
二.功能1
三.开发环境1
四.数据字典1
五.数据流图2
六.E-R图3
七.软件结构设计4
八.部分模块源程序7
九.体会19
一.题目：
设计一个实用的小型商店销售管理系统
二.功能：
1.登记收入支出
2.统计每日或每周的销售情况，按规定格式打印销售报表
3.允许多种方式查询货物情况
4.按货物销售情况提前发出预报
三.开发环境
设计环境:
windowsxp
使用软件:
microsoftvisualfoxbro6.0
四.小型商店管理系统的数据字典
数据
数据类型
数据的描述
商品代号
数据项
{学号,string,10}
单位
数据项
{单位,string,10}
单价
数据项
{单价,num,10}
库存数量
数据项
{库存数量,num,15}
供货商名称
数据项
{供货商名称,string,15}
地址
数据项
{地址,说明:
供货商的地址,string,20}
电话
数据项
{电话,说明:
供货商电话,num,10}
供货商
数据结构
{供货商,{供货商编号.供货商名称,地址,电话}}
五.数据流图
进货
库存
销售
数据录入
销售管理系统
进货信息
供应商信息
销售
库存
联系方式式商编号
六.由数据流图和数据字典导出E-R图
进货商
进货记录
名称
生产日期
进货
库存
编号
名称
数量
种类
出库
销售
名称
数量
七.软件结构设计
a.主页面
b.销售管理页面
c.每日销售管理页面
d.每月销售管理系统
e.进货入库管理页面
f.每月进货管理页面
g.商品库管理页面
h.仓库管理页面
八.部分模块源程序
主页面
procedureTfrm_main.FormCreate（Sender:
TObject）;
begin
Application.CreateForm（Tdm,dm）;
end;
procedureTfrm_main.N3Click（Sender:
TObject）;
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_outthen
begin
frm_out.PageControl1.ActivePageIndex:
=1;
exit;
end;
end;
application.CreateForm（Tfrm_out,frm_out）;
frm_out.PageControl1.ActivePageIndex:
=1;
end;
procedureTfrm_main.N4Click（Sender:
TObject）;
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_outthen
begin
frm_out.PageControl1.ActivePageIndex:
=2;
exit;
end;
end;
application.CreateForm（Tfrm_out,frm_out）;
frm_out.PageControl1.ActivePageIndex:
=2;
end;
procedureTfrm_main.ToolButton1Click（Sender:
TObject）;
begin
N2Click（Sender）;
end;
procedureTfrm_main.ToolButton2Click（Sender:
TObject）;
begin
N3Click（Sender）;
end;
procedureTfrm_main.ToolButton3Click（Sender:
TObject）;
begin
N4Click（Sender）;
end;
procedureTfrm_main.N6Click（Sender:
TObject）;
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_inthen
begin
frm_in.PageControl1.ActivePageIndex:
=0;
exit;
end;
end;
application.CreateForm（Tfrm_in,frm_in）;
frm_in.PageControl1.ActivePageIndex:
=0;
end;
procedureTfrm_main.ToolButton4Click（Sender:
TObject）;
begin
N6Click（Sender）;
end;
procedureTfrm_main.N7Click（Sender:
TObject）;
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_inthen
begin
frm_in.PageControl1.ActivePageIndex:
=1;
exit;
end;
end;
application.CreateForm（Tfrm_in,frm_in）;
frm_in.PageControl1.ActivePageIndex:
=1;
end;
procedureTfrm_main.ToolButton5Click（Sender:
TObject）;
begin
N7Click（Sender）;
end;
procedureTfrm_main.N9Click（Sender:
TObject）;
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_bookthen
begin
frm_book.PageControl1.ActivePageIndex:
=0;
exit;
end;
end;
application.CreateForm（Tfrm_book,frm_book）;
frm_book.PageControl1.ActivePageIndex:
=0;
end;
procedureTfrm_main.N10Click（Sender:
TObject）;
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_bookthen
begin
frm_book.PageControl1.ActivePageIndex:
=1;
exit;
end;
end;
application.CreateForm（Tfrm_book,frm_book）;
frm_book.PageControl1.ActivePageIndex:
=1;
end;
procedureTfrm_main.ToolButton6Click（Sender:
TObject）;
begin
N9Click（Sender）;
end;
procedureTfrm_main.ToolButton7Click（Sender:
TObject）;
begin
N10Click（Sender）;
end;
end.
销售管理模块
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_outthen
begin
frm_out.PageControl1.ActivePageIndex:
=1;
exit;
end;
end;
application.CreateForm（Tfrm_out,frm_out）;
frm_out.PageControl1.ActivePageIndex:
=1;
end;
procedureTfrm_main.N4Click（Sender:
TObject）;
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_outthen
begin
frm_out.PageControl1.ActivePageIndex:
=2;
exit;
end;
end;
application.CreateForm（Tfrm_out,frm_out）;
frm_out.PageControl1.ActivePageIndex:
=2;
end;
procedureTfrm_main.ToolButton1Click（Sender:
TObject）;
begin
N2Click（Sender）;
end;
procedureTfrm_main.ToolButton2Click（Sender:
TObject）;
begin
N3Click（Sender）;
end;
procedureTfrm_main.ToolButton3Click（Sender:
TObject）;
begin
N4Click（Sender）;
end;
procedureTfrm_main.N6Click（Sender:
TObject）;
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_inthen
begin
frm_in.PageControl1.ActivePageIndex:
=0;
exit;
end;
end;
application.CreateForm（Tfrm_in,frm_in）;
frm_in.PageControl1.ActivePageIndex:
=0;
end;
procedureTfrm_main.ToolButton4Click（Sender:
TObject）;
begin
N6Click（Sender）;
end;
procedureTfrm_main.N7Click（Sender:
TObject）;
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_inthen
begin
frm_in.PageControl1.ActivePageIndex:
=1;
exit;
end;
end;
application.CreateForm（Tfrm_in,frm_in）;
frm_in.PageControl1.ActivePageIndex:
=1;
end;
procedureTfrm_main.ToolButton5Click（Sender:
TObject）;
begin
N7Click（Sender）;
end;
procedureTfrm_main.N9Click（Sender:
TObject）;
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_bookthen
begin
frm_book.PageControl1.ActivePageIndex:
=0;
exit;
end;
end;
application.CreateForm（Tfrm_book,frm_book）;
frm_book.PageControl1.ActivePageIndex:
=0;
end;
procedureTfrm_main.N10Click（Sender:
TObject）;
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_bookthen
begin
frm_book.PageControl1.ActivePageIndex:
=1;
exit;
end;
end;
application.CreateForm（Tfrm_book,frm_book）;
frm_book.PageControl1.ActivePageIndex:
=1;
end;
procedureTfrm_main.ToolButton6Click（Sender:
TObject）;
begin
N9Click（Sender）;
end;
procedureTfrm_main.ToolButton7Click（Sender:
TObject）;
begin
N10Click（Sender）;
end;
procedureTfrm_main.ToolBar1Click（Sender:
TObject）;
begin
end;
procedureTfrm_main.N1Click（Sender:
TObject）;
begin
end;
九.体会
在这次设计我有以下几点体会：
通过使用VB编程，使人真正体会到了可视化编程的优点，自己动手开发小规模的应用系统，学会一种规范化的编程方法，使我加深了对软件的理解。
学以致用，学用结合，这既是学习理论知识目的，也是检验学习的最好方法。
在整个设计，是学生综合运用所学知识解决实际问题能力的考查。
这次设计不仅使我了解了VB在数据库方面编程的概要，更让我知道了计算机的变成秘诀在于严密的思考与仔细的推敲，只有这样，才会有一个完善的软件生成。
在此，我能够依据实际情况以及课堂上所学习的知识，应用到自己的实际工作，帮助解决工作过程中的问题，对实施方法程序有深刻理解，在数据库设计方面，编程技术方面有了一定的进步。
通过这一系列工作使我系统地掌握这个学期来所学的专业知识，并基本掌握了开发一个应用软件的能力。
2、存在的问题
小型商店管理系统虽然可以完成基本的设备管理功能，但由于个人对VB的不够熟悉。
有些功能没有实现，譬如收入支出部分没有实现。
升级会员 