|
各模块的E-R图设计： 内容来自www.paper51.com 1．交易管理模块：用于管理商品的进货，进销存，退货登记的操作。实体E-R图如下： paper51.com http://www.paper51.com copyright paper51.com 2．进货统计管理：主要用于对商品每日,每月，第季度，每年的进货情况进行统计管理，此功能只有以管理员的身份进入时才为可用状态。实体E-R图如下： 内容来自论文无忧网 www.paper51.com
copyright paper51.com
copyright paper51.com 3．进销存统计管理：主要用于对商品每日,每月，第季度，每年的进销存情况进行统计管理，此功能只有以管理员的身份进入时才为可用状态。实体E-R图如下： copyright paper51.com
内容来自www.paper51.com
内容来自www.paper51.com 4．查看数据表：主要能查看进货表，商品信息表，进销存表，退货表等进行查看，以实现对商品信息的及时了解。实体E-R图如下： copyright paper51.com
http://www.paper51.com
内容来自www.paper51.com 2.4系统演示 paper51.com
copyright paper51.com
进入系统初始化界面 http://www.paper51.com copyright paper51.com 图2-2 系统初始化窗体 copyright paper51.com
图2-3 管理员主界面 copyright paper51.com 管理员权限：进货统计、销货统计、查看数据表、系统管理。 paper51.com 进货统计界面 http://www.paper51.com 图2-4 进货统计窗体 copyright paper51.com 销货统计界面 paper51.com
图2-5 销货统计界面 内容来自论文无忧网 www.paper51.com 进货表界面 内容来自www.paper51.com 图2-6 进货表窗体 copyright paper51.com
进销存表、退货表、商品库存表、进货商表与进货表基本相同，表略。 内容来自www.paper51.com 查询库存表界面 修改密码界面 copyright paper51.com 图2-7 查询现存商品窗体 图2-8 修改密码窗体 内容来自论文无忧网 www.paper51.com 管理员工表界面 copyright paper51.com 图2-9管理员工表窗体 paper51.com
关于界面 paper51.com 图2-10关于窗体 copyright paper51.com 当普通用户登陆本系统时，其权限只有主界面的交易管理和系统管理。下面列出交易管理模块中的三个窗体。 paper51.com 销货界面 http://www.paper51.com 图2-11 添加销货信息窗体 内容来自www.paper51.com 退货界面 内容来自论文无忧网 www.paper51.com
图2-12 添加退货信息界面 paper51.com
进货界面 paper51.com 图2-13 添加进货信息窗体 内容来自论文无忧网 www.paper51.com 第三章 系统测试 内容来自论文无忧网 www.paper51.com 本章是对企业商品销售管理系统进行全面测试，目的在于屏蔽掉系统无法识别的多种非法操作。已防止在用户对本系统进行使用时错误操作造成系统出错。 内容来自论文无忧网 www.paper51.com 在本企业商品销售管理系统所有界面和功能都已设计完毕后，需要对其进行一下测试，以屏蔽掉许多的非法操作，进一步完善本企业商品销售管理系统。具体测试结果如下: paper51.com
（1）对交易管理模块进行测试： paper51.com 在进货登记窗体中，发现对于进货编号系统需要对其进行唯一设定，即入库登记时进货编号应是buy（进货表）表中所没有的。所以需要先屏蔽掉该处的非法操作。具体做法是：在窗体级变量中定义一个变量rs_buy，作为对buy（进货表）表的记录集。让记录集连接到一个指定进货编号为进货登记窗体中文本框text2的text属性的值的进货表记录中，如果该记录的编号与正在添加的进货信息中的进货编号一致，则提示用户该编号已无法使用。如图5-1所示： 内容来自www.paper51.com paper51.com 图5-1 内容来自www.paper51.com 其实现主要代码如下所示： 内容来自www.paper51.com Dim rs_buy As NewADODB.Recordset ‘ 定义连接buy表的记录集 内容来自www.paper51.com Dim str_buy As String ‘ 定义连接SQL的连接字符串 paper51.com Private Sub Command1_Click() ‘ 单击商品入库按钮事件 copyright paper51.com str_buy = "select *from buy where 进货编号='" & Text1.Text & "'" paper51.com rs_buy.Open str_buy, cnn,adOpenStatic, adLockOptimistic http://www.paper51.com
If rs_buy.EOF = True Then 内容来自www.paper51.com rs_buy.AddNew 内容来自www.paper51.com
rs_buy.Fields("进货编号") =Text1.Text paper51.com
……’将进货信息添加到buy(进货表)表中 copyright paper51.com rs_buy.Update paper51.com rs_buy.Close ' 关闭进货表 内容来自www.paper51.com
Else 内容来自论文无忧网 www.paper51.com MsgBox "此进货编号已存在,请重添！", vbOKOnly + vbInformation, "注意" copyright paper51.com Text1.Text = "" copyright paper51.com Text1.SetFocus copyright paper51.com rs_buy.Close 内容来自www.paper51.com Exit Sub 内容来自www.paper51.com End If 内容来自www.paper51.com End Sub http://www.paper51.com 对于进货信息入库操作中，需要对商品编号进行核对，如果新输入的商品编号为goods表所有，则直接将该添加信息的数量添加到goods表相对应的记录上即可。同时为了方便用户的操作，在输入商品编号的文本框text2的Change事件里设定了关于已存在商品编号的处理：将该商品的其它属性自动添加到该窗体的对应文本框中。进货商信息的添加一样需要屏蔽掉相同的厂商编号。 内容来自论文无忧网 www.paper51.com 在销货登记窗体中，销货编号也要保持其唯一性，具体做法与上面所说的屏蔽进货编号大体一致，这里就不在说明了。同时为了方便用户的操作，在输入商品编号的文本框text2的Change事件里设定了关于已存在商品编号的处理：将该商品的其它属性自动添加到该窗体的对应文本框中。进货商信息的添加一样需要屏蔽掉相同的厂商编号。 copyright paper51.com 在退货登记窗体中，先对退货编号的唯一性进行一下设定，具体做法同进货编号唯一性的设定一致，这里也不在详细说明了。 copyright paper51.com
|