二手房销售管理信息系统介绍

题目：

《软件工程》

系统设计报告

二手房销售管理信息系统

目 录

1引言…………………………………………………3

4

5功能和界面设计……………………………………………14

6系统设计 ……………………………………………19

1

8总结…………………………………………………………….31

参考文献…………………………………………………………31

二手房销售管理信息系统

1 引言

1.1 选题背景：

一直以来，房地产市场都保持着繁荣的局面。近几年，不仅新楼盘销售旺盛，二手房

市场也是在不断升温，相关需求也不断增加，为此，在这介绍一下二手房销售设计开发

方法。

房地产经纪公司的二手房销售管理业务流程可以简单的描述为：

（1） 搜集房源信息并记录，验收房屋实际情况是否与房主所汇报房源信息相符，

再进行相应记录。

（2） 客户到房地产经纪公司提出购房请求，经确定购房区域后，由房地产经纪公

司委派该区域的员工查符合条件的全部的全部房源信息，经与客户协商后

到实地看房。

（3） 看房之前需要签订看房协议，客户保证不会越过该房地产经纪公司私自和房

主发生买卖行为，否则也要交纳相应的中介费用。

（4） 如果客户选定某个房屋，则由该公司员工引导，并由专人负责客户与房地产

房地产经纪公司签订房屋居间服务合同，交纳中介费和指定金额的定金，同

时客户需要承诺在规定的期限内缴纳剩余房款和税金，否则定为违约，定金

作为房地产经纪公司的补偿。

（5） 办理完全产证的更名等一切手续，并由客户验收后，由房地产经纪公司将房

款交给房主。房屋买卖交易结束。

面对大量的二手房信息和交易活动，传统的手工管理很复杂。工作效率低下，数

据混乱且难以发觉其中的规律。对各个房地产经纪公司来说，二手房销售管理系统，辅

助管理销售，是提高工作销售的必经之路。而我们也可以得到一般的房产中介公司的二

手房销售管理业务模型。

1.2 系统目标：

本系统是以一般的房地产经纪公司的销售管理业务为依托，围绕房屋销售的业务流

程，设计并开发一个二手房销售管理信息系统，针对公司不管理层的员工，提供一个互动

式的二手房销售管理平台。其系统目标和功能要求如下：

1、系统目标：

1） 将销售管理的理论知识与一般房地产经纪公司的销售管理业务相结合，使销

售管理业务流程更加合理。

2） 提供方便、灵活的操作

3） 节约成本，提高效率

4） 对系统进行权限管理

2、功能目标：

5） 满足二手房销售房的销售数据需求，能够方便的进行房屋数据的录入和多条

件的查询。

6） 与手工管理相比，要添加基础数据的管理和用户权限的管理。

7） 居间服务合同的结构要严格遵守原有的业务，并且要求数据准确、安全，同

时准确的记录时间。

8） 针对不同角，将系统用户分为系统管理员、经纪人和合同负责人三级权限。

系统管理员可以享有系统的全部权限；经纪人仅享有本人所负责的房屋信息

的更新权和全部房屋信息的查询权；合同负责人享有房屋居间服务合同的更

新权和全部房屋信息的查询权；公司的高层管理者拥有修通管理员权限。

9） 为保障系统，对于可能发生的问题的输入要进行检验，同时要给出合理的提

示信息。

2 需求分析

2.1 概述

新信息系统的建立是在现行业务基础上经过改建或重建而得到的。因此，在进行新系统

的规划、分析和设计工作之前，必须对现行系统做全面、充分的调查研究和分析，在此基础

上建立企业模型。业务模型是对业务结构和业务活动本质、概括的认识，可用“业务范围-业

务过程-具体业务处理”这样的层次结构来对其进行描述。业务模型的建立也可以分为3个阶

段。

1）现型业务的调查和分析。

2）提出一个表示全部业务的模型。

3）扩展上述模型，使它能表示出各项具体的业务活动，最终确定为业务模型。、

根据对二手房销售管理的业务流程的调查和分析，得到一般的房产中介公司的二手的二

手房销售管理业务模型，如图6-1所示。

表6-1 二手房销售管理业务模型

业务范围 业务过程 具体业务处理

登录各级销售人员的基本信息

员工基本信息管理 更新和维护员工的基本信息

录入与房屋销售相关的员工信息，包括责任区域等

员工销售信息管理 提供检索功能

搜集房源信息并记录

房源数据管理 验收房屋实际情况是否与房主所报房源信息相符

提供分域的员工信息检索功能

对员工数据销售业绩进行统计

更新和维护房源数据

随时按各种要求查询房源数据

客户提出购房请求

经确定购房区域后，由该区域的员工查符合条件的全部房源

签订看房协议，客户要保证不会越过该房地产经纪公司私自与客户看房管理

房主发生买卖行为，否则也要缴纳相应的中介费用

客户选定某房屋，则由该员工引导，并由专人负责客户与房地

产经纪公司签订房屋居间服务合同 房屋居间服务

客户交纳中介费和指定金额的定金，并需要承诺在规定的缴纳合同管理

剩余房款和税金，否则视为违约，定金作为房地产经纪公司的补偿

买卖缴纳全部房款

办理过户

房地产经纪公司将房款交给房主

登记已售房屋信息 已售房信息管理

删除相应的房源数据

销售数据统计

二手房

销售

管理

2.2 数据分析

在建立了较为完整、稳定的业务模型之后，需要根据模型进行数据分析。基本方法是

按照业务过程进行数据分类和组织。数据分类后，进行信息体系结构的设计：即结合业

务过程与数据类，建立系统的功能/数据类矩阵（c-u矩阵）。数据分类得到的结果将用于

系统分析和系统设计阶段。

根据表6-1的业务模型，得到本系统涉及到得数据类：员工基本信息、员工销售信息、

房源信息数据、客房看房信息、房屋居间服务合同信息、已售房信息。建立系统c-u矩阵，

如表6-2所示。

数据类

员工基本信息 员工销售信息 房源信息 客户看房信息 服务合同信息 已售房信息

业务过程

员工基本

信息管理

员工销售

信息管理

房源数据

管理

客户看房

管理

房屋居间服

务合同管理

已售房信息

管理

C

U C

UC

UC

UC

UUC

2.3 系统分析

系统分析的依据是系统规划阶段建立的业务模型和c-u矩阵，并在现有资料的基础

上深入的调查研究，进行功能分析，最终确定新系统的逻辑功能结构。

2.4 逻辑功能结构

1、 数据流程图

并非所有的业务处理都能由计算机来完成，因此围绕着信息处理业务，根据业务流

程图，必须弄清楚系统需要产生什么样的信息输出。为了得到这样的输出应该对什

么数据进行处理，输入数据向输出数据所进行的转换过程是什么？而这个过程是进

行数据抽取，建立数据流程图的过程。数据流程图描述了新系统的全部的数据处理

逻辑和数据的流动过程，构成了新系统逻辑模型。

根据业务流程图，去掉其中信息系统不能完成的和本系统处理以外的环节，并将业务处

理比较集中的功能作为一个高层模块，从而得到本系统高层数据流程图，如图6-2所示。

高层数据流程图中有些功能不可再分，在进一步的设计中可以将其作为一个单独的模块；

而有些功能比较复杂，应进一步再分解，知道每个子模块的功能、独立，不可再分。本系统

的高层数据流程图中各个模块的处理功能比较集中，均可作为一个单独的子模块。

对比数据流程图和业务流程图不难看出，从业务过程（业务流程图）抽取数据流的过程

中，有些纯人工i的操作在数据流程图中被省略，如买方交纳全部房款的过程；有些环节不属

于本系统的处理范围要去掉，如办理过户的过程；有些初期调研没有得到的常规业务要增加

到数据流程图中，如提供一些报表功能等。综合一些报表功能等。综合以上各个步骤的分析，

最终得到了用数据流程图表达的新系统的逻辑功能结构。

2、数据字典

数据流程图并不能完整地描述软件需求，因为它没有描述数据流程图上各个成分的具体

内容。实际应用中，数据流程图往往与数据字典配套使用。数据字典实在数据流程图的基础

上，进一步定义和描述流程图上各个成分的工具，它包括对一切动态数据（可在系统内外流

动的数据流）和静态数据（不参与流动的数据存储）的数据结构和相互关系等的说明，是数

据分析和数据管理的重要工具。数据字典中常常包括对数据元素、数据结构、数据流的来源

去处、数据存储、处理功能和外部实体的说明。

本系统建立数据字典中，对处理功能的说明如下：

1） 权限设定

系统管理员-——系统的全部权限

经纪人——仅具有本人所负责区域的房屋信息的更新权和全部房屋信息的查询权

合同责任人——房屋居间服务合同的更新权和全部房屋信息的查询权

公司高层管理者——系统管理员权限

2） 员工（销售）信息管理：录入与房屋销售相关的员工信息，包括责任区域等。

3） 房源数据管理：搜集房源信息并记录。验收房屋实际情况是否与房主所报房源

信息一致，更新和维护房源数据，并随时按各种要求查询房源数据。

4） 客户看房管理：客户提出购房请求。确定购房区域后，由该区域的员工查符

合条件的全部房源信息，并与客户签订看房协议。

5）房屋居间服务合同管理：客户与房地产经纪公司签订房屋居间服务合同。交纳中

介费和指定金额的定金，并需要承诺在规定期限内交纳剩余房款和税金。

6）已售房款信息管理：登记已售房屋信息；删除相应的房源数据；进行售房数据统

计。

3 系统设计

3.1 系统总体设计：

依据系统分析阶段得到的数据流程图和数据字典，以数据流程图中的处理功能为出发

点，抽取各个主要的处理功能建立模块结构图。从数据流程图转化为系统模块结构时，

有3个问题需要注意：

1、模块结构图的层次要对应于数据流程图的层次

2、添加模块。抛开具体业务本身，考虑到信息安全问题，往往要添加登录模块，登

录成功的用户才允许使用系统；为了方便系统的管理和维护，要添加系统管理模块，用

以管理系统用户的相关信息。

3、由人工操作到计算机世界的转化过程中，为了便于计算机处理数据，往往需要对

尸体添加唯一标识（字符），如对学生信息的处理往往加上学号来标识学生，这个过程叫

做编码。编码需要用单独的数据管理界面来管理，因此一般的应用程序都会有基础数据

管理模块，并且只允许系统管理员使用。下图为本系统的模块结构图

3.3.2 功能模块

1、登录模块：

用于输入用户名和密码，如果用户名和密码正确，进入主控制平台；否则提示用户明确

的错误信息。

2、系统管理模块：

用户管理子模块：用于系统管理员进行用户进行用户权限设置和用户的浏览，包括用户

密码和用户权限的更改，其他用户只能浏览。

修改密码子模块：保证任何用户可以修改自己的密码。

3、基础数据管理模块：

用于设置和维护区域、房屋、楼盘的编码与名称的对应关系。系统管理员有权进行信息

更新，其他用户只能浏览。

4、公司内部信息管理模块：

员工数据管理子模块：用于设置和管理与房屋销售相关的员工信息数据，包括其基本信

息和责任区域，并向全部员工提供查询功能。系统管理员可以进行数据的添加、删除和修改。

房源数据管理子模块：用于设置和管理房源数据，并向全部员工提供查询功能。系统管理

员和负责本区域的精进人可以进行数据的添加、删除与修改。

5、售房信息管理模块：

客户看房记录子模块：功能是记录客户看房信息，用于检查是否客户越过该房地产经纪

公司私自和房主发生买卖行为。系统管理员和负责本区域的经纪人可以进行数据的添加、删

除、修改。

房屋居间服务合同管理子模块：用于录入和维护房屋居间服务合同，并生成报表。由合

同责任人即使进行合同数据的校验、更新和取消。系统管理员和合同责任人可以进行数据的

添加、删除和修改。但是，当确认此次房屋交易已经完成时，任何人不能进行更新。

已售房屋信息管理子模块：当房屋买卖交易结束后，意味着该房屋买卖已经完成。由相

应的合同责任人将客户购房信息进行记录。并由系统自动将其从房源数据中删除，并向全部

员工提供查询功能。系统管理员和合同责任人可以进行数据的添加、删除和修改。

3.3 编码设计

编码是通过一些便于计算机或人来识别和处理的符号来表示各类信息。编码方式有很

多，常用的是层次码和顺序码。层次码是指把编码对象分类，用不同的码位来表示不同类别

进行编码。顺序是按排列顺序对编码对象进行编码。

3.4 系统详细设计

总体设计搭建了系统的功能框架，建立了系统数据库结构。在总体设计的基础上，需要

对每个模块的输入数据、需要完成的处理逻辑和输出数据进行详细的设计和描述

3.5 系统公共文件

根据系统模块结构图，抽取系统中多个模块的相同的子功能来建立系统的公共特点，可

以做到减少总代码量，避免重复开发，保持系统实现风格统一，以及增加可修改性等特点。

本系统的公共文件包含以下几个子功能：

1） 主体框架

2） 添加模块

3） 定义用户名、用户类型、职员编号以及登陆成功的标识为系统公共变量定义

4） Main（系统启动）函数。

5） Connect String 函数。该函数用于设置数据库连接字符串函数。本系统数据库用户名

和密码设置为sa 。

6） Execute SQL 函数。该函数用于设置SQL语句的执行函数，并创建到数据源的连接，

执行SQL语句。如果SQL语句成功执行，返回值为Ture,结果保存；否则返回False 。

7） DB Exist函数。该函数用于判断数据库中是否存在指定记录，返回记录数；否则，返

回值为0 。

8） TxtIsull 函数。该函数用于判断输入到TextBox的内容是否为空，参数为TextBox

实例。

9） Is Over String Len函数。干函数用于判断输入内容是否超过给定值，参数为需要处理

的字符串和给定长度值。其处理流程为：判断字符串的长度不超过给定值时返回值为

Ture,结果保存；否则返回False 。

10） View Data函数。该函数用于执行SQL语句，当检索到的记录数不为0时，将相应

的数据集设置为Datagrid的数据源，并返回记录数；否则给出提示信息，返回值为0。

11） ISEquelLen函数。该函数用于判断输入到TextBox的内容是否为给定值。

12） ComoboData 函数。它是为ComoboBox赋值函数。其处理流程为：从数据库中检索

记录，当检索记录不为0时，将名称字段添加到ComoboBox的显示列表中，同时将

编号字段作为相应名称的索引值。

13） ComoboHour 函数。该函数是为小时ComoboBox赋值函数，参数为ComoboBox实

例。其处理流程为：采用24小时/天的计时方式，从1到24，通过循环在ComoboBox

里添加小时数字。ComoboBox里数位为2位。

14） ComoboMin 函数。该函数是为分钟ComoboBox赋值函数，参数为ComoboBox实

例。其处理流程为：从1到60，通过循环在ComoboBox里添加分钟数字。ComoboBox

里数位为2位。

15） ComoboYear 函数。该函数是为年ComoboBox赋值函数，参数为ComoboBox名称。

其处理流程为：从1990到2600，通过循环在ComoboBox里添加年份数字。

16） ComoboMonth 函数。该函数是为月ComoboBox赋值函数，参数为ComoboBox名

称。其处理流程为：从1到12，通过循环在ComoboBox里添加月份数字。ComoboBox

里数位为2位。

17） ComoboDate 函数。该函数是为月ComoboBox赋值函数，参数为ComoboBox名称。

其其处理流程为：从1到31，通过循环在ComoboBox里添加日期数字。ComoboBox

里数位为2位。

18） setCboDataReg 函数。该函数用于区域名ComoboBox赋值，参数为ComoboBox实

例。其处理流程为：检索区域编码信息表，调用ComoboData函数将区域名称添加到

责任区域ComoboBox列表中。

19） setCboDataItem函数。它用于为楼盘名ComoboBox赋值，参数为ComoboBox实例。

其处理流程为：检索楼盘编码信息表，调用ComoboData函数将楼盘名称添加到楼盘

区域ComoboBox列表中。

20） setCboDataStru函数。该函数用于为房型名ComoboBox赋值，参数为ComoboBox

实例。其处理流程为：检索房型编码信息表，调用ComoboData函数将楼盘名称添加

到房型区域ComoboBox列表中。

21） getCboRegId函数。该函数用于获取名称ComoboBox中名称所对应的编号，参数为

ComoboBox实例和存储编号值的变量。使用该函数的前提是在为ComoboBox下拉列

表赋值时，已经将与名称对应的编号设置为下拉列表项目的索引值（本系统使用

ComoboBox即可）。处理流程：判断ComoboBox当前文本内容，如果为空，存储编

号值的变量值为下拉列表项目的索引值。然后判断存储编号值的变量长度是否为该字

段在数据库中的长度值n，用select case语句将任何长度的变量设置为n位（不足位

的前面补0）。

22） setCboData函数。该函数用于为房源编号ComoboBox赋值，参数为ComoboBox实

例。其处理流程为：检索房源信息表，将房源编号添加到对应的ComoboBox下拉列

表中。

23）setLabelData函数。该函数用于为窗体上的Label控件的Caption属性赋值。参数值

为ComoboBox实例和Label实例。其处理流程为：以ComoboBox实例的文本内容为关键字，

检索房源信息表，将检索到的房源名称赋给对应的label实例中的Caption属性。

4 数据库设计

数据库设计是在DBMS的支持下，按照应用的要求设计合理的数据库物理结构。本系统

采用SQL Server 2000数据库，根据系统分析和模块设计中得到的功能和相应的数据存储，本

系统数据库的数据项和数据库如下。

1、数据库

数据库名称：二手房销售信息库

标识：DB House

2、数据库表结构：

1）表名：用户信息表

标识：tb User

数据来源： 用户模块的录入

用户信息表

2）表名：区域编码信息表

标识：tb Region

数据来源：基础数据管理模块的录入

区域编码信息表

3）表名：楼盘编码信息表

标识：tb Item

数据来源：基础数据管理模块的录入

楼盘编码信息表

4）表名：员工销售信息表

标识：tb Sale Man

数据来源：公司内部信息管理模块的录入

员工销售信息表

5）表名：房源信息表

标识：tb House

数据来源：公司内部信息管理模块的录入

房源信息表

6）表名：客户看房记录

标识：tb House Pre

数据来源：售房信息管理模块录入

客户看房记录

7）表名：房屋居间服务合同表

标识：tb Contract

数据来源：售房信息管理模块录入

房屋居间服务合同表

8）表名：已售房屋记录表

标识：tb House Sale

数据来源：售房信息管理模块录入

已售房屋记录表

5 系统模块与界面设计

1、人机交互设计

2、用户登录模块的IPO过程

输入：用户名和密码。

处理：

1） 登录窗体启动。

2） 输入用户名和密码。

3） 如果用户名或密码为空，处理终止，并进行错误信息提示。

4） 以输入的用户名作为关键字，检索用户信息表（tb User）的用户名和密码字段。

5） 通过检索结果判断该用户名是否存在，如果用户名不存在，处理终止，并进行错误信

息提示。

6） 如果用户名存在，比较检索到的密码字段和输入的密码是否相等。如果不相等则处理

终止，并进行错误信息提示。

7） 如果输入的密码正确，将该用户名和用户类型分别保存到全局变量guserame和

guserkind中。

8） 进入主控制台。

输出：主控制平台。

5.1 主控制平台的设计

系统主控平台采用简单、直观的布局，通过菜单实现对系统各个模块的调用和各个窗体

的现实。设置状态栏用来显示当前日期、时间和当前用户信息。

1、 人机交互设计

2、 主控制平台的功能设计

1） 菜单导航功能：

系统管理：用户管理、修改密码。

基础数据库管理。

公司内部信息管理：员工数据管理、房源数据管理。

售房信息管理：客户看房记录、房屋居间服务合同管理和已售房屋记录。

员工销售业绩分析.

销售额分析。

退出。

2） 对当前用户、系统时间的状态显示

3） 给出主控制台的提示信息，如标题。

4） 判断当前用户类型，对该类型用户的权限进行记录。

5） 点击各个菜单或子菜单时，显示相应的界面。

5.2 系统管理模块

系统管理模块一般包括用户管理和修改密码两个子模块。用户管理模块只有系统管理员

可以使用，一般用户不能使用。修改密码模块面向任何用户，提供修改登录密码的功能。用

户类型有系统管理员、经纪人和合同负责人。

5.3 基础数据管理模块

1、人机交互设计

3、 基础数据管理模块的IPO过程

输入：区域、楼盘或者房型的编号和名称。

处理：

1） 当用户类型为系统管理员时该菜单可用。

2） 基础数据管理窗体启动。

3） 从区域编码信息表中读取全部记录，显示在表格控件dgBasicData中。

4） 当鼠标单击标签，标签改变时，从对应的数据库表中读取全部记录，显示在表格控件

dgbasicdata中。

5） 各级系统管理员的选择（添加、修改和删除）进行相应的处理

5.4 公司内部信息管理模块

公司内部信息管理模块管理包括员工数据管理和房源数据管理两个子模块，其中每个子模

块都包含两个界面：数据显示、操作界面和添加、修改数据界面

1、 人机交互设计

(2)员工数据管理子模块的IPO过程

输入：员工编码、员工姓名、性别、职务、、区域名称。

处理：

当用户类型为系统管理员时该菜单可用。

员工数据管理窗体启动。

从员工信息表中读取全部记录，显示在表格控件dgemp中。

根据系统管理员的选择（添加、修改、删除）进行相应处理。

2、 房源数据子模块

（1） 人机交互设计

（2） 房源数据管理子模块的IPO过程

输入：房源数据、房源名称、所属区域名称、楼盘名称、建筑年代、建筑单位、户型名

称、建筑面积、楼层、总楼层、单元、车库面积、学校、公交线路、临近街道、小区会所、

梯户、广场、基础设施、装修状况、物业管理费、权属、售价和销售状态。

其中包括很多模块，添加模块也在其中

5.5 售房信息管理模块

售房信息管理管理模块包括客户看房记录、房屋居间服务合同管理和已销售信息管理3个

子模块。

1、 客户看房记录子模块

客户看房记录子模块的IPO过程

输入：房源编号、房源名称、看房时间、看房年月日、客户人数、客户身份证号。

并且添加客户看房记录

2、 房屋居间合同子模块

（1） 人机交互设计

（2） 房屋居间服务和同居间管理子模块的IPO过程

输入：房源编号、房源名称、签订日期、甲方实际售价、税率说明、税金总计、中

介费、定金、建筑面积、权属、乙方、乙方身份证号、甲方、甲方联系方

式、乙方房款交全最后期限、甲方交房最后期限、甲方赠物记录、甲方代表、乙方代表和丙

方。

3、 已售房屋信息管理子模块

（1） 人际交互界面

（2） 已售房屋信息管理子模块的IPO过程

输入：房源编号、房源名称、建筑面积、实际销售日期等

6 系统实施

6.1 数据的访问

在数据库的操作中，考虑到操作数据库时如果利用数据绑定，则会锁定记录表，使得表的

访问为独占式，而如果两个终端同时访问这个表，则容易造成死锁。因此用SQL直接进行数

据库的访问是比较适合的，即使偶尔发生并发操作，对数据库的修改不成功，也可以继续保

存。同时由于考虑数据库中的数据属于动态的、变化的，因此，在数据库德操纵过程中，大

量使用了SQL语句进行对数据库的操作。具体来说，包括数据库的插入、修改、删除和查询。

1、查询操作

txtSql = "select HouseId as 房源编号,Houseame as 房源名称,ViewTime as 看房时间,"

txtSql = txtSql + "ViewYMD as 看房年月日,Clientum as 客户人数,ClientIDCard as 客户

身份证号"

If = "" Then

txtSql = txtSql + " from tbHousePre order by HouseId "

Else

txtSql = txtSql + " from tbHousePre where ClientIDCard='" + + "'

order by HouseId"

2、修改操作

txtSql = "update tbHousePre set Houseame='" + Trim(n) + "',"

txtSql = txtSql + " Clientum='" + Trim() + "',"

txtSql = txtSql + "ClientIDCard='" + Trim() + "'"

txtSql = txtSql + " where HouseId='" + Trim() + "'"

txtSql = txtSql + " and ViewYMD='" + Trim(strViewYMD) + "'"

txtSql = txtSql + " and ViewTime='" + Trim(strViewTime) + "'"

result = ExecuteSQL(txtSql, rstView, True)

MsgBox "修改成功", vbOKOnly + vbExclamation, "警告"

3、添加操作

txtSql = txtSql + "values('" + Trim() + "','"

txtSql = txtSql + Trim(n) + "','"

txtSql = txtSql + strViewTime + " ','"

txtSql = txtSql + strViewYMD + "','"

txtSql = txtSql + Trim() + "','"

txtSql = txtSql + Trim() + "')"

result = ExecuteSQL(txtSql, rstView, True)

MsgBox "客户看房记录添加成功", vbOKOnly + vbExclamation, "警告"

4、 删除操作

txtSql = "delete from tbSaleMan where SaleManId='" + strSaleManId + "'"

results = ExecuteSQL(txtSql, rstEmp, True)

MsgBox "删除成功！", vbOKOnly + vbExclamation, "警告"

6.2 连接数据库

Public Function ConnectString() As String

ConnectString = "FileDS=;UID=sa;PWD=sa"

End Function

6.3 系统模块

' ******************************************************************************

'系统公共变量定义

' ******************************************************************************

Option Explicit

Public gUserame As String

Public gUserKind As String

Public gLoginSucceeded As Boolean

' ******************************************************************************

'过程名：Main

'说 明：系统启动函数

'参 数：无

'返回值：无

' ******************************************************************************

Sub Main()

'启动登陆窗体

Dim fLogin As ew frmLogin

vbModal

If ot gLoginSucceeded Then

MsgBox "系统启动失败,请重试!", vbOKOnly + vbExclamation, "警告"

End If

Unload fLogin

End Sub

6.4 程序实现关键代码

房屋居间合同管理

' ******************************************************************************

'窗体公共变量定义

' ******************************************************************************

Option Explicit

Private txtSql As String 'SQL语句

Private result As Integer 'datagrid中的显示记录数

Public ContractFlag As String '判断添加删除标志

Public strHouseId As String '房源编号

Public strHouseame As String '房源名称

Public strSignDate As String '签订日期

Public strSaleMoney As String '甲方实际售价

Public strTaxDes As String '税率说明

Public strTax As String '税金总计

Public strMediMoney As String '中介费

Public strPreMoney As String '定金

Public strArea As String '建筑面积

Public strBelong As String '权属

Public strYContact As String '乙方

Public strYTel As String '乙方

Public strYIDCard As String '乙方身份证号

Public strJContact As String '甲方

Public strJTel As String '甲方

Public strJIDCard As String '甲方身份证号

Public strYTimeLimit As String '乙方房款交全最后期限

Public strJTimeLimit As String '甲方交房最后期限

Public strPresent As String '甲方赠物记录

Public strJdelegate As String '甲方代表

Public strYdelegate As String '乙方代表

Public strBManame As String '丙方

Private str As String

Private rstContract As set

Private results As String

Private Sub cmdAdd_Click()

ContractFlag = "add"

End Sub

Private Sub cmdClear_Click()

Call ComboYear(cboYear)

Call ComboMonth(cboMonth)

Call ComboDate(cboDate)

End Sub

Private Sub cmdDel_Click()

Dim bIsEditable As Boolean

If Len(Trim(strHouseId)) = 0 Then '检验删除记录是否选定

MsgBox "请点击单元格选择删除的记录！", vbOKOnly + vbExclamation, "警告"

Else

bIsEditable = IsEditable '判断是否能够对合同进行删除

If bIsEditable = False Then

MsgBox "房屋交易已经完成,不能进行更新", vbOKOnly + vbExclamation, "警告"

Exit Sub

End If

str = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")

If str = vbOK Then

txtSql = "delete from tbContractp where HouseId='" + strHouseId + "'"

results = ExecuteSQL(txtSql, rstContract, True)

MsgBox "删除成功！", vbOKOnly + vbExclamation, "警告"

txtSql = "update tbHouse set State='待售' where HouseId='" + strHouseId + "'"

results = ExecuteSQL(txtSql, rstContract, True)

End If

End If

Call viewDataContract

End Sub

Private Sub cmdExit_Click()

Unload Me

End Sub

Private Sub cmdModify_Click()

Dim bIsEditable As Boolean

bIsEditable = IsEditable

If Trim(strHouseId) = "" Then

MsgBox "请点击单元格选择修改记录", vbOKOnly + vbExclamation, "警告"

Else

'判断是否能够对合同进行修改

If bIsEditable = False Then

MsgBox "房屋交易已经完成,不能进行更新", vbOKOnly + vbExclamation, "警告"

Exit Sub

End If

ContractFlag = "Modify"

End If

End Sub

'查询操作

Private Sub cmdQuery_Click()

txtSql = "select HouseId as 房源编号,Houseame as 房源名称,SignDate as 签订日期,"

txtSql = txtSql + "SaleMoney as 甲方实际售价,TaxDes as 税率说明,Tax as 税金总计,"

txtSql = txtSql + "MediMoney as 中介费,PreMoney as 定金,Area as 建筑面积,Belong as 权属,"

txtSql = txtSql + "YContact as 乙方,YTel as 乙方,YIDCard as 乙方身份证

号,JContact as 甲方,"

txtSql = txtSql + "JTel as 甲方, JIDCard as 甲方身份证号,YTimeLimit as 乙方房款交

全最后期限,JTimeLimit as 甲方交房最后期限,"

txtSql = txtSql + "Present as 甲方赠物记录,Jdelegate as 甲方代表,Ydelegate as 乙方代

表,BManame as 丙方"

txtSql = txtSql + " from tbContractp "

If <> "" Then

txtSql = txtSql + " where SUBSTRIG(SignDate,1,4) = '" + + "'"

If <> "" Then

txtSql = txtSql + " and SUBSTRIG(SignDate,6,2) = '" + + "'"

End If

If <> "" Then

txtSql = txtSql + " and SUBSTRIG(SignDate,9,2) = '" + + "'"

End If

Else

If <> "" Then

txtSql = txtSql + " where SUBSTRIG(SignDate,6,2) = '" + + "'"

If <> "" Then

txtSql = txtSql + " and SUBSTRIG(SignDate,9,2) = '" + + "'"

End If

Else

If <> "" Then

txtSql = txtSql + " where SUBSTRIG(SignDate,9,2) = '" + + "'"

End If

End If

End If

txtSql = txtSql + " order by HouseId"

Set urce = othing

result = viewData(txtSql, dgContract)

End Sub

Private Sub cmdReport_Click()

End Sub

Private Sub dgContract_DblClick()

Dim bIsEditable As Boolean

bIsEditable = IsEditable

If Trim(strHouseId) = "" Then

MsgBox "请点击单元格选择修改记录", vbOKOnly + vbExclamation, "警告"

Else

'判断是否能够对合同进行修改

If bIsEditable = False Then

MsgBox "房屋交易已经完成,不能进行更新", vbOKOnly + vbExclamation, "警告"

Exit Sub

End If

ContractFlag = "Modify"

End If

End Sub

Private Sub dgContract_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

'datagrid显示记录不为0时，将各个字段的值赋给相应定义的字符串

If result <> 0 Then

strHouseId = s(0).Text

strHouseame = s(1).Text

strSignDate = s(2).Text

strSaleMoney = s(3).Text

strTaxDes = s(4).Text

strTax = s(5).Text

strMediMoney = s(6).Text

strPreMoney = s(7).Text

strArea = s(8).Text

strBelong = s(9).Text

strYContact = s(10).Text

strYTel = s(11).Text

strYIDCard = s(12).Text

strJContact = s(13).Text

strJTel = s(14).Text

strJIDCard = s(15).Text

strYTimeLimit = s(16).Text

strJTimeLimit = s(17).Text

strPresent = s(18).Text

strJdelegate = s(19).Text

strYdelegate = s(20).Text

strBManame = s(21).Text

End If

End Sub

Private Sub Form_Load()

Call ComboYear(cboYear)

Call ComboMonth(cboMonth)

Call ComboDate(cboDate)

Call viewDataContract

Call purview

End Sub

' ******************************************************************************

'过程名：purview

'说 明：设置权限

'参 数：无

'返回值：无

' ******************************************************************************

Private Sub purview()

Select Case gUserKind

Case "经纪人"

d = False

d = False

d = False

End Select

End Sub

' ******************************************************************************

'过程名：viewDataContract

'说 明：将数据在datagrid中显示

'参 数：无

'返回值：无

' ******************************************************************************

Public Sub viewDataContract()

txtSql = "select HouseId as 房源编号,Houseame as 房源名称,SignDate as 签订日期,"

txtSql = txtSql + "SaleMoney as [甲方实际售价(万元)],TaxDes as 税率说明,Tax as [税金总

计(万元)],"

txtSql = txtSql + "MediMoney as [中介费(万元)],PreMoney as [定金(万元)],Area as 建筑面

积,Belong as 权属,"

txtSql = txtSql + "YContact as 乙方,YTel as 乙方,YIDCard as 乙方身份

证号,JContact as 甲方,"

txtSql = txtSql + "JTel as 甲方, JIDCard as 甲方身份证号,YTimeLimit as 乙方房

款交全最后期限,JTimeLimit as 甲方交房最后期限,"

txtSql = txtSql + "Present as 甲方赠物记录,Jdelegate as 甲方代表,Ydelegate as 乙方代

表,BManame as [丙方（合同责任人）]"

txtSql = txtSql + " from tbContractp order by HouseId"

result = viewData(txtSql, dgContract)

If result = 0 Then

Set urce = othing

End If

End Sub

' ******************************************************************************

'函数名：IsEditable

'说 明：判断房源交易是否完成

'参 数：无

'返回值：完成返回true，否则返回false

' ******************************************************************************

Private Function IsEditable() As Boolean

IsEditable = True

txtSql = "select HouseId from tbHouse where HouseId='" + strHouseId + "'"

If DBExist(txtSql) = 0 Then

IsEditable = False

Else

IsEditable = True

End If

End Function

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

2、房源数据管理

' ******************************************************************************

'窗体公共变量定义

' ******************************************************************************

Option Explicit

Private txtSql As String 'SQL语句

Private result As Integer 'datagrid中的显示记录数

Private strItem As String '与楼盘名称对应的楼盘编码

Private strReg As String '与区域名称对应的区域编码

Private strStru As String '与户型名称对应的户型编码

Public strHouseId As String '房源编号

Public strHouseame As String '房源名称

Public strRegame As String '区域名称

Public strItemame As String '楼盘名称

Public strItemYear As String '建筑年代

Public strItemCop As String '建筑单位

Public strStruame As String '户型名称

Public strArea As String '面积

Public strFloor As String '楼层

Public strAllFloor As String '总楼层

Public strUnit As String '单元

Public strCarArea As String '车库面积

Public strSchool As String '学校

Public strBus As String '公交线路

Public strStreet As String '临近街道

Public strChamber As String '小区会所

Public strDoorumber As String '梯户

Public strSquer As String '广场

Public strEst As String '基础设施

Public strFitment As String '装修状况

Public strServiceFee As String '物业管理费

Public strBelong As String '权属

Public strPrice As String '售价

Public HouseFlag As String '判断添加删除标志

Private Sub cmdAdd_Click()

HouseFlag = "add"

End Sub

Private Sub cmdClear_Click()

Call ComboYear(cboItemYear)

Call setCboDataItem(cboItem)

Call setCboDataReg(cboReg)

Call setCboDataStru(cboStru)

End Sub

Private Sub cmdDel_Click()

Dim str As String

Dim rstHouse As set

Dim results As String

Dim bIsEditable As Boolean

bIsEditable = IsEditable

If Len(Trim(strHouseId)) = 0 Then

MsgBox "请点击单元格选择删除的记录！", vbOKOnly + vbExclamation, "警告"

Exit Sub

End If

txtSql = "select HouseId from tbContractp where HouseId='" + strHouseId + "'"

If DBExist(txtSql) <> 0 Then

MsgBox "该房源正在进行交易，不能删除！", vbOKOnly + vbExclamation, "警告"

Exit Sub

End If

'判断经纪人能否删除该责任区域房源信息

If bIsEditable = False And gUserKind = "经纪人" Then

MsgBox "您不能更新责任区域以外的数据", vbOKOnly + vbExclamation, "警告"

Exit Sub

End If

str = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")

If str = vbOK Then

txtSql = "delete from tbHouse where HouseId='" + strHouseId + "'"

results = ExecuteSQL(txtSql, rstHouse, True)

MsgBox "删除成功！", vbOKOnly + vbExclamation, "警告"

End If

Call viewDataHouse

End Sub

Private Sub cmdExit_Click()

Unload Me

End Sub

Private Sub cmdModify_Click()

Dim bIsEditable As Boolean

bIsEditable = IsEditable

If Trim(strHouseId) = "" Then

MsgBox "请点击单元格选择修改记录", vbOKOnly + vbExclamation, "警告"

Else

'判断经纪人能否修改该责任区域房源信息

If bIsEditable = False And gUserKind = "经纪人" Then

'提示警告信息

MsgBox "您不能更新责任区域以外的数据", vbOKOnly + vbExclamation, "警告"

Exit Sub

End If

HouseFlag = "Modify"

End If

End Sub

'查询操作

Private Sub cmdQuery_Click()

txtSql = "select HouseId as 房源编号,Houseame as 房源名称,Regame as 所属区域名

称,"

txtSql = txtSql + "Itemame as 楼盘名称,ItemYear as 建筑年代,ItemCop as 建筑单位,"

txtSql = txtSql + "Struame as 户型名称,Area as 面积,Floor as 楼层,AllFloor as 总楼层,"

txtSql = txtSql + "Unit as 单元,CarArea as 车库面积,School as 学校,Bus as 公交线路,"

txtSql = txtSql + "Street as 临近街道, Chamber as 小区会所,Doorumber as 梯户,Squer as

广场,"

txtSql = txtSql + "Est as 基础设施,Fitment as 装修状况,ServiceFee as 物业管理费,Belong

as 权属,Price as [售价(万元)],State as 销售状态"

txtSql = txtSql + " from ((tbHouse left outer join tbRegion on =)

"

txtSql = txtSql + " left outer join tbItem on =)"

txtSql = txtSql + " left outer join tbStru on = where

d=d"

If <> "" Then

txtSql = txtSql + " and ItemYear= '" + + "'"

End If

If <> "" Then

Call getCboId(cboItem, strItem)

txtSql = txtSql + " and = '" + strItem + "'"

End If

If <> "" Then

Call getCboId(cboReg, strReg)

txtSql = txtSql + " and = '" + strReg + "'"

End If

If <> "" Then

Call getCboId(cboStru, strStru)

txtSql = txtSql + " and = '" + strStru + "'"

End If

Set urce = othing

result = viewData(txtSql, dgHouse)

End Sub

Private Sub dgHouse_DblClick()

Dim bIsEditable As Boolean

bIsEditable = IsEditable

If result = 0 Then

HouseFlag = "add"

Else

'双击单元格进行修改操作时，判断经纪人能否修改该责任区域房源信息

If bIsEditable = False And gUserKind = "经纪人" Then

MsgBox "您不能更新责任区域以外的数据", vbOKOnly + vbExclamation, "警告"

Exit Sub

End If

HouseFlag = "Modify"

End If

End Sub

' ******************************************************************************

'过程名：viewDataHouse

'说 明：将数据在datagrid中显示

'参 数：无

'返回值：无

' ******************************************************************************

'过程名：purview

'说 明：设置权限

'参 数：无

'返回值：无

' ******************************************************************************

Private Sub purview()

Select Case gUserKind

Case "合同责任人"

d = False

d = False

d = False

End Select

End Sub

' ******************************************************************************

'函数名：IsEditable

'说 明：判断经纪人能否修改房源信息

'参 数：无

'返回值：可以修改返回true，否则返回false

' ******************************************************************************

Private Function IsEditable() As Boolean

IsEditable = False

Dim res As String

Dim rstEdit As set

Dim i As Integer

Call getCboId(cboReg, strReg)

txtSql = "select RegId from tbSaleMan where SaleManId='" + gUserame + "'"

res = ExecuteSQL(txtSql, rstEdit, False)

If Count <> 0 Then

If strReg = (0) Then

IsEditable = True

End If

End If

End Function

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

7 测试阶段

本系统通过黑格阶测试进行软件的测试，基本可以满足房地产经纪公司的要求。为了保

证系统的运行稳定，在使用和维护中还得注意以下几个问题：

1） 定期备份数据库

2） 定期清理数据库中的无效数据，以提高运行效率

3） 对软件以及环境进行日常维护

本系统着重处理日常业务，没有提供销售数据的分析功能。下一步可以在熟悉系统业务

和模块的基础上，利用数据转换服务定期生成一些统计数据，添加一些简单的数据分析模块，

例如员工数据分析，各区域销售额分析等，实现系统的功能扩展。

8 个人总结

通过此次系统，我学会了怎样针对一个软件去分析它的需求，它的系统设计以及数据库

设计还有软件的具体实现、测试、维护、不足！掌握了软件工程的基本流程，编写这份文档

花了很多时间和精力，查了相关书籍，也学到了一些知识！但是也有不足的地方，就是自

己对软件测试这方面的了解还是比较薄弱，文档中对于测试方面的分析也很少！我会继续加

强和完善这方面知识的学习。

参考文献

1）vb程序设计简明教程 高等教育出版社 龚沛曾

2）实用软件工程 电子工业出版社 赵池龙 杨林 孙伟

目 录

1初步调查

1.1收集相关信息：

通过到超市的多次走访，收集到以下信息：

在我国超市形成在20世纪90年代初期，现在已经成为我国零售业的一种重要

形态，为国民经济的发展发挥了重要的作用。随着超市高速的发展，其经营管理也

变得愈加复杂，早期的售货员站柜台的形式早已不能满足现有销售也的发展，超市

需要处理大量的库存信息，还要时刻更新产品的销售信息，不断添加商品信息。面

对不同种类的信息，需要合理的数据库结构来保存数据信息，需要有效的程序结构

支持各种数据操作的执行。商店自动化的产品管理在欧美等国家早已经实现，也是

零售业管理的基础。它最主要的特点是能够实时的和准确的控制店内的销售情况。

对于我国来说，超市已经普遍存在，这种自动化管理也成为必要，有必要通过管理

系统的应用来提高超市的服务效率。如果可以能够实时掌握销售流程及销售情况，

则可以有效地加速商品的周转率并提高服务质量，而且可以减少产品售价不符等所

产生的问题。顾客的消费要求的是希望在超市购物中能基本上都能购得所需的商

品，并且还要既保证商品质量还要享受优质，方便的服务。

1.2分析信息得出结论：

分析收集到的有关信息，并与管理员和有关领导沟通，得出初步调查的结论：

超市管理系统是市场上最流行的超市上常用的系统之一，它主要包含以下几个

模块：系统权限的设定、原始数据录入、数据的汇总及查询等。从而，实现对进货、

销售及员工信息等实现全面、动态、及时的管理。但由于超市的整个系统过大。并

且销售对一个企业的生存和发展是至关重要的，它不再是传统意义上的“卖东西”，

它对外关系到企业产品、服务和企业形象等多方面因素，对内涉及到销售、库存、

财务等信息。此外信息化的高速发展为企业的销售工作提出了新的挑战，封闭意味

着落后，超市要抓住时机，引入现代化的销售管理模式，实施企业的信息化、智能

化销售管理，才能使超市在激烈的市场竞争中立于不败之地。

因此，经本小组讨论后，一致决定仅选取销售这一模块进行系统设计与分析。

2 系统可行性研究

2.1技术可行性研究

在IT行业中从业的工作人员一般都要求掌握计算机技术，具有一定的软硬件

基础，会使用各种管理软件，熟悉IT产品。因为，有的超市对员工的素质要求比

较高，从管理层到下面的销售人员，都要求具有一定的计算机基础，所以在新系统

投入使用时，只要对员工进行少量的培训，系统的功能和使用方法就基本上能够是

系统顺利运行。

2.2经济可行性研究

因为通过网络传递销售信息可以不受距离的限制，因此可以借阅许多的人力和

物力，方便管理，由此可以减少不必要的开支，同时该系统可以提高超市的销售效

率，即提高了超市的经济效益，所以从经济上完全是可行的。

(1)超市有能力承担系统开发费用

开发新系统的工作是一项间距复杂的工作，它的投资主要是人力和物力的投

资。对于本系统的开发者来说，其主要投资还是在人力和物力两个方面。如果是企

业自己安排人手开发系统的话，其主要的投资还是在人力资源上，从系统的业务需

求调查到系统的分析编码制作都是需要巨大的人力投入的。软件企业作为一个简短

的高科技产业，其员工要求都比一般企业的要求要高，而且对系统开发及软件产业

了解比较多，所以在自我开发管理系统的过程中，企业自己比较容易安排人手，这

样就可以为企业借阅大部分的额外开支。同时软件就其它产品来说，属于高端行业，

无论是产品的价格还是质量都比较高，而经营产品的经销商或者是商家都要求有雄

厚的资金支持。所以，在系统的开发过程中，企业完全有能力承担开发费用。

(2)新系统将为企业带来经济效益

销售管理系统是一个信息化、智能化和先进管理理念的集合体。而销售管理是

一个动态过程，在其运行过程中要采取多项措施。所以在管理中获得经济效益是一

个综合效益，要对它进行直接定量的分析是比较困难的。一般新系统带来的经济效

益是简介的，其最主要的表现就是能够及时地了解超市每日的销售情况，据此还可

实现短缺商品的配送。而其它一些繁琐的食物都通过新系统来加以分析解决，不仅

节省了大量的时间，还为企业的各项决策提供了宝贵的资料，为企业带来巨大的经

济效益。

2.3操作可行性研究

本系统采用基于Windows的图形用户界面，而该系统是大家熟悉的操作系统，

对于那些有一般的计算机知识的人员就可以轻松上手。而超市销售管理系统采用最

友好的交互界面，简介明了，不需要对数据库进行深入的了解。由此，该系统的操

作是可行的，有必要开发该系统。

2.4可行性结论

通过以上可行性分析，得出的结论是超市销售管理系统的开发在管理上、技术

上、经济上都是可行的，可以立即开发。因此，可以设计该系统的数据流程图，建

立数据字典。

3详细调查

3.1详细调查方法

（1） 面谈

即通过与有关人员面对面交谈来获取有关信息，可以是一对一的专访或

一对多的座谈。

（2） 问卷调查

即通过设计制作调查表，向被调查者发放调查表进行调查的方式。根据

被调查者的特点选择用选择题还是问答题，要向被调查者阐明调查的目

的及关系，采用匿名或自愿署名等方式。

（3） 阅读文件或历史资料

通过阅读组织的文件与历史资料，可间接了解组织的相关信息。

（4） 实地观察与实践

信息收集人员直接观察或参加现行系统的业务实践，这是缩短用户与开

发人员距离、取得共同语言的最好方法。缺点是浪费时间。

3.2管理业务调查

3.2.1组织结构调查

根据调查结果，企业人事部将安排专职人员对超市的销售情况惊醒监督管理，

也就说本销售系统开发出来后会有专业人员来操作执行。该管理软件将根据用户的

需要销售情况进行查询，并能打印详细信息。

组织结构图如图3-1所示

超市销售系统

销

售

信

息

查

询

销

售

信

息

维

护

图3-1

销

售

信

息

盘

点

3.2.2业务流程调查

根据分析，本系统业务流程主要包括如下内容：

 顾客发订单给销售部门

 销售部门经过订单检查，把不合格的订单反馈给客户

 对合格的订单，通过核对库存记录，缺货订单通过缺货统计，向采购部门发出

缺货通知，并登记缺货记录；对于可供货订单，登记客户档案，开出备货单，

通知仓库备货。

 保存订单数据，并进行销售统计。

业务流程图如图3-2所示：

顾销

客 售

前

发货单

货单

不合格货单 缺货货单

检验货单

顾客档案

可供货货单

缺货统计

开始备货

缺货通知

备货单

供应商

仓

库

销售统计表

销售统计

缺货记录

库存记录 处理备货单

图3-2

3.3数据流程调查

根据调查结果绘出销售系统数据流程图如下：

（1）0层数据流程图

P0

顾客订货

顾客档案

销售统计表

业务

处理

库存记录

（2）1层数据流程图

可供货货单

不合格货单

P1

校验

数据

缺货货单

校验

数据

顾客档案

顾客货单

P2

缺货货单 缺货通知

缺货

统计

少供货货单 库存记录

P3

备货

处理

销售统计表

（3）2层数据流程图

P1.1

登录新顾客档案

顾客的

数据

F1.1

D1.1

S1.1

顾客

新顾客登记表

D2.1

S2.1

供应商

发货通知

P2.1

处理

发货单

F2.1

发货单

S3.1

仓库

D3.1

备货单

P3.1

处理

备货单

F3.1

库存记录

S3.2

超市

D3.2

发货单

P3.2

F3.2 销售统计表

销售

统计

3.4数据字典：

3.4.1数据流

数据流编号：D1.1

数据流名称：新顾客登记表

简述：新顾客来超市订货时要填写有关自身信息的表

数据流来源：无

数据流去向：登录新顾客数据处理

数据项组成：姓名+性别+单位+职务++订货量+订货日期

数据流量：10张/月

高峰流量：20张/月

数据流编号：D2.1

数据流名称：发货通知

简述：供应商接到的来自超市的要求发货的通知

数据流来源：订货单

数据流去向：发货单

数据项组成：商品名称+商品编号+订购量+订购日期

数据流量：10张/月，高峰流量：20张/月

数据流编号：D3.1

数据流名称：备货单

简述：根据顾客订货需求而制定的通知仓库人员准备相应量商品的清单

数据流来源：开备货单

数据流去向：仓库

数据项组成：商品名称+商品编号+商品数量+订购单位+提货日期

数据流量：10张/月，高峰流量：20张/月

数据流编号：D1.4

数据流名称：发货单

简述：给顾客提供商品的时候，超市销售人员统计的销售情况表单