肯德基天天半价20169月:visual foxpro

来源:百度文库 编辑:九乡新闻网 时间:2024/07/08 20:33:00
 http://airfire.banzhu.net/ 1.do case
   case  thisform.optiongroup1.option1.value=1
      if trim(thisform.text1.value)=cpassword  
     *    do form 总经理
      else
         messagebox("用户名与密码不符合,请重试!",0,'提示')
         itime=itime+1
      endif  2.do form 主界面
thisform.release 3.optiongroup1.option1 编辑状态可拖动  文本柜可以用数据库字段显示 文本柜的contolrowsource属   visual foxpro 组合框查找 google 图书  列表柜文字查找  interactive事件,数据变动时daa=allt(this.value)
sele rcda
set order to 编号
seek daa
rec=recno()
thisform.list1.listindex=rec   列表框上下,文本柜文字    interactive事件,数据变动时 thisform.text1.value=allt(rcda.编号)
thisform.text1.refresh  IF nKeyCode = 13 && Enter
 NODEFAULT
 THISFORM.cmdOK.Click
ENDIF do form other with daa 另一个FORM  的INIT  PARA daa  二个FORM   传递数据记录 visual foxpro常用命令8--启动事件处理语句(read events)  

启动事件处理语句(read events)

启动VFP的事件处理程序。

语法

READ EVENTS

备注

当该命令执行后,系统即停止继续执行后续的语句,这时我们可以调用之前所启动的菜单、表单等对象,并用这些对象的事件程序去完成相应的任务,直到发出 clear events 命令,系统才接着执行 read events 后面的命令语句。

do *.mpr read events thisform.visible=.t. (一个窗口打开一个菜单,执行菜单之后,退出窗口)  select * from cj  where 考号 in ( select 考号 from 考试表 where 考试成绩>500)  从第一个表里取出成绩高分的,找到这些人的工号,再从另一 个表里相关记录   http://www.yuanma.cc//u/download//2009-09/23/visualfoxpro6.rar http://www.ybxez.com/Soft/UploadSoft/201009/VFP9mini.rar   http://www.conft.cn/down/42378.html#