小型商店销售管理系统
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
目录
一.题目 1
二.功能 1
三.开发环境 1
四.数据字典 1
五.数据流图 2
六.E-R图 3
七.软件结构设计 4
八.部分模块源程序7
九.体会19
一.题目：
设计一个实用的小型商店销售管理系统
二.功能：
1.登记收入支出
2.统计每日或每周的销售情况，按规定格式打印销售报表
3.允许多种方式查询货物情况
4.按货物销售情况提前发出预报
三.开发环境
设计环境: windows xp
使用软件: microsoft visual foxbro 6.0
四.小型商店管理系统的数据字典
六.由数据流图和数据字典导出E-R图
七.软件结构设计 a.主页面
b.销售管理页面
进货商
进货记录
名称
生产日期
进货
库存
编号
名称
数量
种类
出库
销售
名称
数量
c.每日销售管理页面
d.每月销售管理系统
e.进货入库管理页面
f.每月进货管理页面
g.商品库管理页面
h.仓库管理页面
八.部分模块源程序
主页面
procedure Tfrm_main.FormCreate(Sender: TObject); begin
Application.CreateForm(Tdm,dm);
end;
procedure Tfrm_main.N3Click(Sender: TObject); var i:integer;
begin
for i:=0 to frm_main.MDIChildCount-1 do
begin
if frm_main.MDIChildren[i]=frm_out then
begin
frm_out.PageControl1.ActivePageIndex:=1;
exit;
end;
end;
application.CreateForm(Tfrm_out,frm_out);
frm_out.PageControl1.ActivePageIndex:=1;
end;
procedure Tfrm_main.N4Click(Sender: TObject);
var i:integer;
begin
for i:=0 to frm_main.MDIChildCount-1 do
begin
if frm_main.MDIChildren[i]=frm_out then
begin
frm_out.PageControl1.ActivePageIndex:=2;
exit;
end;
end;
application.CreateForm(Tfrm_out,frm_out);
frm_out.PageControl1.ActivePageIndex:=2;
end;
procedure Tfrm_main.ToolButton1Click(Sender: TObject);
begin
N2Click(Sender);
end;
procedure Tfrm_main.ToolButton2Click(Sender: TObject); begin
N3Click(Sender);
end;
procedure Tfrm_main.ToolButton3Click(Sender: TObject); begin
N4Click(Sender);
end;
procedure Tfrm_main.N6Click(Sender: TObject);
var i:integer;
begin
for i:=0 to frm_main.MDIChildCount-1 do
begin
if frm_main.MDIChildren[i]=frm_in then
begin
frm_in.PageControl1.ActivePageIndex:=0;
exit;
end;
end;
application.CreateForm(Tfrm_in,frm_in);
frm_in.PageControl1.ActivePageIndex:=0;
end;
procedure Tfrm_main.ToolButton4Click(Sender: TObject); begin
N6Click(Sender);
end;
procedure Tfrm_main.N7Click(Sender: TObject);
var i:integer;
begin
for i:=0 to frm_main.MDIChildCount-1 do
begin
if frm_main.MDIChildren[i]=frm_in then
begin
frm_in.PageControl1.ActivePageIndex:=1;
exit;
end;
end;
application.CreateForm(Tfrm_in,frm_in);
frm_in.PageControl1.ActivePageIndex:=1;
end;
procedure Tfrm_main.ToolButton5Click(Sender: TObject);