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

A400224航班信息查询系统

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

thisform.release 内容来自论文无忧网 snowings.com

修改模块

内容来自snowings.com

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

     内容来自snowings.com

   label1-label10,其caption属性值如图,backstyle为0,label1用于统计图编记录的总数,label8用于显示当前是第几条记录.label1的init event实现代码为; 内容来自snowings.com

countall to num http://snowings.com

thisform.label11.caption=allt(str(num))

内容来自论文无忧网 snowings.com

gotop 内容来自snowings.com

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

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

paper51.com

publicnhere,num paper51.com

thisform.text1.readonly=.t.

copyright paper51.com

thisform.text2.readonly=.t.

http://snowings.com

thisform.text3.readonly=.t. http://snowings.com

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

thisform.text5.readonly=.t.

paper51.com

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

thisform.edit1.readonly=.t. copyright paper51.com

thisform.text1.value=allt(编号)

内容来自论文无忧网 snowings.com

thisform.text2.value=allt(编名)

内容来自snowings.com

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

thisform.text4.value=allt(作者)

http://snowings.com

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

thisform.text6.value=allt(定价)

内容来自snowings.com

thisform.edit1.value=allt(备注) 内容来自论文无忧网 snowings.com

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

paper51.com

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

thisform.text1.readonly=.f.

paper51.com

thisform.text2.readonly=.f.

内容来自论文无忧网 snowings.com

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

thisform.text4.readonly=.f.

内容来自snowings.com

thisform.text5.readonly=.f.

copyright paper51.com

thisform.text6.readonly=.f. 内容来自snowings.com

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

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

usebooksinfo exclusive 内容来自snowings.com

gonhere

内容来自论文无忧网 snowings.com

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

内容来自论文无忧网 snowings.com

ifmb==1 内容来自snowings.com

  delete http://snowings.com

  pack

内容来自snowings.com

  thisform.label11.init

http://snowings.com

  if nhere>num

内容来自论文无忧网 snowings.com

    go bottom

copyright paper51.com

    thisform.init

内容来自snowings.com

  else

http://snowings.com

    go nhere

http://snowings.com

    thisform.init

内容来自论文无忧网 snowings.com

  endif paper51.com

endif

paper51.com

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

copyright paper51.com

gotop copyright paper51.com

nhere=recno() paper51.com

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

thisform.command4.enabled=.t.

copyright paper51.com

thisform.command6.enabled=.t.

内容来自论文无忧网 snowings.com

thisform.init copyright paper51.com

最后一条按钮command4,其click event功能实现代码;

copyright paper51.com

gobottom 内容来自snowings.com

nhere=recno()

http://snowings.com

thisform.label8.caption=allt(str(recno())) 内容来自snowings.com

thisform.command3.enabled=.t.

http://snowings.com

thisform.command5.enabled=.t.

内容来自snowings.com

thisform.init copyright paper51.com

上一条按钮command5,其click event功能实现代码; http://snowings.com

skip-1

copyright paper51.com

ifbof() 内容来自snowings.com

  this.enabled=.f.

paper51.com

  thisform.command3.enabled=.f. 内容来自论文无忧网 snowings.com

  messagebox("已经到第一条记录了!",48,"提示") 内容来自snowings.com

  go top paper51.com

  nhere=recno() http://snowings.com

else

内容来自论文无忧网 snowings.com

  thisform.init 内容来自论文无忧网 snowings.com

  nhere=recno() paper51.com

endif http://snowings.com

thisform.command4.enabled=.t.

内容来自snowings.com

thisform.command6.enabled=.t. paper51.com

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

copyright paper51.com

skip1 copyright paper51.com

ifeof()

内容来自论文无忧网 snowings.com

  this.enabled=.f.

http://snowings.com

  thisform.command4.enabled=.f.

http://snowings.com

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

  go bottom

http://snowings.com

  nhere=recno()

copyright paper51.com

else

http://snowings.com

  nhere=recno() 内容来自snowings.com

  thisform.init

copyright paper51.com

endif paper51.com

thisform.command3.enabled=.t. 内容来自论文无忧网 snowings.com

thisform.command5.enabled=.t.

paper51.com

快速定位按钮command7,其click event功能实现代码; 内容来自论文无忧网 snowings.com

selebooksinfo

paper51.com

gotop

内容来自snowings.com

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

paper51.com

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

内容来自snowings.com

  thisform.text7.setfocus 内容来自snowings.com

else 内容来自snowings.com

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

内容来自论文无忧网 snowings.com

  if eof() paper51.com

    go bottom

http://snowings.com

    thisform.init

http://snowings.com

    messagebox("此编不存在,请重新输入!",64,"提示") http://snowings.com

    thisform.text7.setfocus http://snowings.com

  else

paper51.com

    thisform.init copyright paper51.com

  endif 内容来自论文无忧网 snowings.com

  nhere=recno()

paper51.com

endif

内容来自论文无忧网 snowings.com

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