原创力文档- 1、本文档共19页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
小型商店销售管理系统
目录
一.题目 1
二.功能 1
三.开发环境 1
四.数据字典 1
五.数据流图 2
六.E-R图 3
七.软件结构设计 4
八.部分模块源程序 7
九.体会 19
一.题目：
设计一个实用的小型商店销售管理系统
二.功能：
登记收入支出
统计每日或每周的销售情况，按规定格式打印销售报表
允许多种方式查询货物情况
按货物销售情况提前发出预报
三.开发环境
设计环境: windows xp
使用软件: microsoft visual foxbro 6.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.仓库管理页面
八.部分模块源程序
主页面
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;
procedur
文档评论（0）