| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付学习型 ASP/PHP/ASP.NET 主机 30元/年
高端软件开发 = 年薪十万不是梦赛孚耐:软件保护加密专家身份认证令牌USB KEY 
共有 336 人关注过本帖
标题:急急急急急急~~~~~编程过程中遇到的问题不会修改请各位高手帮一下手
收藏  订阅  推荐  打印
kakawen
Rank: 1
等级:新手上路
帖子:6
积分:162
注册:2008-5-14
急急急急急急~~~~~编程过程中遇到的问题不会修改请各位高手帮一下手

Form1
init代码
thisform.command4.enabled=.f.
thisform.command5.enabled=.f.
thisform.edit1.enable=.f.
thisform.txt答案.enable=.f.

load代码
sele shiti
set multilocks on &&允许尝试锁定一组记录

控件1
append blank
thisform.command1.enabled=.f.
thisform.command2.enabled=.f.
thisform.command3.enabled=.f.
thisform.command4.enabled=.t.
thisform.command5.enabled=.t.
thisform.command6.enabled=.f.
thisform.edit1.enabled=.t.
thisform.txt答案.enabled=.t.

控件2
set delete on
dele
cz=messagebox("确实要删除这条记录吗?",4+32+256,"删除确认")
do case
case cz=6
        =tableupdate(.t.)
case cz=7
        recall
endcase
thisform.refresh
控件3
thisform.command1.enabled=.f.
thisform.command2.enabled=.f.
thisform.command3.enabled=.f.
thisform.command4.enabled=.t.
thisform.command5.enabled=.t.
thisform.command6.enabled=.f.
thisform.edit1.enabled=.t.
thisform.txt答案.enabled=.t.
控件4
n=recno()&&存放当前添加或编辑的记录号
sele shiti
dele for len(alltrim(shiti.试题))=0.or.;
len(alltrim(shiti.答案))=0&&删除试题或答案无内容的记录
i=0
loca for alltrim(shiti.试题)==alltrim(thisform.edit1.value)
do while.not.eof()
i=i+1
continue
enddo
if i>1
messagebox("这道题已经出现过,刚刚输入或编辑的信息已被删除.",0,"提示!")
go n
dele
endif
=tableupdate(.t)
thisform.command1.enabled=.t.
thisform.command2.enabled=.t.
thisform.command3.enabled=.t.
thisform.command4.enabled=.f.
thisform.command5.enabled=.f.
thisform.command6.enabled=.t.
thisform.edit1.enabled=.f.
thisform.txt答案.enabled=.f.
控件5
=tablerevert(.t.)
thisform.command1.enabled=.t.
thisform.command2.enabled=.t.
thisform.command3.enabled=.t.
thisform.command4.enabled=.f.
thisform.command5.enabled=.f.
thisform.command6.enabled=.t.
thisform.edit1.enabled=.f.
thisform.txt答案.enabled=.f.
控件6
??chr(7)
result=messagebox("是否退出?",4+48+256,"信息窗口")
if result=6
use
  use date\shiti excl
  set excl on
  pack
  set excl off
  use
  thisform.release
  endif
控件7
sele shiti
thisform.command8.enabled=.t.
if.not.bof()
skip -1
thisform.refresh
else
messagebox("已经是第一条记录",0,"记录情况")
this.enabled=.f.
endif
if deleted()
thisform.text1.value='*'
else
thisform.text1.value=''
endif
thisform.refresh

控件8
sele shiti
thisform.command7.enabled=.t.
if.not.eof()
skip
thisform.refresh
else
messagebox("已经是最后一条记录!",0,"记录情况")
this.enabled=.f.
endif
if deleted()
thisform.text1.value='*'
else
thisform.text1.value=''
endif
thisform.refresh

做完运行时~~~说找不到enable属性~~~请各位高手们帮手找下问题~~~~~`在此先说声谢了~~!!
附件: 只有本站会员才能下载或查看附件,请您 登录注册
搜索更多相关主题的帖子: thisform  txt  set  dele  
2008-5-16 01:48
午丁
Rank: 2
等级:注册会员
威望:1
帖子:71
积分:873
注册:2008-3-19
thisform.edit1.enable=.f. ????

查查看,就在开头几句 的 “thisform.edit1.enabled=.f.”  写成“ thisform.edit1.enable=.f.”
2008-5-18 18:03
光辉情天
Rank: 1
等级:新手上路
帖子:19
积分:312
注册:2008-4-11

thisform.edit1.enable=.f.
这句错了.是enabled

[ 本帖最后由 光辉情天 于 2008-5-19 08:56 编辑 ]
2008-5-19 08:55
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.062015 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved