| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 895 人关注过本帖
标题:[求助]关于数据更新的问题 困惑 表单已上传
只看楼主 加入收藏
catkana
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-4-16
收藏
 问题点数:0 回复次数:4 
[求助]关于数据更新的问题 困惑 表单已上传
IIY0NNj4.rar (17.02 KB) [求助]关于数据更新的问题 困惑





做了一个售货表单,通过选择商品编号,显示出商品名称,商品单价,计算商品金额然后售货
现在功能都可以实现,在计算金额完,售货也成功了。但是在售货表(outrec),库存表(storeinfo)更新后,在从新售货选择刚才的商品时,商品单价却为0,我看了一下商品信息表(proinfo)里面的单价也成0了,不知道为什么????
这是主要代码:
表单init:
SET CENTURY ON
SET DATE YMD
*——使用当前日期生成进货编号前6位
*——使用当前日期生成进货编号前6位
sYear=ALLTRIM(STR(YEAR(DATE())))
sMonth=ALLTRIM(STR(MONTH(DATE())))
sDay=ALLTRIM(STR(DAY(DATE())))
IF LEN(sMonth)=1
sMonth="0"+sMonth
ENDIF
IF LEN(sDay)=1
sDay="0"+sDay
ENDIF
LeftNo=sYear+sMonth+sDay
*——从“出货信息”中生成进货编号后4位
SELECT OutRec
SET ORDER TO 销售编号
SET FILTER TO
SET FILTER TO OutRec.销售日期==DATE()
GO BOTTOM
IF ALLTRIM(OutRec.销售编号)==""
RightNo="0000"
ELSE
RightNo=Substr(OutRec.销售编号,9)
ENDIF
*——对后4位增1
RightNo=AutoAdd(RightNo)
*——完整编号
FullNo=LeftNo+RightNo
*——在表单中显示
THISFORM.txt销售编号.Value=FullNo
THISFORM.txt销售日期.Value=DATE()
THISFORM.txt销售数量.Value=0
THISFORM.txt商品单价.Value=0
THISFORM.txt金额.Value=0
THISFORM.txt库存数量.Value=""
THISFORM.txt经手人.Value=""
THISFORM.txt商品编号.Value=""
*——刷新表单
THISFORM.Refresh


“选择“按钮click:
*——调用“选择商品”表单获取“商品编号”
DO FORM ProSelect TO sProNum
*——如果选择了商品
IF sProNum <> "0000000000"
THISFORM.txt商品编号.Value=sProNum
Select StoreInfo
Count For 商品编号=sProNum TO nNum
*——如果没有库存
IF nNum=0
Messagebox("该商品没有库存",48,"超市管理系统")
THISFORM.txt商品编号.Value=""
THISFORM.txt商品编号.SetFocus
Return
ENDIF

SELECT StoreInfo
LOCATE FOR 商品编号=sProNum
IF FOUND()
THISFORM.txt库存数量.Value=StoreInfo.库存数量
ENDIF
SET FILTER TO
THISFORM.Refresh
ENDIF

计算按钮:
g_id=alltrim(thisform.txt商品编号.value)
num=thisform.txt销售数量.value
_price=thisform.txt商品单价.value

if (empty(g_id) or empty(num) or empty(_price))
messagebox("请输入完整信息",0,"输入不正确")
else
select proinfo
set talk off

locate for 商品编号=g_id
if found()=.t.
_price=proinfo.商品单价
_sum=_price*num
thisform.txt金额.value=_sum
thisform.refresh
else
messagebox("商品不存在",0,"错误信息")
endif
endif



"确定"按钮click:
*——获取表单中的数据
OutNo=ALLTRIM(THISFORM.txt销售编号.Value)
PNo=ALLTRIM(THISFORM.txt商品编号.Value)
OutCount=THISFORM.txt销售数量.Value
OutPrice=THISFORM.txt商品单价.Value
Outsum=THISFORM.txt金额.Value
OutDate=THISFORM.txt销售日期.Value
OutPerson=ALLTRIM(THISFORM.txt经手人.Value)

*——如果商品编号为空
IF PNo==""
MESSAGEBOX("商品编号为空或者错误",48,"超市管理系统")
THISFORM.cmb商品编号.SetFocus
Return
ENDIF
*——检查商品编号合法性
DIMENSION RecNum(1)
RecNum=2
SELECT COUNT(*) FROM ProInfo WHERE 商品编号=PNo INTO ARRAY RecNum
IF RecNum<1
MESSAGEBOX("商品编号错误",48,"超市管理系统")
THISFORM.cmb商品编号.SetFocus
Return
ENDIF
*——如果没有库存
IF THISFORM.txt库存数量.Value<=0
MESSAGEBOX("该商品没有库存",48,"超市管理系统")
THISFORM.txt库存数量.SetFocus
Return
ENDIF
*——如果销售数量小于0或者大于库存数量
IF OutCount<=0 .OR. OutCount>THISFORM.txt库存数量.Value
MESSAGEBOX("销售数量错误",48,"超市管理系统")
THISFORM.txt销售数量.SetFocus
Return
ENDIF
*——如果经手人为空
IF OutPerson==""
MESSAGEBOX("经手人不能为空",48,"超市管理系统")
THISFORM.txt经手人.SetFocus
Return
ENDIF
*——在出货信息表中插入记录
BEGIN TRANS
INSERT INTO OutRec VALUES(OutNo,PNo,OutPrice,;
OutCount,Outsum,OutDate,OutPerson)
*——更新库存信息表
UPDATE StoreInfo SET 库存数量=库存数量-OutCount ;
WHERE 商品编号=PNo
END TRANS
*——如果选中了复选框
IF THISFORM.Check1.Value=1
REPORT FORM OutView FOR 销售编号=THISFORM.txt销售编号.Value PREVIEW
ENDIF
*——对话框
MESSAGEBOX("出货成功",64,"超市管理系统")
*----初始化表单
THISFORM.INit
THISFORM.REFRESH

不知道错在哪里了~~~大家帮忙看看 谢谢了

[此贴子已经被作者于2007-4-17 16:16:26编辑过]

搜索更多相关主题的帖子: 表单 数据 困惑 
2007-04-16 20:17
baichuan
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:37
帖 子:953
专家分:589
注 册:2006-3-13
收藏
得分:0 
太长了,看不完。

应该看一下你是不是更新库存表的单价了?
再一个,你库存表的单价是不是数字型的?而显示出来的是字符型的?

2007-04-17 08:05
catkana
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-4-16
收藏
得分:0 
*——在出货信息表中插入记录
BEGIN TRANS
INSERT INTO OutRec VALUES(OutNo,PNo,OutPrice,;
OutCount,Outsum,OutDate,OutPerson)
*——更新库存信息表
UPDATE StoreInfo SET 库存数量=库存数量-OutCount ;
WHERE 商品编号=PNo
END TRANS

这是代码中更新数据表的地方 商品信息表和出货信息表中的商品单价都是浮动型的,不知为何在售货成功后出货信息表中的商品单价能够成功添加,但是商品信息表中原有的商品单价却变成0了
2007-04-17 11:04
songyuyu
Rank: 8Rank: 8
等 级:贵宾
威 望:47
帖 子:6090
专家分:25
注 册:2007-1-17
收藏
得分:0 
能不能把你做的表单....上传上来..

我喝水只喝纯净水,牛奶只喝纯牛奶,所以我很单纯……
2007-04-17 14:15
catkana
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-4-16
收藏
得分:0 
文件已经上传 麻烦看下 万分感谢~~~~~~~~
2007-04-17 16:13
快速回复:[求助]关于数据更新的问题 困惑 表单已上传
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022114 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved