资源描述：
《仓库管理系统的VISAULFOXPRO实现下》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、仓库管理系统的VISAULFOXPRO实现（下）4．4设备还库模块的设计在设备还库模块中将实现设备还库数据的添加和修改库存等功能，按照前面介绍的步骤设计设备还库表。设备还库表所可能用到的控件的属性如表所示：（1）Form1控件的主要属性：select现有库存表*先在该表单的数据环境中添加现有库存表getid=thisform.设备号1.text1.valuesetorderto设备号seekgetid*在现有库存表中查找设备号等于getid的纪录iffound()getnum=thisform.归还数量1.text1.valueupdate现有库存表;s
2、et现有库存=(现有库存-getnum)where(设备号=getid)insertinto操作日志表(操作员,操作内容,操作时间);values(thisform.归还人1.text1.value,'设备还库',date())*如果库存表中有该项设备，则更新库存表,同时更新操作日志23elsemessagebox("出错",1,"错误的设备号")*如果没有该设备号则报告出错信息endif保存后运行表单，可得到如图所示的设备还库表。4．5设备需求模块的设计在设备需求模块中将实现设备需求数据的添加和保存日志等功能。首先通过VisualFoxpro的表单向导
3、生成所需的设备需求表单，选择部门需求表的所有可用字段，然后为保持程序风格的一致，继续采用表单的阴影式和图片按钮的风格。在“步骤3-排序次序”时。选择设备号的升序排列。最后单击“完成”按钮，把表单保存在“c:仓库管理”目录下，名为“设备需求.scx”。通过表单向导生成的表单如图所示，我们可以调节控件的位置，修改表单中控件的属性，最后结果所下图所示：在表单设计器中，双击“保存日志”命令按钮。添加click事件代码如下：insertinto操作日志表(操作员,操作内容,操作时间)values23(username,'设备需求',date())双击回主界面命令按
4、钮，添加click事件代码如下：thisform.releasedoform仓库管理保存对表单所作的修改。4．6设备采购模块的设计在设备采购模块中将实现设备采购数据的添加和保存日志等功能。（1）由数据表生成表单通过VisualFoxpro的表单向导，生成设备采购计划表单。在选择数据库和表时，选择仓库管理数据库和设备采购计划表。在选择字段时，选择所有可用字段，选择阴影式和图片按钮作为设备采购计划表的样式。选择计划采购时间的升序排列作为设备采购计划表的索引。（2）为窗体修改和添加命令按钮添加2个命令按钮“保存日志”和“回主界面”。设置表单中控件的属性。下面的
5、表列出了需要修改的控件的名称以及属性值。（1）Form1控件的主要属性：（3）为按钮添加click事件代码：在表单设计器中，双击保存日志命令按钮。添加click事件代码如下：insertinto操作日志表(操作员,操作内容,操作时间)values23(username,"设备需求",date())*把设备需求写入操作日志表中双击回主界面按钮，添加click事件代码如下：thisform.release*释放本表单doform仓库管理*运行仓库管理界面保存对表单所作的修改，表单运行效果如图所示：4．7显示报表模块的设计在该模块中，一共要显示3个报表，分别提
6、供库存不足，库存过多和操作日志等信息。1．设计显示报表表单在项目管理器的文档视图下选择“新建”，然后选择新建表单，如图所示。在如图所示的空白表单中添加一个页框控件，并按照下表设置页框的属性，同时在数据环境里添加现有库存表和操作日志表。23操作日志表设置表格控件的属性，如表所示：grid1控件的主要属性表：2．代码设计定义Pageframe1.Page1.grid1的init事件运行“显示报表”表单，界面所图所示：localCusts1select设备号,最大库存,现有库存from现有库存表where(现有库存>最大库存)intocursorCust
7、s1thisform.页框.库存过多.库存过多表.recordsource="Custs1"定义Pageframe1.Page2.grid1的init事件localCusts2select设备号,最小库存,现有库存from现有库存表where(现有库存<最小库存)intocursorCusts2thisform.页框.库存不足.库存不足表.recordsource="Custs2"定义Pageframe1.Page3.grid1的init事件localCusts3select*from操作日志表intocursorCusts323thisform.
8、页框.操作日志.操作日志表1.recordsource="Custs3"运行“显
