小型商店销售管理系统.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的不够熟悉。
有些功能没有实现,譬如收入支出部分没有实现。