小型商店销售管理系统
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
目录
一•题目1二•功能1三•开发环境1四•数据字典1五•数据流图2六・E・R图3七•软件结构设计4八•部分模块源程序7九•体会19
目:
设il 一个实用的小型商店销售管理系统
二.功能:
1.登记收入支出
2.统il•每日或每周的销售情况，按规左格式打印销售报表
3.允许多种方式查询货物情况
4.按货物销售情况提前发岀预报
三•开发环境
设计环境：windows xp
使用软件：microsoft visual foxbro 6. 0
四•小型商店管理系统的数据字典
数据数据类型数据的描述
商品代号数据项{学号‘string, 10}单位数据项{单位,string, 10}
单价数据项{单价,num, 10}
库存数虽数据项{库存数量,num, 15}
供货商名称数据项｛供货商名称.string,15｝地址数据项｛地址，说明：供货商的地
址,string,20｝
电话数据项｛电话，说明：供货商电
话,num, 10｝
供货商数据结构｛供货商,｛供货商编号•供货
商名称，地址，电话｝｝五•数据流图
数据流图和数据字典导出
七.软件结构设计
a.主页面
b.销售管理页面
销售管理
沮勰鬪每日竝I每月皓&
商品代导厂J 甬品名「
诳货厂凉:r
1 岀版日期：| 单衍：1 数鱼：厂生产厂笏
确毎1
当日销售情况
c・每日销售管理页面
e.进货入库管理页面
f.每月进货管理页面
g・商品库管理页面
h.仓库管理页面
八.部分模块源程序
主页面
procedure Tfrm_main. FormCreate(Sender： TObject); begin
Appliestion. CreateForm(Tdm, dm);
end;
procedure Tfrm_main. N3Click(Sender: TObject);
var i：integer;
begin
for i：=0 to frm_main. MDIChildCountT do
begin
begin frm_out. PageControll. ActivePageIndex:=1; exit;
end;
end;
application. CreateFonn(Tfrm_out, fnn_otit); frm_out. PageControll. ActivePageIndex:=l;
end;
procedure Tfnn_main.N4Click(Sender: TObject);
var i:integer;
begin
for i:=0 to frm_main. MDIChildCountT do begin
if frm_main. MDIChildren[i]=frm_out then begin frm_out. PageControll. ActivePageIndex:=2; exit;
end;
application. CreateForm(Tfrm_out, frm_out);
frm_out. PageControll. ActivePageIndex:=2;
end;
begin
N2Click(Sender);
end;
procedure Tfrm_main. ToolButton2Click(Sender: TObject); begin
N3C1ick(Sender);
end;
procedure Tfim_main. ToolButton3Click(Sender: TObject); begin
N4C1i ck(Sender);
end;
procedure Tfrm_main.N6Click(Sender: TObject);
var i:integer;
begin
for i:=0 to fnn_niain. MDICh订dCount-1 do
begin
if frm_main. MDIChildren[i]=frm_in then
begin
frm_in. PageControll. ActivePageIndex:=O;
exit;
end;
end;
application. CreateForm(Tfrm_in, frm_in);
frm_in. PageControll. ActivePageIndex:=O;
end;
procedure Tfrm_main. ToolButton4Click(Sender: TObject);
begin
N6Click(Sender);
end;
procedure Tfim_main.N7Click(Sender: TObject); var i:integer;
begin
for i:=0 to frm_main. MDIChildCountT do
begin
if fnn_main. MDIChildren[i]=frm_in then
begin
frm_in. PageControlL ActivePageIndex：=l;
exit;
end;
end;
application. CreateFoirm(Tfnn_in, frm_in);
frm_in. PageControlL ActivePageIndex:=l; end;
begin
N7C1ick(Sender);
end;
procedure Tfrm_main.N9Click(Sender: TObject);