1、小型商店销售管理系统一.题目 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单价数据项单价,
2、num,10库存数量数据项库存数量,num,15供货商名称数据项供货商名称,string,15地址数据项地址,说明:供货商的地址,string,20电话数据项电话,说明:供货商电话,num,10供货商数据结构供货商,供货商编号.供货商名称,地址,电话五.数据流图进货库存销售数据录入销售管理系统进货信息供应商信息销售库存联系方式式商编号六.由数据流图和数据字典导出E-R图进货商进货记录名称生产日期进货库存编号名称数量种类出库销售名称数量七.软件结构设计a.主页面b.销售管理页面c.每日销售管理页面d.每月销售管理系统e.进货入库管理页面f.每月进货管理页面g.商品库管理页面h.仓库管理页面八.部
3、分模块源程序主页面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;
4、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; en
5、d; 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: T
6、Object);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.PageContr
7、ol1.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;
8、 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_ma
9、in.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 fr
10、m_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.ToolButton7Cl
11、ick(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
12、 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 T
13、frm_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:
14、=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);en
15、d;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;proce
16、dure 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
17、.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; applica
18、tion.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);begine
19、nd;procedure Tfrm_main.N1Click(Sender: TObject);beginend;九.体会 在这次设计我有以下几点体会：通过使用VB编程，使人真正体会到了可视化编程的优点，自己动手开发小规模的应用系统，学会一种规范化的编程方法，使我加深了对软件的理解。学以致用，学用结合，这既是学习理论知识目的，也是检验学习的最好方法。在整个设计，是学生综合运用所学知识解决实际问题能力的考查。这次设计不仅使我了解了VB在数据库方面编程的概要，更让我知道了计算机的变成秘诀在于严密的思考与仔细的推敲，只有这样，才会有一个完善的软件生成。在此，我能够依据实际情况以及课堂上所学习的知识，应用到自己的实际工作，帮助解决工作过程中的问题，对实施方法程序有深刻理解，在数据库设计方面，编程技术方面有了一定的进步。通过这一系列工作使我系统地掌握这个学期来所学的专业知识，并基本掌握了开发一个应用软件的能力。2、存在的问题小型商店管理系统虽然可以完成基本的设备管理功能，但由于个人对VB的不够熟悉。有些功能没有实现，譬如收入支出部分没有实现。
