论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > VF >

A400224航班信息查询系统

退出按钮command3,其click event功能实现的代码如下; 内容来自www.paper51.com

thisform.release

http://www.paper51.com

修改模块

paper51.com

表单tsxg属性autocenter为.t.,borderstyle为2,titlebar为0,backcolor为16.176.133.

copyright paper51.com

     内容来自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)) paper51.com

gotop http://www.paper51.com

文本框text1-text7和编辑框edit1,其中text1-text6和edit1用于显示图编信息text7用于输入要查询的图编名乏,属性maxlength为20 内容来自www.paper51.com

   初始化文本框text1-text6和编辑框edit1,表单form1的initevent实现代码为

http://www.paper51.com

publicnhere,num

内容来自www.paper51.com

thisform.text1.readonly=.t.

内容来自论文无忧网 www.paper51.com

thisform.text2.readonly=.t.

内容来自www.paper51.com

thisform.text3.readonly=.t. paper51.com

thisform.text4.readonly=.t. 内容来自论文无忧网 www.paper51.com

thisform.text5.readonly=.t.

http://www.paper51.com

thisform.text6.readonly=.t. 内容来自论文无忧网 www.paper51.com

thisform.edit1.readonly=.t.

http://www.paper51.com

thisform.text1.value=allt(编号) copyright paper51.com

thisform.text2.value=allt(编名)

paper51.com

thisform.text3.value=allt(编号) 内容来自论文无忧网 www.paper51.com

thisform.text4.value=allt(作者) copyright paper51.com

thisform.text5.value=allt(出版社) http://www.paper51.com

thisform.text6.value=allt(定价)

内容来自www.paper51.com

thisform.edit1.value=allt(备注)

paper51.com

thisform.label8.caption=allt(str(recno())) paper51.com

修改按钮command1其功能是text1-text6和edit1处于编辑状态,它的click event功能实现代码; http://www.paper51.com

thisform.text1.readonly=.f.

http://www.paper51.com

thisform.text2.readonly=.f. 内容来自论文无忧网 www.paper51.com

thisform.text3.readonly=.f.

http://www.paper51.com

thisform.text4.readonly=.f. 内容来自论文无忧网 www.paper51.com

thisform.text5.readonly=.f. 内容来自论文无忧网 www.paper51.com

thisform.text6.readonly=.f. copyright paper51.com

thisform.edit1.readonly=.f. 内容来自论文无忧网 www.paper51.com

   删除按钮command2,功能是删除当前记录,其 click event功能实现代码为;

copyright paper51.com

usebooksinfo exclusive 内容来自论文无忧网 www.paper51.com

gonhere http://www.paper51.com

mb=messagebox("确定要删除吗?",1+64,"提示")

内容来自论文无忧网 www.paper51.com

ifmb==1

内容来自www.paper51.com

  delete

http://www.paper51.com

  pack paper51.com

  thisform.label11.init copyright paper51.com

  if nhere>num 内容来自www.paper51.com

    go bottom

内容来自www.paper51.com

    thisform.init

http://www.paper51.com

  else

内容来自www.paper51.com

    go nhere

http://www.paper51.com

    thisform.init 内容来自www.paper51.com

  endif paper51.com

endif paper51.com

   第一条按钮command3,其clickevent功能实现代码;

paper51.com

gotop

http://www.paper51.com

nhere=recno()

内容来自www.paper51.com

thisform.label8.caption=allt(str(recno()))

paper51.com

thisform.command4.enabled=.t. copyright paper51.com

thisform.command6.enabled=.t.

内容来自论文无忧网 www.paper51.com

thisform.init

http://www.paper51.com

最后一条按钮command4,其click event功能实现代码; 内容来自论文无忧网 www.paper51.com

gobottom http://www.paper51.com

nhere=recno()

http://www.paper51.com

thisform.label8.caption=allt(str(recno()))

paper51.com

thisform.command3.enabled=.t. paper51.com

thisform.command5.enabled=.t.

内容来自www.paper51.com

thisform.init copyright paper51.com

上一条按钮command5,其click event功能实现代码; 内容来自论文无忧网 www.paper51.com

skip-1 http://www.paper51.com

ifbof() copyright paper51.com

  this.enabled=.f.

内容来自论文无忧网 www.paper51.com

  thisform.command3.enabled=.f. paper51.com

  messagebox("已经到第一条记录了!",48,"提示")

http://www.paper51.com

  go top

内容来自www.paper51.com

  nhere=recno() 内容来自论文无忧网 www.paper51.com

else

内容来自www.paper51.com

  thisform.init

内容来自论文无忧网 www.paper51.com

  nhere=recno() paper51.com

endif

paper51.com

thisform.command4.enabled=.t. http://www.paper51.com

thisform.command6.enabled=.t. 内容来自论文无忧网 www.paper51.com

下一条按钮command6,其click event功能实现代码;

copyright paper51.com

skip1 内容来自论文无忧网 www.paper51.com

ifeof() http://www.paper51.com

  this.enabled=.f.

内容来自论文无忧网 www.paper51.com

  thisform.command4.enabled=.f.

内容来自论文无忧网 www.paper51.com

  messagebox("已经到最后一条记录了!",48,"提示")

http://www.paper51.com

  go bottom

内容来自www.paper51.com

  nhere=recno() http://www.paper51.com

else

内容来自www.paper51.com

  nhere=recno()

copyright paper51.com

  thisform.init copyright paper51.com

endif

paper51.com

thisform.command3.enabled=.t.

paper51.com

thisform.command5.enabled=.t. http://www.paper51.com

快速定位按钮command7,其click event功能实现代码;

copyright paper51.com

selebooksinfo 内容来自www.paper51.com

gotop

内容来自www.paper51.com

ifallt(thisform.text7.value)==""

内容来自论文无忧网 www.paper51.com

  messagebox("请输入要查询的内容!",64,"提示") copyright paper51.com

  thisform.text7.setfocus

copyright paper51.com

else http://www.paper51.com

  locate for allt(编名)=allt(thisform.text7.value) paper51.com

  if eof() copyright paper51.com

    go bottom paper51.com

    thisform.init

内容来自www.paper51.com

    messagebox("此编不存在,请重新输入!",64,"提示")

paper51.com

    thisform.text7.setfocus 内容来自论文无忧网 www.paper51.com

  else http://www.paper51.com

    thisform.init paper51.com

  endif http://www.paper51.com

  nhere=recno()

http://www.paper51.com

endif

http://www.paper51.com

------分隔线----------------------------
联系方式