分享到:
计算机软件 最近更新
讨论未来电商发展趋势论文提纲
浅谈自媒体对现代生活的影响
论文范文:网络发展对青少年心理发展的影响
论我国电子商务应用中的支付问题
电子商务模式研究
中小型企业客户关系管理系统的开发与应用
中石油浙江销售分公司信息管理系统设计
图书馆管理系统分析与设计
物流师职业资格认证报名管理系统
销售管理系统的开发与设计
酒店客房管理系统
财务管理系统的实现
餐饮管理系统设计与实现
社区卫生服务管理系统
汽车营销企业的客户关系管理系统
明道管理咨询有限公司客户关系管理系统设计与开发
企业订单管理系统开发
基于WEB的CRM信息系统的开发与研究
高校科研工作量统计系统的开发与设计
基于Struts的连锁店管理系统
纵横进出口产品管理系统(10)
分页标题#e#
ENDIF
IF NOT EMPTY(ALLTRIM(THISFORM.cmb商品类别.Value))
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.cmb商品类别.Value) + "' $ 类别"
ENDIF
IF NOT EMPTY(ALLTRIM(THISFORM.txt经手人.Value))
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.txt经手人.Value) + "' $ 经手人"
ENDIF
IF NOT EMPTY(ALLTRIM(THISFORM.txt接收人.Value))
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.txt接收人.Value) + "' $ 接收人"
ENDIF
IF NOT EMPTY(THISFORM.txt出货日期.Value)
 nYear=YEAR(THISFORM.txt出货日期.Value)
 nMonth=MONTH(THISFORM.txt出货日期.Value)
 nDay=DAY(THISFORM.txt出货日期.Value)
 sDate=ALLTRIM(STR(nYear))+"/"+ALLTRIM(STR(nMonth))+"/"+ALLTRIM(STR(nDay))
   SearchFilter=SearchFilter + "AND TTOD(出货时间)={^"+sDate +"}"
ENDIF
*——设置过滤条件
SELECT OutView
SET FILTER TO
SET FILTER TO &SearchFilter
*——刷新表单
THISFORM.Refresh

 

 

库存记录查询:能实现对现有库存商品的查询,如图4.16:
 
 图4.16 库存记录查询
库存查询代码
SearchFilter=".T."
IF NOT EMPTY(ALLTRIM(THISFORM.txt商品编号.Value))
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.txt商品编号.Value) + "' $ 商品编号"
ENDIF
IF NOT EMPTY(THISFORM.txt商品名称.Value)
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.txt商品名称.Value) + "' $ 商品名称"
ENDIF
IF NOT EMPTY(ALLTRIM(THISFORM.cmb商品类别.Value))
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.cmb商品类别.Value) + "' $ 类别"
ENDIF
*设置过滤条件
SELECT StoreView
SET FILTER TO
SET FILTER TO &SearchFilter
*刷新表单
THISFORM.Refresh

进货操作:能实现对货物的添加操作,如图4.17
 
图4.17 进货操作
进货操作设计代码:
*——获取表单中的数据
InNo=ALLTRIM(THISFORM.txt进货编号.Value)
PNo=THISFORM.cmb商品编号.Value
InCount=THISFORM.txt进货数量.Value
InPrice=THISFORM.txt进货单价.Value
InTime=THISFORM.txt进货时间.Value
InPerson=ALLTRIM(THISFORM.txt经手人.Value)
InDanWei=ALLTRIM(THISFORM.txt供货单位.Value)
InNote=THISFORM.edt说明.Value
*——如果商品编号为空
IF PNo==""
 MESSAGEBOX("商品编号为空或者错误",48,"进销存管理系统")
 THISFORM.cmb商品编号.SetFocus
 Return
ENDIF
*——检查商品编号合法性
DIMENSION RecNum(1)
RecNum=2
SELECT COUNT(*) FROM 商品信息 WHERE 商品编号=PNo INTO ARRAY RecNum
IF RecNum<1
 MESSAGEBOX("商品编号错误",48,"进销存管理系统")
 THISFORM.cmb商品编号.SetFocus
 Return
ENDIF
*——如果进货数量小于0
IF InCount<=0
 MESSAGEBOX("进货数量错误",48,"进销存管理系统")
 THISFORM.txt进货数量.SetFocus
 Return
ENDIF
*——如果进货单价小于0
IF InPrice<=0
 MESSAGEBOX("进货单价错误",48,"进销存管理系统")
 THISFORM.txt进货单价.SetFocus
 Return
ENDIF
*——如果经手人为空
IF InPerson==""
 MESSAGEBOX("经手人不能为空",48,"进销存管理系统")
 THISFORM.txt经手人.SetFocus
 Return
ENDIF
*——在进货信息表中插入记录
BEGIN TRANS
 INSERT INTO 进货信息 VALUES(InNo,PNo,InCount,InPrice,InTime,InDanwei,InPerson,InNote)
 *——更新库存信息表
 DIMENSION RecordNum(1)
 RecordNum(1)=2
 SELECT COUNT(*) FROM 库存信息 WHERE 商品编号=PNo INTO ARRAY RecordNum
 IF RecordNum(1)=0
  INSERT INTO 库存信息 VALUE(PNo,InCount,InNote)
 ELSE
  UPDATE 库存信息 SET 库存数量=库存数量+InCount WHERE 商品编号=PNo
 ENDIF
END TRANS
*——如果选择了“打印进货记录”复选框
IF THISFORM.Check1.Value=1
 REPORT FORM InView FOR 进货编号=THISFORM.txt进货编号.Value PREVIEW
ENDIF
MESSAGEBOX("进货成功",64,"进销存管理系统")
THISFORM.Init
THISFORM.Refresh

出货操作:能实现对现有货物的出库操作,如图4.18
 
图4.18 出货操作
出货操作的设计代码:
*——获取表单中的数据

随机推荐
ASP&nbsp;3.0高级编程(二)
纵横进出口产品管理系统
高校科研工作量统计系统的开发与设计
Visual Basic中访问远程数据库的几种关键技术
用Visual Basic 5.0开发无线通讯数据采集应用程序
销售管理系统的开发与设计
企业订单管理系统开发
库存优化管理信息系统
制造型企业库存信息系统的设计和开发
城市DLG数据库元数据组织方式与管理模型

设为首页 | 关于我们 | 广告联系 | 友情链接 | 版权申明

Copyright 2009-2014 All Right Reserved [粤ICP备05100058号-11]