目录一.题目 1二.功能 1三.开发环境 1四.数据字典 1五.数据流图 2六.E-R图 3七.软件结构设计 4八.部分模块源程序7九.体会19一.题目:设计一个实用的小型商店销售管理系统二.功能:1.登记收入支出2.统计每日或每周的销售情况,按规定格式打印销售报表3.允许多种方式查询货物情况4.按货物销售情况提前发出预报三.开发环境设计环境: windows xp使用软件: microsoft visual foxbro 6.0四.小型商店管理系统的数据字典六.由数据流图和数据字典导出E-R图七.软件结构设计 a.主页面b.销售管理页面进货商进货记录名称生产日期进货库存编号名称数量种类出库销售名称数量c.每日销售管理页面d.每月销售管理系统e.进货入库管理页面f.每月进货管理页面g.商品库管理页面h.仓库管理页面八.部分模块源程序主页面procedure Tfrm_main.FormCreate(Sender: TObject); beginApplication.CreateForm(Tdm,dm);end;procedure Tfrm_main.N3Click(Sender: TObject); var i:integer;beginfor i:=0 to frm_main.MDIChildCount-1 dobeginif frm_main.MDIChildren[i]=frm_out thenbeginfrm_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;beginfor i:=0 to frm_main.MDIChildCount-1 dobeginif frm_main.MDIChildren[i]=frm_out thenbeginfrm_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);beginN2Click(Sender);end;procedure Tfrm_main.ToolButton2Click(Sender: TObject); beginN3Click(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.MDIChildCount-1 dobeginif frm_main.MDIChildren[i]=frm_in thenbeginfrm_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); beginN6Click(Sender);end;procedure Tfrm_main.N7Click(Sender: TObject);var i:integer;beginfor i:=0 to frm_main.MDIChildCount-1 dobeginif frm_main.MDIChildren[i]=frm_in thenbeginfrm_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);beginN7Click(Sender);end;procedure Tfrm_main.N9Click(Sender: TObject); var i:integer;beginfor i:=0 to frm_main.MDIChildCount-1 dobeginif frm_main.MDIChildren[i]=frm_book thenbeginfrm_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;beginfor i:=0 to frm_main.MDIChildCount-1 dobeginbeginfrm_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); beginN9Click(Sender);end;procedure Tfrm_main.ToolButton7Click(Sender: TObject); beginN10Click(Sender);end;end.销售管理模块for i:=0 to frm_main.MDIChildCount-1 dobeginbeginfrm_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;beginfor i:=0 to frm_main.MDIChildCount-1 dobeginif frm_main.MDIChildren[i]=frm_out thenbeginfrm_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); beginN2Click(Sender);end;procedure Tfrm_main.ToolButton2Click(Sender: TObject); beginN3Click(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.MDIChildCount-1 dobeginif frm_main.MDIChildren[i]=frm_in thenbeginfrm_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); beginN6Click(Sender);end;procedure Tfrm_main.N7Click(Sender: TObject);var i:integer;beginfor i:=0 to frm_main.MDIChildCount-1 dobeginif frm_main.MDIChildren[i]=frm_in thenbeginfrm_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); beginN7Click(Sender);end;procedure Tfrm_main.N9Click(Sender: TObject);var i:integer;beginfor i:=0 to frm_main.MDIChildCount-1 dobeginif frm_main.MDIChildren[i]=frm_book thenbeginfrm_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;beginfor i:=0 to frm_main.MDIChildCount-1 dobeginif frm_main.MDIChildren[i]=frm_book thenbeginfrm_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); beginN9Click(Sender);end;procedure Tfrm_main.ToolButton7Click(Sender: TObject); beginN10Click(Sender);end;procedure Tfrm_main.ToolBar1Click(Sender: TObject);beginend;procedure Tfrm_main.N1Click(Sender: TObject);beginend;九.体会在这次设计我有以下几点体会:通过使用VB编程,使人真正体会到了可视化编程的优点,自己动手开发小规模的应用系统,学会一种规范化的编程方法,使我加深了对软件的理解。