欢迎加入我们，一同切磋技术。 &
用户名： &&&
密　码： &
共有 987 人关注过本帖
标题：请兄弟帮我看看这段程序错在哪？
等　级：新手上路
帖　子：191
结帖率：97.14%
&&已结贴√
&&问题点数：20&&回复次数：14&&&
请兄弟帮我看看这段程序错在哪？
*-----------*
SELECT ZFCG_SJBB
IF RECCOUNT()&1
&&&DO WHILE !EOF()
&&&&&&IF empty(采购单位)=.T..OR.empty(项目名称)=.T..OR.empty(产品品牌)=.T..OR.empty(产品型号)=.T..OR.采购数量=0.OR.采购预算=0
&&&&&&&&&DELETE
&&&&&&&&&PACK
&&&&&&ELSE
&&&&&&&&&messagebox(&经检测，有记录数据录入不完整，请检查输入或删除！&,16,&系统提示&)
&&&&&&&&&Thisform.TEXT4.setfocus
&&&&&&&&&RETURN .T.&&&
&&&&&&ENDIF
&&&&&&SKIP
*---------
IF empty(采购单位)=.F..AND.empty(项目名称)=.F..AND.empty(产品品牌)=.F..AND.empty(产品型号)=.F..AND.采购数量&0.AND.采购预算&0
&&&msg=messagebox(&录入数据正确！保存数据吗？&,4+64,&提示窗口&)
&&&IF msg=6
&&&&&&SELECT ZFCG_SJZK
&&&&&&APPEND FROM&&ZFCG_SJBB
*----------
Thisform.QueryUnload
*-----------
我的意思：1、采购单位、项目名称、产品品牌、产品型号、采购数量、采购预算等字段为空值，则直接删除。2、以上几个字段为合格的值，则提示是否保存？现在我输入以上字段的一个值，不提示我“经检测，有记录数据录入不完整，请检查输入或删除3“、完全合格则会提示我“录入数据正确！保存数据吗”，请兄弟们帮助我看看。
搜索更多相关主题的帖子:
等　级：贵宾
威　望：88
帖　子：2774
专家分：2233
*-----------*
SELECT ZFCG_SJBB
&&IF empty(采购单位) .OR. empty(项目名称) .OR. empty(产品品牌) .OR. empty(产品型号).OR. 采购数量=0 .OR. 采购预算=0
&&& DELETE
*---------
IF messagebox(&录入数据正确！保存数据吗？&,4+64,&提示窗口&)=6
&&SELECT ZFCG_SJZK
&&APPEND FROM&&ZFCG_SJBB
*----------
Thisform.QueryUnload
*-----------
感言：学以致用。
博客：http://www.bc-cn.net/blog/user14/65009/index.shtml
等　级：新手上路
帖　子：191
试了一下，还是不对呀。几个字段全为空，也提示我“录入数据正确！保存数据吗“。
我的意思：1、以上几个字段，只要有一个不输入就提示：“输入的数据不完整”不能退出表单，回到录入表。2、如果都不输入数据，则不用任何提醒，就直接删除后退出表单。3、数据完全正确，则提示“是否要保存”。是---保存退出，否---不保存退出
[ 本帖最后由 YZCZWCB 于
22:56 编辑 ]
等　级：贵宾
威　望：88
帖　子：2774
专家分：2233
以下是引用YZCZWCB在 22:54:06的发言：
试了一下，还是不对呀。几个字段全为空，也提示我“录入数据正确！保存数据吗“。
我的意思：1、以上几个字段，只要有一个不输入就提示：“输入的数据不完整”不能退出表单，回到录入表。2、如果都不输入数据，则不 ...那就是你在1楼的程序不能表达你的意思。
*mand1.Click事件代码(假如该命令按钮完成录入功能)
IF empty(ThisForm.Text1.Value) OR;
&&&empty(ThisForm.Text2.Value) OR;
&&&empty(ThisForm.Text3.Value) OR;
&&&empty(ThisForm.Text4.Value) OR;
&&&empty(ThisForm.Text5.Value) OR;
&&&empty(ThisForm.Text6.Value)
&&&*Text1-Text6分别录入的是：采购单位、项目名称、产品品牌、产品型号、采购数量、采购预算
&&messagebox(&经检测，有记录数据录入不完整，请检查输入或删除！&,16,&系统提示&)
&&Thisform.TEXT1.setfocus
&&IF messagebox(&录入数据正确！保存数据吗？&,4+64,&提示窗口&)=6
&&& Insert into ZFCG_SJZK values (ThisForm.Text1.Value,...)
*----------
Thisform.QueryUnload
*-----------
感言：学以致用。
博客：http://www.bc-cn.net/blog/user14/65009/index.shtml
等　级：新手上路
帖　子：191
首先谢谢版主。我是没表达清我的意思。我首先要告诉你，我在录入数据时，先向备用库录入，最后按“退出”按钮时，需要以上的检测数据的完整，再把备用库有数据加在总库的后面。也是为了防止把主库的数据破坏，或者防止不完整的数据直接录入到主库中。
因此，我在录入数据时，在备用库中会有几条记录，最后一起检测备用库的数据完整性，再加到主库中。
这也许是我的思路不正确，别见笑
等　级：贵宾
威　望：88
帖　子：2774
专家分：2233
以下是引用YZCZWCB在 23:16:16的发言：
首先谢谢版主。我是没表达清我的意思。我首先要告诉你，我在录入数据时，先向备用库录入，最后按“退出”按钮时，需要以上的检测数据的完整，再把备用库有数据加在总库的后面。也是为了防止把主库的数据破坏，或者防 ...这么说，2楼的程序是对的了。
感言：学以致用。
博客：http://www.bc-cn.net/blog/user14/65009/index.shtml
等　级：新手上路
帖　子：191
经实际试了一下，还是不对，有2个情况：
1、几个字段全为空，也提示我“录入数据正确！保存数据吗“。我要的是，直接删除不用提示。
2、在这几个字段中，任意输入一个字段的值，其他的不输入，应该说是数据不完整，应该提示：“输入的数据不完整”，不但不提示，反而提示“录入数据正确！保存数据吗“。
[ 本帖最后由 YZCZWCB 于
23:34 编辑 ]
等　级：贵宾
威　望：88
帖　子：2774
专家分：2233
不完整的数据直接删除掉了，没有提示；留下的全是正确的数据，就有提示。正确的数据让保存就保存了，不让保存的不予理睬，但都不提示
感言：学以致用。
博客：http://www.bc-cn.net/blog/user14/65009/index.shtml
等　级：新手上路
帖　子：191
谢谢。我再试试看
等　级：新手上路
帖　子：191
经测试：现在是不完整的数据和全部空数据都直接删除，只作“数据完整，是否保存？”的提示，这没意义。无论点“是”与“否”都不保存，只有数据完整时，点击“是”与“否”才有意义。
这样一来给操作者带来不便，一不小心录入了一个不完整的记录，以为录入完毕并保存，而实际上程序设置没有保存，这不好。还是应该有一个提示，让操作者去删除或补充完整。
请斑主再按我的意思想想办法，谢谢。
版权所有，并保留所有权利。
Powered by , Processed in 0.022025 second(s), 8 queries.
Copyright&, BCCN.NET, All Rights Reserved帮我看看下面这段程序哪里有错 - FPGA|CPLD|ASIC论坛 -
中国电子技术论坛 -
最好最受欢迎电子论坛!
后使用快捷导航没有帐号？
帮我看看下面这段程序哪里有错
10:17:04　　
use ieee.std_logic_1164.
use ieee.std_logic_unsigned.
use ieee.std_logic_arith.
entity singt is
port(clk: in std_
& && &dout1:out real); --std_logic_vector(7 downto 0));
architecture dacc of singt is
component data_rom
port(address:in std_logic_vector(5 downto 0);
& && &inclock:in std_
& & & & & & & & q:out std_logic_vector(7 downto 0));
signal q1:std_logic_vector(5 downto 0);
signal dout:std_logic_vector(7 downto 0);
--signal q:std_logic_vector(7 downto 0);
process(clk)
if clk'event and clk='1' then
dout1 &= dout*3.3/255;
u1:data_rom port map(address=&q1,q=&dout,inclock=&clk);
--dout1 &= dout*3.3/255;
程序的功能是使输出的正弦信号的值控制LED灯的亮灭程度，来说明输出正弦值得变化
等待验证会员
13:54:57　　
我看了下 好像是没什么错误呀
08:56:22　　
我看了下 好像是没什么错误呀
运行的时候有错误。
7个问题&&&&&&&&1490个浏览
12个问题&&&&&&&&3380个浏览
17个问题&&&&&&&&129287个浏览
ADAS相比较无人驾驶有望在短期内率先商业化普及，是汽车领域非常重要的产品革新。专家将解答：
1、汽车智能化开发经验和思路
2、ADAS相关技术难点
3、汽车智能化的产业痛点是什么？
每天选一个需要解决的问题，大家一起来帮忙。
授人玫瑰，手有余香
本次讲解答的问题例举：
1、NB-IoT有哪些技术特点和难点？
2、NB-IoT技术对物联网市场将带来什么样的影响。
3、NB-IoT物理层有哪些组成部分？
4、NB-IoT技术如何实现低功耗？
Powered by大家帮忙看下这段代码是哪里写错了？入不了库 - ThinkPHP框架
$model=M('Order');
&&&&&&&&$map['payordercode']=array('eq',$out_trade_no);
&&&&&&&&$paydata=$model-&where($map)-&find();
&&&&&&&&if($paydata['status']==0){
&&&&&&&&&&&&$model-&where($map)-&setField('status',&1);
&&&&&&&&&&&&//取会员信息
&&&&&&&&&&&&$hysjb=M('User');
&&&&&&&&&&&&$hytj['userid']=array('eq',$paydata['huserid']);
&&&&&&&&&&&&$hyxx=$hysjb-&where($hytj)-&find();
&&&&&&&&//测试开始
&&&&&&&&$paydata['huserid']=$_SESSION['userid'];
&&&&&&&&$uid&=&$paydata['huserid'];
&&&&&&&&$res&=&M()-&table('f_agent_user&a')-&join(&f_agent&b&on&a.agent_id=b.id&)-&where(&a.userid='$uid'&)-&field('b.*')-&select();
&&&&&&&&if($res){
&&&&&&&&&&&&$agent_type&=&$res[&agent_type&];
&&&&&&&&&&&&$agent_id&=&$res[&id&];
&&&&&&&&&&&&$parent_id&=&$res[&parent_id&];
&&&&&&&&&&&&$free_sum_money&=&!empty($res[&free_sum_money&])&?&$res[&free_sum_money&]&:&0;
&&&&&&&&&&&&$curr_balance&=&!empty($res[&curr_balance&])&?&$res[&curr_balance&]&:&0;
&&&&&&&&&&&&$paydata['orderprice']&=&$
&&&&&&&&&&&&//&添加代理商或业务员下付费用户数，付费总金额，当前余额
&&&&&&&&&&&&$thisFreeSumMoney&=&0.0;
&&&&&&&&&&&&$thisBalance&=&0.0;
&&&&&&&&&&&&$this_deduct_rate&=&0.8;
&&&&&&&&&&&&$thisOrderprice&=&$paydata['orderprice'];
&&&&&&&&&&&&$thisDeductRateMoney&=&$paydata['orderprice']&*&0.8;
&&&&&&&&&&&&
&&&&&&&&&&&&if&($res[&agent_type&]==2){
&&&&&&&&&&&&&&&&$res2&=&M()-&table('f_agent_set_bussines_rule&a')-&join(&&f_agent_rule&b&on&a.rule_id=b.id&)-&where(&agent_id='$parent_id'&and&b.id=5&)-&field('a.*,b.agent_rule,b.deduct_rate')-&select();
&&&&&&&&&&&&&&&&$bussines_deduct_rate&=&$res2['bussines_deduct_rate'];
&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&//&业务员的显示的付费总金额为代理商的80%
&&&&&&&&&&&&&&&&$thisOrderprice&=&$thisOrderprice&*&0.8;
&&&&&&&&&&&&&&&&$thisDeductRateMoney&=&$thisOrderprice&*&$bussines_deduct_
&&&&&&&&&&&&&&&&$thisFreeSumMoney&=&$free_sum_money&+&$thisO
&&&&&&&&&&&&&&&&//&业务员本次的余额为代理商设置提成比例值
&&&&&&&&&&&&&&&&$thisBalance&=&$curr_balance&+&$thisOrderprice&*&$bussines_deduct_
&&&&&&&&&&&&}else{
&&&&&&&&&&&&&&&&$thisDeductRateMoney&=&$thisOrderprice&*&0.8;
&&&&&&&&&&&&&&&&$thisFreeSumMoney&=&$free_sum_money&+&$thisO
&&&&&&&&&&&&&&&&$thisBalance&=&$curr_balance&+&$thisOrderprice&*&0.8;
&&&&&&&&&&&&}
&&&&&&&&&&&&if&($hyxx['is_exist_free']==0){
&&&&&&&&&&&&&&&&$free_hair_style_num=$res[&free_hair_style_num&]+1;
&&&&&&&&&&&&}else{
&&&&&&&&&&&&&&&&$free_hair_style_num=$res[&free_hair_style_num&];
&&&&&&&&&&&&}
&&&&&&&&&&&&
&&&&&&&&&&&&$Agent=D(&Agent&);
&&&&&&&&&&&&$data=array(
&&&&&&&&&&&&&&&&'free_hair_style_num'=&$free_hair_style_num,
&&&&&&&&&&&&&&&&'free_sum_money'=&$thisFreeSumMoney,
&&&&&&&&&&&&&&&&'curr_balance'=&$thisBalance
&&&&&&&&&&&&);
&&&&&&&&&&&&$result&&&&=$Agent-&where(array('id'=&$agent_id))-&save($data);
&&&&&&&&&&&&
&&&&&&&&&&&&//&添加发型师消费明细记录
&&&&&&&&&&&&$Dao&=&M(&Hairstyle_free_detail&);&//&构建写入的数据数组&&
&&&&&&&&&&&&$data[&hairstyle_id&]&=&$&&//$paydata['huserid']=session('userid');
&&&&&&&&&&&&$data[&agent_id&]&=&$agent_
&&&&&&&&&&&&$data[&this_free_sum_money&]&=&$thisO
&&&&&&&&&&&&$data[&this_deduct_rate&]&=&$this_deduct_
&&&&&&&&&&&&$data[&this_deduct_money&]&=&$thisDeductRateM
&&&&&&&&&&&&$data[&free_time&]&=&time();
&&&&&&&&&&&&$Dao-&add($data);
&&&&&&&&&&&&/*print_r($data);
&&&&&&&&&&&&*/
&&&&&&&&&&&&//&业务员
&&&&&&&&&&&&if&($res[&agent_type&]==2){
&&&&&&&&&&&&&&&&//&如果是业务员，则他上级的代理商付费用户数，付费总金额，当前余额也要进行累加
&&&&&&&&&&&&&&&&$dlsjb=M('Agent');
&&&&&&&&&&&&&&&&$dltj['id']=array('eq',$parent_id);
&&&&&&&&&&&&&&&&$dlxx=$dlsjb-&where($dltj)-&find();
&&&&&&&&&&&&&&&&$agent_free_sum_money&=&!empty($res[&free_sum_money&])&?&$res[&free_sum_money&]&:&0;&
&&&&&&&&&&&&&&&&$agent_curr_balance&=&!empty($res[&curr_balance&])&?&$res[&curr_balance&]&:&0;&
&&&&&&&&&&&&&&&&$agentThisFreeSumMoney&=&$agent_free_sum_money+$thisO
&&&&&&&&&&&&&&&&$agentThisBalance&=&$agent_curr_balance+$thisOrderprice*0.8;
&&&&&&&&&&&&&&&&
&&&&&&&&&&&&&&&&$Agent=D(&Agent&);
&&&&&&&&&&&&&&&&$data=array(
&&&&&&&&&&&&&&&&&&&&'free_hair_style_num'=&$free_hair_style_num,
&&&&&&&&&&&&&&&&&&&&'free_sum_money'=&$$agentThisFreeSumMoney,
&&&&&&&&&&&&&&&&&&&&'curr_balance'=&$agentThisBalance
&&&&&&&&&&&&&&&&);
&&&&&&&&&&&&&&&&$result&&&&=$Agent-&where(array('id'=&$parent_id))-&save($data);
&&&&&&&&&&&&}
&&&&&&&&&&&&
&&&&&&&&//测试结束agent_id
orderprice
这几个字段的值无法写入到表里面
ThinkPHP 是一个免费开源的，快速、简单的面向对象的 轻量级PHP开发框架 ，创立于2006年初，遵循Apache2开源协议发布，是为了敏捷WEB应用开发和简化企业应用开发而诞生的。ThinkPHP从诞生以来一直秉承简洁实用的设计原则，在保持出色的性能和至简的代码的同时，也注重易用性。并且拥有众多的原创功能和特性，在社区团队的积极参与下，在易用性、扩展性和性能方面不断优化和改进，已经成长为国内最领先和最具影响力的WEB应用开发框架，众多的典型案例确保可以稳定用于商业以及门户级的开发。2014年7月 硬件/嵌入开发大版内专家分月排行榜第二
2013年10月 硬件/嵌入开发大版内专家分月排行榜第三2013年6月 硬件/嵌入开发大版内专家分月排行榜第三2013年3月 硬件/嵌入开发大版内专家分月排行榜第三
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。}