if empty(thisform.Text1.value)=.f.
go top
a=thisform.Combo1.value
一、组合框,文本框,表格
sele 供货商 &;&;表要先加到数据环境中
c1=alltrim(thisformbo1.value)
t1=alltrim(thisform.text1.value) &;&;如果是字符型最好加上alltrim()函数
loca for &;c1=t1
if found()
sele * from 供货商 where &;c1=t1 into cursor "temp"
thisform.grid1.recordsource="temp"
else
messagebox("未找到符合条件的记录!",64,"查询失败")
endif
b=alltrim(thisform.Text1.value)
if a="编号"
locate for 编号=b
if eof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
else
go recno()
endif
endif
if a="网站名称"
locate for 网站名称=b
if eof()
messagebox("数据库中不存在您所要
查询的记录",16,"系统提示")
else
go recno()
endif
endif
if a="网站网址"
locate for 网站网址=b
if eof()
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
else
go recno()
endif
endif
thisform.grid1.setfocus
else
messagebox("请输入要查找的内容!",16,"
系统提示")
thisform.Text1.value=""
thisform.Text1.Setfocus
endif
return
本文来自编程入门网:bianceng/Programming/
vfp/200902/11247.htm
二、登录CLICK
if alltrim(管理员)==alltrim(thisformbo1.value) and alltrim(密码)==alltrim(thisform.text1.value)
=messagebox('登录成功!',0+64+0,'tips')
thisform.release
do form forms\用户数据维护.scx
else
=messagebox('登录失败!',0+64+0,'tips')
thisformbo1.value=""
thisform.text1.value=""
thisform.text1.setfocus
endif
三、VF中如何将文本框输入数据为****即密码输入?
在
VBA窗口中,选中窗体上的文本框,在左侧属性窗口中将文本框的pass
wordChar属性,输入一个星号就行了.
这样,在代码运行时,文件框中的输入内容会变星号。
四、vF编程里面thisformbo1.setfocus是什么意思
把焦点,即光标移到combo1上
五、注册与新增用户
USE DATAS\用户.dbf
locate for alltrim(用户名)==alltrim(thisform.text1.value)
if found()
=messagebox('此用户名已存在,请从新输入!',0+64+0,'tips')
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
insert into datas\用户.dbf values(thisform.text1.value,thisform.text2.value)
=messagebox('恭喜你,
注册成功!')
thisform.release
do form forms\登录界面.scx
endif
form1,int
do main.mpr with this,.t.
六、do form bye.scx
yn=messageBOX("确认退出系统",4+32," 产品基本情况表单")
IF YN=6
THISFORM.RELEASE()
CLEAR EVENTS
QUIT
ENDIF
七、输入超过三次
Combo1代码
username=thisformbo1.value
thisform.text1.setfocus
“确定”按钮代码
i=i+1
locate for 用户=alltrim(thisformbo1.value)and 密码=alltrim(this
form.text1.value)
if found()
messagebox("即将进入系统!")
thisform.release
do form mainform.scx
return
endif
if i=3
messagebox("错误超过三次,禁止进入系统!")
thisform.release
return
endif
messagebox("用户或密码有误,请重新输入!")
thisformbo1.value=""
thisformbo1.setfocus
thisform.text1.value=""
“返回”按钮代码
thisform.release
do form begin.scx
八、vf中 实现 打印 功能的按钮 代码是什么?
先建立相应报表,如学生基本情况,然后打印此报表,如:
report form 学生基本情况 to print preview &;&;打印预览
report form 学生基本情况 to print &;&;打印