小型商店销售管理系统.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.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
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.MDIChildren[i]=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.MDIChildren[i]=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.MDIChildren[i]=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.MDIChildren[i]=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.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
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.MDIChildren[i]=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.MDIChildren[i]=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.MDIChildren[i]=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.MDIChildren[i]=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);
begin
end;
procedure Tfrm_main.N1Click(Sender: TObject);
begin
end;
九.体会

在这次设计我有以下几点体会：
通过使用VB编程，使人真正体会到了可视化编程的优点，自己动手开发小规模的应用系统，学会一种规范化的编程方法，使我加深了对软件的理解。学以致用，学用结合，这既是学习理论知识目的，也是检验学习的最好方法。
在整个设计，是学生综合运用所学知识解决实际问题能力的考查。这次设计不仅使我了解了VB在数据库方面编程的概要，更让我知道了计算机的变成秘诀在于严密的思考与仔细的推敲，只有这样，才会有一个完善的软件生成。
在此，我能够依据实际情况以及课堂上所学习的知识，应用到自己的实际工作，帮助解决工作过程中的问题，对实施方法程序有深刻理解，在数据库设计方面，编程技术方面有了一定的进步。通过这一系列工作使我系统地掌握这个学期来所学的专业知识，并基本掌握了开发一个应用软件的能力。

2、存在的问题
小型商店管理系统虽然可以完成基本的设备管理功能，但由于个人对VB的不够熟悉。有些功能没有实现，譬如收入支出部分没有实现。
2010年读书节活动方案
一、     活动目的：
书是人类的朋友，书是人类进步的阶梯！为了拓宽学生的知识面，通过开展“和书交朋友，遨游知识大海洋”系列读书活动，激发学生读书的兴趣，让每一个学生都想读书、爱读书、会读书，从小养成热爱书籍，博览群书的好习惯，并在读书实践活动中陶冶情操，获取真知，树立理想！
二、活动目标：
1、通过活动，建立起以学校班级、个人为主的班级图书角和个人小书库。
2、通过活动，在校园内形成热爱读书的良好风气。
3、通过活动，使学生养成博览群书的好习惯。
4、通过活动，促进学生知识更新、思维活跃、综合实践能力的提高。
三、活动实施的计划
1、 做好读书登记簿
（1） 每个学生结合实际，准备一本读书登记簿，具体格式可让学生根据自己喜好来设计、装饰，使其生动活泼、各具特色，其中要有读书的内容、容量、实现时间、好词佳句集锦、心得体会等栏目，高年级可适当作读书笔记。
（2） 每个班级结合学生的计划和班级实际情况，也制定出相应的班级读书目标和读书成长规划书，其中要有措施、有保障、有效果、有考评，简洁明了，易于操作。
（3）中队会组织一次“读书交流会”展示同学们的读书登记簿并做出相应评价。
2、 举办读书展览：
各班级定期举办“读书博览会”，以“名人名言”、格言、谚语、经典名句、“书海拾贝”、“我最喜欢的＿＿＿”、“好书推荐”等形式，向同学们介绍看过的新书、好书、及书中的部分内容交流自己在读书活动中的心得体会,在班级中形成良好的读书氛围。
3、 出读书小报：