我想用vf根据名字检索其他各种信息

我想用vf根据名字检索其他各种信息,第1张

检索是vfp的基本功能
比excel功能更强大
比如你有一个表,学生表, 有字段: 学号,姓名,籍贯,出生日期等等
根据在文本框输入的姓名, 查询该学生的其他信息:
select 学生表
locate for alltrim(姓名)=alltrim(thisformtext1value)
if found()
display
else
'查无此人'
endif

open database D:员工工资管理系统\员工工资管理系统
if used ("工资发放表")
use 工资发放表 in 0
endif
use D:员工工资管理系统\工资发放表
t1=alltrim(thisformtext1value)
locate for gh=t1
if find()
thisformgrid1recordsource=null
select from 工资发放表 where gh=t1 into cursor "temp"
thisformgrid1recordsource="temp"
else
messagebox("查无此人",64,"提示")
thisformgrid1recordsource=null
endif

一条SELECT语句就可以:
SELECT FROM 表 WHERE 姓名 LIKE '李%' and 性别='男' amd 国籍='中国' INTO CURSOR LSB
BROWE
表是你要查询的表名,姓名 LIKE '李%',%是通配符,表示李姓的人,INTO CURSOR 将查询结果,放到游标中。

楼上的就可以,这里加个:
list all for 性别='男'
或者
use 学生表
go top
do wihle not eof()
locate for 性别='男'
if found()
display
endif
skip
enddo

sele 姓名,科目,成绩 from stud1,stud2 where stud1学号=stud2学号 and 成绩>=85 order by 姓名 into table 学习成绩

我只写程序代码,你可以新建查询---添加表---选择要输出的字段---过滤(如第一题不及格成绩<60)----保存查询输出
sql代码:
1、select student学号,student姓名,student年龄 from student ;
left outer join grade on student学号=grade学号 where grade成绩<60;
into cursor temp
2、select student学号,student姓名,grade课程号,grade成绩 from student left outer join grade on student学号=grade学号 where grade课程名="电子" into cursor temp
。。。

select 姓名,count() cnt
from 学生表
into temp tt;
insert 新表
select 姓名,cnt
from tt
where cnt>1;
cnt>1的都是同名的。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12829982.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-28
下一篇 2023-05-28

发表评论

登录后才能评论

评论列表(0条)

保存