|
退出按钮command3,其click event功能实现的代码如下； paper51.com thisform.release 内容来自www.paper51.com 修改模块 内容来自论文无忧网 www.paper51.com 表单tsxg属性autocenter为.t.,borderstyle为2,titlebar为0,backcolor为16.176.133. http://www.paper51.com
http://www.paper51.com
label1-label10,其caption属性值如图,backstyle为0,label1用于统计图编记录的总数，label8用于显示当前是第几条记录.label1的init event实现代码为； 内容来自www.paper51.com countall to num http://www.paper51.com thisform.label11.caption=allt(str(num)) http://www.paper51.com gotop paper51.com 文本框text1-text7和编辑框edit1，其中text1-text6和edit1用于显示图编信息text7用于输入要查询的图编名乏，属性maxlength为20 copyright paper51.com 初始化文本框text1-text6和编辑框edit1，表单form1的initevent实现代码为 copyright paper51.com publicnhere,num 内容来自论文无忧网 www.paper51.com thisform.text1.readonly=.t. copyright paper51.com
thisform.text2.readonly=.t. paper51.com thisform.text3.readonly=.t. 内容来自www.paper51.com thisform.text4.readonly=.t. paper51.com
thisform.text5.readonly=.t. copyright paper51.com thisform.text6.readonly=.t. copyright paper51.com
thisform.edit1.readonly=.t. 内容来自www.paper51.com thisform.text1.value=allt(编号) 内容来自论文无忧网 www.paper51.com thisform.text2.value=allt(编名) http://www.paper51.com thisform.text3.value=allt(编号) copyright paper51.com thisform.text4.value=allt(作者) http://www.paper51.com thisform.text5.value=allt(出版社) 内容来自论文无忧网 www.paper51.com thisform.text6.value=allt(定价) copyright paper51.com thisform.edit1.value=allt(备注) http://www.paper51.com thisform.label8.caption=allt(str(recno())) 内容来自www.paper51.com 修改按钮command1其功能是text1-text6和edit1处于编辑状态，它的click event功能实现代码； http://www.paper51.com thisform.text1.readonly=.f. 内容来自论文无忧网 www.paper51.com thisform.text2.readonly=.f. 内容来自论文无忧网 www.paper51.com thisform.text3.readonly=.f. copyright paper51.com thisform.text4.readonly=.f. paper51.com thisform.text5.readonly=.f. paper51.com
thisform.text6.readonly=.f. copyright paper51.com thisform.edit1.readonly=.f. 内容来自论文无忧网 www.paper51.com 删除按钮command2,功能是删除当前记录，其 click event功能实现代码为； 内容来自www.paper51.com usebooksinfo exclusive 内容来自论文无忧网 www.paper51.com gonhere 内容来自论文无忧网 www.paper51.com mb=messagebox("确定要删除吗？",1+64,"提示") 内容来自www.paper51.com
ifmb==1 http://www.paper51.com
delete paper51.com
pack paper51.com
thisform.label11.init copyright paper51.com if nhere>num http://www.paper51.com
go bottom 内容来自论文无忧网 www.paper51.com thisform.init copyright paper51.com else copyright paper51.com
go nhere paper51.com
thisform.init 内容来自www.paper51.com
endif http://www.paper51.com
endif paper51.com
第一条按钮command3,其clickevent功能实现代码； copyright paper51.com gotop 内容来自www.paper51.com nhere=recno() 内容来自www.paper51.com thisform.label8.caption=allt(str(recno())) http://www.paper51.com thisform.command4.enabled=.t. paper51.com thisform.command6.enabled=.t. copyright paper51.com thisform.init copyright paper51.com 最后一条按钮command4,其click event功能实现代码； 内容来自论文无忧网 www.paper51.com gobottom paper51.com nhere=recno() http://www.paper51.com thisform.label8.caption=allt(str(recno())) copyright paper51.com
thisform.command3.enabled=.t. 内容来自www.paper51.com
thisform.command5.enabled=.t. copyright paper51.com thisform.init copyright paper51.com 上一条按钮command5,其click event功能实现代码； paper51.com skip-1 内容来自www.paper51.com
ifbof() copyright paper51.com this.enabled=.f. copyright paper51.com thisform.command3.enabled=.f. 内容来自www.paper51.com messagebox("已经到第一条记录了！",48,"提示") copyright paper51.com go top 内容来自www.paper51.com nhere=recno() 内容来自论文无忧网 www.paper51.com
else 内容来自论文无忧网 www.paper51.com
thisform.init copyright paper51.com nhere=recno() http://www.paper51.com endif 内容来自论文无忧网 www.paper51.com thisform.command4.enabled=.t. 内容来自论文无忧网 www.paper51.com thisform.command6.enabled=.t. 内容来自论文无忧网 www.paper51.com
下一条按钮command6,其click event功能实现代码； 内容来自论文无忧网 www.paper51.com skip1 http://www.paper51.com ifeof() copyright paper51.com this.enabled=.f. http://www.paper51.com thisform.command4.enabled=.f. http://www.paper51.com
messagebox("已经到最后一条记录了！",48,"提示") copyright paper51.com go bottom copyright paper51.com nhere=recno() 内容来自www.paper51.com else paper51.com nhere=recno() http://www.paper51.com thisform.init copyright paper51.com
endif 内容来自www.paper51.com
thisform.command3.enabled=.t. http://www.paper51.com
thisform.command5.enabled=.t. http://www.paper51.com
快速定位按钮command7,其click event功能实现代码； 内容来自论文无忧网 www.paper51.com
selebooksinfo http://www.paper51.com
gotop http://www.paper51.com
ifallt(thisform.text7.value)=="" 内容来自www.paper51.com messagebox("请输入要查询的内容！",64,"提示") paper51.com thisform.text7.setfocus 内容来自论文无忧网 www.paper51.com
else 内容来自论文无忧网 www.paper51.com
locate for allt(编名)=allt(thisform.text7.value) http://www.paper51.com if eof() 内容来自论文无忧网 www.paper51.com go bottom paper51.com
thisform.init 内容来自www.paper51.com messagebox("此编不存在，请重新输入！",64,"提示") 内容来自论文无忧网 www.paper51.com thisform.text7.setfocus copyright paper51.com else 内容来自www.paper51.com thisform.init copyright paper51.com endif paper51.com
nhere=recno() copyright paper51.com
endif copyright paper51.com |