小型商店销售管理系统精选.doc

目录 一.题目 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; procedure Tfrm_main.ToolButton3Click(Sender: TObject); begin