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