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

目录一.题目 1二.功能 1三.开发环境 1四.数据字典 1 五.数据流图 2六.E-R图 3七.软件结构设计 4八.部分模块源程序 7九.体会 19一.题目：设计一个实用的小型商店销售管理系统二.功能：1. 登记收入支出2. 统计每日或每周的销售情况，按规定格式打印销售报表3. 允许多种方式查询货物情况4. 按货物销售情况提前发出预报 三.开发环境设计环境: 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.MDIChildreni=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.MDIChildreni=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.MDIChildreni=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.MDIChildreni=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);begin N7Click(Sender);end;procedure Tfrm_main.N9Click(Sender: TObject);var i:integer;begin for i:=0 to frm_main.MDIChildCount-1 do begin if frm_main.MDIChildreni=frm_book then begin frm_book.PageControl1.ActivePageIndex:=0; exit; end; end; application.CreateForm(Tfrm_book,frm_book); frm_book.PageControl1.ActivePageIndex:=0;end;procedure Tfrm_main.N10Click(Sender: TObject);var i:integer;begin for i:=0 to frm_main.MDIChildCount-1 do begin if frm_main.MDIChildreni=frm_book then begin frm_book.PageControl1.ActivePageIndex:=1; exit; end; end; application.CreateForm(Tfrm_book,frm_book); frm_book.PageControl1.ActivePageIndex:=1;end;procedure Tfrm_main.ToolButton6Click(Sender: TObject);begin N9Click(Sender);end;procedure Tfrm_main.ToolButton7Click(Sender: TObject);begin N10Click(Sender);end;end.销售管理模块for i:=0 to frm_main.MDIChildCount-1 do begin if frm_main.MDIChildreni=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.MDIChildreni=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.MDIChildreni=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.MDIChildreni=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);begin N7Click(Sender);end;procedure Tfrm_main.N9Click(Sender: TObject);var i:integer;begin for i:=0 to frm_main.MDIChildCount-1 do begin if frm_main.MDIChildreni=frm_book then begin frm_book.PageControl1.ActivePageIndex:=0; exit; end; end; application.CreateForm(Tfrm_book,frm_book); frm_book.PageControl1.ActivePageIndex:=0;end;procedure Tfrm_main.N10Click(Sender: TObject);var i:integer;begin for i:=0 to frm_main.MDIChildCount-1 do begin if frm_main.MDIChildreni=frm_book then begin frm_book.PageControl1.ActivePageIndex:=1; exit; end; end; application.CreateForm(Tfrm_book,frm_book); frm_book.PageControl1.ActivePageIndex:=1;end;procedure Tfrm_main.ToolButton6Click(Sender: TObject);begin N9Click(Sender);end;procedure Tfrm_main.ToolButton7Click(Sender: TObject);begin N10Click(Sender);end;procedure Tfrm_main.ToolBar1Click(Sender: TObject);beginend;procedure Tfrm_main.N1Click(Sender: TObject);beginend;九.体会 在这次设计我有以下几点体会：通过使用VB编程，使人真正体会到了可视化编程的优点，自己动手开发小规模的应用系统，学会一种规范化的编程方法，使我加深了对软件的理解。学以致用，学用结合，这既是学习理论知识目的，也是检验学习的最好方法。在整个设