VF运行一直显示 找不到别名”readpeople“,求解
Form1 读者信息查询界面
Combo1
读者编号
Command1
确定按钮
Text1
班级
Text2
姓名
Text3
学号
Text4
性别
Text5
权限
Text6
借阅情况
Command2
首记录
Command3
上一条记录
Command4
下一条记录
Command5
尾记录
Command6
修改
Command7
退出
Oleboundcontrol1
头像
Form1的init event代码:
thisform.text6.enabled=.F.
Command1的click event代码:
if select("readpeople")=0 &&检查数据表是否打开
messagebox("数据表readpeople不存在,请检查后再试!",0+16,"警告")
else
selec jieboos
go top
q2=""
do while .not.eof()
if allt(read编号)==allt()
q2=q2+书名
endif
skip
enddo
go top
select readpeople &&选取account表
locate for allt()==allt(编号)
if found()
thisform.Text1.value=班级
thisform.Text2.value=姓名
thisform.Text3.value=学号
thisform.Text4.value=姓别
thisform.Text5.value=权限
thisform.text6.value=q2
thisform.Oleboundcontrol1.refresh
endif
endif
&&(temp.学号)
skip
if eof()
else
skip -2
if bof()
else
endif
endif
Text1/2/3/4/5/6的rightclick event代码:
do 快捷菜单.MPR
Command2的click event代码:
go top
thisform.Text1.value=班级
thisform.Text2.value=姓名
thisform.Text3.value=学号
thisform.Text4.value=姓别
thisform.Text5.value=权限
编号
thisform.Oleboundcontrol1.refresh
selec jieboos
q2=""
do while .not.eof()
if allt(read编号)==allt()
q2=q2+书名
endif
skip
enddo
thisform.text6.value=q2
go top
sele readpeople
Command3的click event代码:
if !bof()
skip -1
thisform.Text1.value=班级
thisform.Text2.value=姓名
thisform.Text3.value=学号
thisform.Text4.value=姓别
thisform.Text5.value=权限
thisform.Oleboundcontrol1.refresh
编号
t=recno()
selec jieboos
go top
q2=""
do while .not.eof()
if allt(read编号)==allt()
q2=q2+书名
endif
skip
enddo
thisform.text6.value=q2
sele readpeople
go t
if bof()
endif
endif
if eof()
else
endif
Command4的click event代码:
if !eof()
skip
thisform.Text1.value=班级
thisform.Text2.value=姓名
thisform.Text3.value=学号
thisform.Text4.value=姓别
thisform.Text5.value=权限
编号
thisform.Oleboundcontrol1.refresh
t=recno()
selec jieboos
go top
q2=""
do while .not.eof()
if allt(read编号)==allt()
q2=q2+书名
endif
skip
enddo
thisform.text6.value=q2
sele readpeople
go t
else
endif
if bof()
else
endif
Command5的click event代码:
sele readpeople
go bottom
thisform.Text1.value=班级
thisform.Text2.value=姓名
thisform.Text3.value=学号
thisform.Text4.value=姓别
thisform.Text5.value=权限
thisform.Oleboundcontrol1.refresh
编号
selec jieboos
go top
q2=""
do while .not.eof()
if allt(read编号)==allt()
q2=q2+书名
endif
skip
enddo
thisform.text6.value=q2
go bottom
selec readpeople
Command6的click event代码:
t1=allt(thisform.Text1.value)
t2=allt(thisform.Text2.value)
t3=allt(thisform.Text3.value)
t4=allt(thisform.Text4.value)
t5=thisform.Text5.value
t9=allt()
if thisform.Text1.value!=" " and thisform.Text2.value!=" " and ;
thisform.Text3.value!=" " and thisform.Text4.value!=" "
messagebox("修改成功",0+48,"修改提示")
replace 班级 with t1,姓名 with t2,学号 with t3,姓别 with t4,权限 with t5 for t9=allt(readpeople.编号)
else
messagebox("不能有空",0+48,"修改提示")
endif
Command7的click event代码:
thisform.release
运行时一直显示 找不到别名“readpeople",求解