目录一•题目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 甬品名「诳货厂凉:r1 岀版日期：| 单衍：1 数鱼：厂生产厂笏确毎1当日销售情况c・每日销售管理页面e.进货入库管理页面f.每月进货管理页面g・商品库管理页面h.仓库管理页面八.部分模块源程序主页面procedure Tfrm_main. FormCreate(Sender： TObject); beginAppliestion. CreateForm(Tdm, dm);end;procedure Tfrm_main. N3Click(Sender: TObject);var i：integer;beginfor i：=0 to frm_main. MDIChildCountT dobeginbegin 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;beginfor i:=0 to frm_main. MDIChildCountT do beginif 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;beginN2Click(Sender);end;procedure Tfrm_main. ToolButton2Click(Sender: TObject); beginN3C1ick(Sender);end;procedure Tfim_main. ToolButton3Click(Sender: TObject); beginN4C1i ck(Sender);end;procedure Tfrm_main.N6Click(Sender: TObject);var i:integer;beginfor i:=0 to fnn_niain. MDICh订dCount-1 dobeginif frm_main. MDIChildren[i]=frm_in thenbeginfrm_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);beginN6Click(Sender);end;procedure Tfim_main.N7Click(Sender: TObject); var i:integer;beginfor i:=0 to frm_main. MDIChildCountT dobeginif fnn_main. MDIChildren[i]=frm_in thenbeginfrm_in. PageControlL ActivePageIndex：=l;exit;end;end;application. CreateFoirm(Tfnn_in, frm_in);frm_in. PageControlL ActivePageIndex:=l; end;beginN7C1ick(Sender);end;procedure Tfrm_main.N9Click(Sender: TObject);var i:integer;beginfor i：=0 to frm_main. MDIChi.ldCountT dobeginif frm_main. MDIChildren[i]=frm_book then begin frm_book. PageControll. ActivePageIndex:=O;exit;end;end;application. CreateForm(Tfrm_book, frm_book);frm_book. PageControll. ActivePageIndex:=O;end;procedure Tfrm_main.NIOClick(Sender: TObject);var i:integer;beginbegin if frm_main. MDIChildren[i]=frm_book then begin frm_book. PageControll. ActivePagelndex:=1; exit;end;end;application. CreateFonn(Tfrm_book, frm_book); frm_book. PageControll. ActivePageIndex:=l;end;procedure Tfrm_main. ToolButton6Click(Sender: TObject); begin N9C1ick(Sender);end;procedure Tfrm_main. ToolButton7Click(Sender•: TObject); beginNIOClick(Sender);end;end.销售管理模块for i:=0 to fnn_main・MDIChildCount-1 dobegin if frm_main. MDIChildren[i]=frm_out then begin frm_out. PageControll. ActivePageIndex:=l; exit;end;end;application. CreateFonn(Tfrm_out, fnn_oirt);frm_out. PageControll. ActivePageIndex:=1;end;procedure Tfrm__main. N4Click(Sender: TObject);var i：integer;beginfor i：=0 to frm_main. MDICh订dCountT do beginif frm_main. MDIChildren[i]=frm_out then beginfrm_out. PageControll. ActivePageIndex:=2; exit;end;end;end;procedure Tfrm_main. ToolButtonlClick(Sender: TObject); begin N2Click(Sender);end;procedure Tfrm_main. ToolButton2Click(Sender: TObject); begin N3C1ick(Sender);end;procedure Tfrm_main. ToolButton3Click(Sender: TObject);beginN4Click(Sender);end;procedure Tfrm_main.N6Click(Sender: TObject);var i:integer;beginfor i：=0 to frm_main. MDIChildCountT dobeginif frin^main. MDIChildren[i]=frm_in thenbeginexit;end;end;application. CreateFonn(Tfrm_in，frm_in);frm_in< PageControlL ActivePageIndex:=O;end;procedure Tfrm_main. ToolButton4Click(Sender: TObject); begin N6Click(Sender);end;procedure Tfrm_main. N7Click(Sender: TObject); var i：integer; beginfor i：=0 to frm_main. MDIChildCount-1 do beginif frm_main. MDIChildren[i]=frm_in then beginfrm_in< PageControll. ActivePagelndex:=1; exit;end;end;application. CreateForm(Tfrm_in, frm_in);frm_in. PageControll. ActivePageIndex:=l;procedure Tfrm_main. ToolButton5Click(Sender: TObject); begin N7Click(Sender);end;procedure Tfrm_main. N9Click(Sender: TObject);var i：integer;beginfor i：=0 to frm_main. MDICh订dCountT dobeginif frm_main. MDIChildren[i]=frm_book thenbeginfrm_book. PageControll. ActivePageIndex:=O;exit;end;end;appliestion. CreateForm(Tfrm_book, frm_book);end;procedure Tfim_main>NIOClick(Sender： TObject);var i:integer;beginfor i:=0 to frm_main. MDIChildCountT dobeginif frm_main. MDIChildren[i]=frm_book thenbeginfrm_book. PageControll. ActivePageIndex:=l;exit;end;end;application. CreateForm(Tfrm_book, frm_book);frm_book. PageControll. ActivePagelndex:=1;end;procedure Tfrm_main. ToolButton6Click(Sender: TObject);beginN9Click(Sender);end;procedure Tfrm_main. ToolButton7Click(Sender: TObject); begin NIOClick(Sender);end;procedure Tfrm_main. ToolBarlClick(Sender: TObject);beginend;procedure Tfrm_main. NIClick(Sender: TObject);beginend;九•体会在这次设计我有以下几点体会：通过使用VB编程，使人真正体会到了可视化编程的优点，自己动手开发小规模的应用系统，学会一种规范化的编程方法，使我加深了对软件的理解"学以致用，学用结合，这既是学习理论知识目的，也是检验学习的最好方法。