内容发布更新时间 : 2024/12/23 14:38:42星期一 下面是文章的全部内容请认真阅读。

修改和删除。

(2) 对物品的管理：物品的加入必须由客户向管理员提出，并物品到达仓库后，管理员才加入。对加入的物品在首页进行显示，以方便游客和用户对物品的动态有最新，最快的了解。物品有一定的时间期限和数量上的限制。基本操作是查看、添加、修改和删除。

(3) 管理员的管理：这里是对管理员的基本信息的管理。由于一些原因，我们在这里并不有管理员权限的差异，即所有管理员都其它管理员一样有修改的权限。基本操作是查看、添加、修改和删除。

(4) 库存操作：主要是实现了入库和出库的操作。这里操作通作操作员（管理员）对应编号的物品进行入库或出库的操作，实现一个用户和客户之间交易的平台，能更有效对各种物品交易进行管理。

3.4 数据库的设计与实现

3.4.1 数据库的需求分析

根据系统需求可知，该系统数据库需建五张表： 出或入库记录表：存放物品主要出入库信息。 客户信息表：存放用户的基本信息及权限。

库存信息表：记录仓库具体物品的基本信息和属性。 留言信息表：记录留言者的基本信息和权限。 管理员信息表：记录管理员的基本信息和权限。

第 8 页 共 23页

对应的数据库表之间的逻辑关系图如下：

图3-2 数据库表之间的逻辑关系

3.4.2 数据库的设计与实现

经过数据库分析与得到的逻辑结构。本系统使用Microsoft SQA Server 2000作为数据库开发工具；创建名为KCXX的数据库根据各种功能的实现以及考虑到将来系统功能上的扩展，设计如下数据项和数据结构：

列名 物品编号 物品名字 物品类型 物品总数 盘点时间 物品价格 最大限数量 最小限数量 有效日期 状态 数据类型 Int Varchar varchar Int Datetime Money Int Int Datetime Char 表3-1出或入库记录表

长度 4 40 30 4 8 8 4 4 8 10 允许空 否 是 是 是 是 是 是 是 是 是 第 9 页 共 23页

列名 客户编号 客户单位或个人 客户类型 地址 联系方式 数据类型 Int Varchar Char Varchar char 表3-2客户信息长度 4 50 10 50 20 允许空 否 是 是 是 是 列名 ID 物品编号 客户编号 员工编号 物品数量 出库或入库类型 操作时间 金额 lx 数据类型 Int Int Int Int Int Char Datetime Money Int 表3-3库存信息表 4 4 4 4 4 8 8 8 4 长度 允许空 否 是 是 是 是 是 是 是 是 表3-4留言信息表 列名 留言日期 呢称 标题 内容

列名 员工编号 员工姓名 登录名 密码 数据类型 Datetime Char Char varchar 长度 8 20 25 5000 允许空 否 是 是 是 表3-5管理员信息表 数据类型 Int Char Char char 长度 4 10 10 8 允许空 否 是 是 是 第 10 页 共 23页

4 系统功能的实现及相应代码

4.1 用户查询模块以及相应代码

用户查询分为两种查询一种是全部列出和分类查询。

（1）用户查询模块的功能：全部列出指将仓库里的所有物品信息全部列出来，提供给用户。分类查询指根据物品的某些属性来查找物品。

（2）部分代码如下：

…… Dim rs1 Dim rs1_numRows Set rs1 = Server.CreateObject(\ rs1.ActiveConnection = MM_kcxx_STRING if cxnr=\ rs1.Source= \库存信息 where 物品编号 > 0\

elseif clxl=\物品编号\物品总数\最大限数量\=\最小限数量\物品单价\ then

cxnr=clng(cxnr)

rs1.Source = \ FROM dbo.库存信息 where \ elseif clxl=\盘点时间\有效日期\ then cxnr=cdate(cxnr)

rs1.Source = \ FROM dbo.库存信息 where \

else

rs1.Source = \ FROM dbo.库存信息 where \ end if rs1.CursorType = 0 rs1.CursorLocation = 2 rs1.LockType = 1 rs1.Open() rs1_numRows = 0 %>…… else

rs1.Source = \ FROM dbo.库存信息 where \ end if %>

根据物品属性的不同，以不同的形式来的查寻。全部列出的实现只有在输入信息框里没写入信息的时候激活。

4.2 网络管理模块及相应代码

（1）网络管理功能：提供给管理员进行操作。即对要进入此页面的人进行验证登陆。网络管理页面左下角为四个方面（客户、仓库、管理员、库存操作），点击相关的按键会出现具体的操作按键，同时在网页中心显示相应的功能界面，以供管理员进行操作。

第 11 页 共 23页

（2）部分代码如下： ……

<%

if xx=\客户信息\ Server.execute(\ elseif xx=\客户添加\ Server.Execute(\ elseif xx=\客户修改\ response.redirect \ elseif xx=\客户删除\ response.redirect \ elseif xx=\仓库信息\ Server.execute(\ elseif xx=\仓库添加\ Server.Execute(\ elseif xx=\仓库修改\ response.redirect \ elseif xx=\仓库删除\ response.redirect \ elseif xx=\管理员信息\ Server.execute(\ elseif xx=\管理员添加\ Server.Execute(\ elseif xx=\管理员修改\ response.redirect \ elseif xx=\管理员删除\ response.redirect \ elseif xx=\库存操作\ Server.Execute(\ end if %>

<%end if %>

4.3 留言版模块及相应代码

（1）留言版模块功能：是提供给用户进行留言，用户对本系统有什么建议、意见或者疑问可以在留言版留言，管理员可以从中及时了解用户的意见，及时做出进行改良或者回答疑问，让用户能很满意的使用本系统。

（2）部分代码如下： <%

If session (\Dim rs

Dim rs_numRows

第 12 页 共 23页