辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）
的确切含义，只有给出了数据流图中数据流、文件、加工等的详细、确切描述才较完整的描述了这个系统。这个描述每个数据流、第个文件、每个加工的集合就是所谓的数据字典。
A）分析数据项
找出真正需要放入数据表的数据项,也就是要确定数据表的字段，去掉多余的字段与加入没有的字段，最后将所有确定的字段全部加入一数据表内，经过数据库规格化后便会分割成数个适当的数据表，故其数据库规范化后会分割成数个适当大小的数据表，故其输出为一数据表。
2．1．2概念设计
在需求分析阶段，我们在充分调查的基础上描述了用户的需求，但这些需求是现实世界的具体需求。在进行数据库设计中，设计人员面临的任务是将现实世界的具体事物转换成计算机能够处理的数据。我们在这里将现实世界的事物及其联系抽象成信息世界的实体及实体的之间的联系，这就实体——联系方法。
完成数据库的概念设计，得出一个E—R模型以后，必须转换成某种DBMS可以接受的数据模型。从分析输入数据着手，输入数据中的某类相关数据可以归纳为一库文件，对需要同时调用数据的若干库文件应符合它们的关联要求，其中有的库文件要补充关键字段。具体可概括为以下三个步骤：(a)E—R模型向关系模型转换。 (b)E—R模型可以转换成三种实用的数据模型，即层次模型网状模型和关系模型。(c)数据依赖 ,关系规范化
本系统根据供贷商基本资料、促销员基本资料、商店基本资料以及入库出库基本资料等的数据需求，从中归纳出：
合同表：CONTRACT（店编号、品名编号、每年任务、合同期限、合同生效时间、签定时间）
入库表：DONATEIN（厂编号、品名编号、数量、单价、日期）
厂编号表：FACTORYNO（厂编号、厂名称、联系人、电话、开始时间、地区、地址） 商品编号表：GOODSNO（品名编号、品名、规格、厂编号、备注）
3
辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）
出库表：OUTPUT（业务员编号、店编号、品名编号、数量、单价、实收款、日期、收款日期）
付款表：PAYOFF（厂编号、金额、日期）
促销员兑现表：SALEMANPAY（厂编号、品名编号、数量、日期）
促销员资料表：SALESMAN（店编号、品名编号、姓名、统计时间、待销量、电话） 店固定资产投入表：SHOPCOST（店编号、物料名称、数量、单价、时间） 销售店档案表：SHOPHOST（店编号、店名、姓名、身份证号、地区、路线、电话、开始时间、地址、业务员、备注）
业务员档案表：WORKERS（业务员编号、姓名、电话、聘用日期、地址、备注） 密码表：MIMA（USER、PASSWORDD、RIGHTT）
2．1．3逻辑设计
按照功能分类是总体设计中常用的方法，程序的总体结构则可用层次图来表示，这种图自上而下进行分层，第一层为系统层，第二层为子系统层，第三层为功能层，第四层为操作层。从主程序进入系统，由主程序调用系统封面，再由封面调用登录程序，当登录成功后，调用系统的主菜单进入系统界面。SEO探索网系统的结构框图如下：
用户登录 系统封面
成功与否
调用系统菜单进入系统 否 4
辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）
1、确定程序的总体结构
退出系统 2．1．4物理设计
编号资料 数据录入 仓库管理系统 查询报表 系统维护 退出
主程序的作用是调用登陆界面进行登陆，同时为了系统的美观与安全，关闭系统菜单，命令窗口等等。打开项目管理器的code，选择program，新建程序文件main.prg,main.prg的代码如下：
_screen.titlebar=1 _screen.controlbox=.t. _screen.windowstate=2
_screen.caption=\仓库管理系统 版本 1.0\close all clear all clea
set sysmenu off set sysmenu to set talk off
5
辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）
set delete on set exact off set status bar off do form d:\\hdz\\登陆表单 Dim cn As New ADODB.Connection Dim rs As New www.lianshanqu.com Private Sub Command1_Click()
strsql = \登录表 where 用户名='\密码='\
rs.Open strsql, cn, 1, 3 If rs.EOF Then
MsgBox \用户名或密码错了\警告\Else Form5.Show Unload Me End If End Sub
Private Sub Command2_Click() End End Sub
Private Sub Image1_Click() End Sub
Private Sub 注册_Click()
If Text1.Text = \MsgBox \用户名和密码不能为空\警告\Else
Dim rs As New ADODB.Recordset
str1 = \登录表 where 用户名='\
6