欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

求大神,求调试,求运作!

更新时间: 2014-01-05 02:28:07 责任编辑: Author_N1

 

求大神,求调试,求运行!!
VFP一个小型程序初步做好了(算是吧~~),但是很多错误,不会调试。求高手帮忙调试或者指教!!万分感激。。。好着急~~~求大神留邮箱。。。。
--参考方法--
会做不会调试,不应该吧。
--参考方法--
运行->修改错误->运行没有提示出错,检查运行结果->再进行检查,直到结果正确为止
--参考方法--
我这类似的...

sqfph="SELECT yh_qx.yh_id, yh_qx.cd_id, sys_cd.cd_mc, yh_qx.qx, sys_cd.cd_jb, sys_cd.cd_jb2, sys_cd.sxh FROM yh_qx INNER JOIN sys_cd ON yh_qx.cd_id = sys_cd.cd_id WHERE (sys_cd.cd_jb > 0) AND (yh_qx.yh_id = "+ thisform.yhid.Caption +") ORDER BY sys_cd.sxh"
sqfph2="SELECT yh_qx.yh_id, yh_qx.cd_id, sys_cd.cd_mc, yh_qx.qx, sys_cd.cd_jb, sys_cd.cd_jb2, sys_cd.sxh FROM yh_qx INNER JOIN sys_cd ON yh_qx.cd_id = sys_cd.cd_id WHERE (sys_cd.cd_jb > 0) AND (yh_qx.yh_id = 0) ORDER BY sys_cd.sxh"
SET TALK OFF
SQLSETPROP(0,"DispLogin",3) &&登录失败时不显示ODBC对话框
*!* lnhandle=sqlconnect(&lcConnStr)
lnhandle=sqlconnect('hpxt','sa','')
IF lnhandle < 0 && 连接失败
MESSAGEBOX("无法连接sql数据库!",0+48,"异常情况")
RETURN
ELSE
SQLEXEC(lnHandle,sqfph,'sql_cx')
    thisform.text1.value="YES"
IF EOF()
     SQLEXEC(lnHandle,sqfph2,'sql_cx')
     thisform.text1.value="NO"
ENDIF
RELEASE sqfph
=SQLDISCONNECT(lnhandle) &&关闭连接
SELECT sql_cx
*-- 程序开始 ------------------------------------------
priv I,cn,L_i
i=1
L_i=1
*-- 用于对象的唯一性标记用
thisform.oletreeview.Nodes.Clear &&清除所有节点
*!* thisform.OleTreeView.nodes.add(,0,"top",allt(sql_cx.xm))
thisform.OleTreeView.nodes.add(,0,"top","权限设置- "+ thisform.yhm.Caption)
thisform.list1.List(L_i)=thisform.yhid.Caption
L_i=L_i+1


*-- 先建立一个顶层的目录

SELECT cd_mc,cd_jb,qx,cd_id FROM sql_cx WHERE (cd_id IN (SELECT MIN(cd_id) FROM sql_cx GROUP BY cd_jb)) ORDER BY sxh into cursor temp_xk
*-- 查询出该表的第一层目录的记录,通过group分组,可以保证结果的数据是唯一的

do while not eof()
    thisform.OleTreeView.nodes.add("top",4,"xk"+allt(str(i)),allt(cd_mc))
    IF ALLTRIM(temp_xk.qx)=='Y'
    thisform.oletreeview.Nodes(thisform.oletreeview.nodes.Count).Checked= .T.
    ELSE
    thisform.oletreeview.Nodes(thisform.oletreeview.nodes.Count).Checked= .F.
    ENDIF
  thisform.list1.List(L_i)=ALLTRIM(STR(temp_xk.cd_id))
  L_i=L_i+1
    *-- 以循环的方式将这个系科的层目录,放到顶层目录的下面,并根据变量i得到顺序的排列
    i=i+1
    skip
ENDDO
PUBLIC c_d
c_d=i-1

*-- 至此,第一层排列放置结束,下面进行第二层的放置
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:28:07
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/10199/
本文WWW.DOC100.NET DOC100.NET版权所有。