急需您的帮忙:做个VFP界面

来源：百度知道 编辑：UC知道 时间：2024/09/28 12:41:18
是一个登陆界面 要求能够判断用户名和密码的正确与否.....
等待您的帮忙

没法写出全部程序,先给你个"确定"比较的程序段
**commandOK.click

sele ryid_temp &&密码表
go top
Tyrybm=Alltrim(thisform.TxtRybm.value)&&人员编码
Tykl1=alltrim(thisform.TxtKl.value)&&口令
&&较对密码
loca for alltrim(rybm)==Tyrybm .and. alltrim(kl1)==Tykl1
if !eof() &&有此操作人员
thisform.visible=.f.
thisform.release
do form dmgl name dmgl&&转到下个程序
else
=messagebox("密码输入错误，请重新输入！……",0+64,"系统提示")
thisform.txtkl.setfocus
endif