回 帖 发 新 帖 刷新版面

主题:请高手帮帮忙,鄙人新手,纠结了一天的代码,总改不对,现在不知道从哪下手了。



各位大大好!劳烦让你们点开了我的帖子,谢谢。

下面说下我的问题。我打算用表单来做一个简单的打印系统。后面附图。



现在主要症结在【预览】这个按钮上,下面附上代码:

if empty(thisform.SSBH.value)
  =messagebox("请输入宿舍编号!",0+64,"信息")
  thisform.command1.click
else
sele 基本情况    &&基本情况是我在数据库中建立的一个表
set filt to 宿舍编号=SSBH   &&宿舍编号是基本情况表里的一个字段
go top
if eof()
  =messagebox("无记录,请先输入学生基本信息!",48+0+0,"信息")
else
  repo form 暑期管理信息系统作业\bbjbqk preview  &&这是我做的报表模板
endif       
endif


说实话,这段代码我不是很懂,希望高手帮我分析下,最好就是一句一句的解说。

这段代码在执行表单的时候,出现的毛病就是:1.不输入宿舍编号,点【预览】,能正确弹出那个messagebox;2.输入了宿舍编号,但还是没用,点【预览】依然是弹出那个messagebox,不管你输入的是不是表中已有的字段。我个人的感觉就是从第一个else后面代码就没有执行,不知道为什么,盼赐教……



其次就是【打印】这个按钮的,问题就是能正确弹出提示,但无论输入什么,或者什么都不输入,它都把整个基本情况表打印出来。附上源码:

??chr(10)
WAIT wind "请安装好打印纸,然后按任意键打印!"at 29,90
SELE 基本情况
set filt to 宿舍编号=thisform.SSBH.value
REPO form 暑期管理信息系统作业\bbjbqk preview



这段代码第一、五行没看懂。烦请解答。



另,个人窃以为那个【开始】按钮就没什么用,是不是可以删掉?如果删掉的话其他的代码用不用相应的做些改动?



我的问题大致就这些了,恳请各位高手解答,认识高手的人也麻烦转告下。我这个是学校管理信息系统这门课的作业,总的设计是做一个宿舍信息管理系统,我负责打印报表部分,过几天就要汇总了,所以很心急。

再次致谢!!

这个链接是我相册,图片在里面,附件只能传一个,一共有三个的。http://hi.baidu.com/chucan001/album/Vfp

回复列表 (共7个回复)

沙发

把if empty(thisform.SSBH.value)
改成if empty(thisform.SSBH.text)


板凳

谢谢了!
只是我按照您你说的改了下【预览按钮】,程序提示说 找不到变量SSBH;【打印】按钮改了下,就没有打印预览出来,跟没有点一样。
烦请您抽空解答,谢谢了!

3 楼

出现问题了.那就一句一句的查原因,其实还是一个基本的语句
在代码前
"现在主要症结在【预览】这个按钮上,下面附上代码:

if empty(thisform.SSBH.value)
  =messagebox("请输入宿舍编号!",0+64,"信息")
  thisform.command1.click
else
sele 基本情况    &&基本情况是我在数据库中建立的一个表
.....
.....
"
加上
SET DEBUG ON
SET STEP on
跟踪一下,看看有问题的地方,然后再考虑如何改啊

4 楼

回复楼上,我是新手,跟踪功能不会用,断点什么的也不知道怎么弄,能教我怎么改代码吗?

5 楼

如你有QQ,又愿意我远程操作你的机器,我可以给你演示找找问题

6 楼

我的qq413898767
请帮忙弄一下吧,谢谢了

7 楼

问题解决了,谢谢两位朋友给我的帮助!愿此二位大大快乐,平安,幸福~~~

总结一下,
qjbzjp这个大大的建议解决了第一步,(我是新手,不知道怎么形容问题的类型)把if empty(thisform.SSBH.value)改成if empty(thisform.SSBH.text)。
alpen大大通过qq远程协助把问题解决了。一个问题是缺少了全局变量,在form1的init事件中加入了public ssbh。另一个问题是把这句set filt to 宿舍编号=SSBH改成了set filt to ALLT(宿舍编号)=ALLT(SSBH)(同样我不知道为什么错了,不好意思)。最后,是授人以渔,教会我调试程序的方法,这对我这个新手来说很是重要,感激不尽!

我来回复

您尚未登录,请登录后再回复。点此登录或注册