if empty(thisform.Text1.value)=.f.
locate for 姓名=alltrim(thisform.text1.value)
if found ()
select 姓名 from 员工基本情况.dbf where 姓名==alltrim(thisform.Text1.value) into array aa
thisform.Pageframe1.Page1.text1.value=aa(1)
select 性别 from 员工基本情况.dbf where 姓名==alltrim(thisform.Text1.value) into array ab
thisform.Pageframe1.Page1.text2.value=ab(1)
else
messagebox("数据库中不存在您所要查询的记录",16,"系统提示")
thisform.Text1.refresh
return
endif
else
messagebox("请输入要查找的内容!",16,"系统提示")
thisform.Text1.value=""
thisform.Text1.Setfocus
endif
USE f:\kugou\人事管理系统\员工简历
locate for 姓名=alltrim(thisform.text1.value)
if found ()
select 参加工作时间 from 员工简历.dbf where 姓名==alltrim(thisform.Text1.value) into array ba
thisform.Pageframe1.Page2.text1.value=ba(1)
select 工龄 from 员工简历.dbf where 姓名==alltrim(thisform.Text1.value)into array bb
thisform.Pageframe1.Page2.text2.value=bb(1)
select 用工形式 from 员工简历.dbf where 姓名==alltrim(thisform.Text1.value) into array bc
thisform.Pageframe1.Page2.text3.value=bc(1)
endif
return