急急急急急急~~~~~编程过程中遇到的问题不会修改请各位高手帮一下手
Form1init代码
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.edit1.enable=.f. ？？？？
查查看，就在开头几句 的 “thisform.edit1.enabled=.f.” 写成“ thisform.edit1.enable=.f.” thisform.edit1.enable=.f.这句错了.是enabled
[[it] 本帖最后由 光辉情天 于 2008-5-19 08:56 编辑 [/it]]
页:
[1]