我是个完全的初学者,之前照着教程编了一个简单的软件,
后来想加一个登陆界面,就到网上找了别人的源码

IF ALLTRIM(thisform.Text1.Value) == ''
MessageBox("请输入姓名")
RETURN
ENDIF
IF ALLTRIM(thisform.Text2.Value) == ''
MessageBox("请输入密码号")
RETURN
ENDIF
OPEN DATABASE rsgl.dbc
USE yhmm1
&&查找指定姓名为的记录
Locate For Allt(姓名)=Allt(thisform.Text1.Value)
If Found() == .T. &&如果找到
If Allt(密码号) == Allt(thisform.Text2.Value) &&比较密码号，成功则进入
MessageBox("欢迎光临", 64, "提示信息")
release thisform
Else &&比较密码号不成功
MessageBox("密码号不正确", 16, "错误提示")
Endif
Else &&没有找到指定姓名
MessageBox("姓名不存在", 16, "错误提示")
Endif


上面是我修改后的,运行后会出现一个程序错误的信息:函数参数的值,类型或数目无效.
我不懂是哪里出问题,请高手指点一下,谢谢

首先对于 ALLTRIM(thisform.Text1.Value) == ''
你是不是要查找空语句！！如果是，应该前面家empty(ALLTRIM(thisform.Text1.Value))=''

第二，对于查找一个表时，要设定一个主关键字！

第三，用到found()函数时，在主程序里应该有相应的设置！

以上几点不知道对不对，请斑竹也指点点。。谢谢，鸟鸟！

这是我N年前一个VFP+SQLSERVER的登录程序，表是从SQL下载的游标，应该可以用吧，你自己看看吧，取精华弃糟粕

IF EMPTY(alltrim(thisform.text2.value) ) OR EMPTY(alltrim(thisform.text1.value))

MESSAGEBOX("请输入操作员账号及密码!",16,'错误')
else
SELECT password

cname=alltrim(thisform.text2.value) &&获得输入信息
ppassword=alltrim(thisform.text1.value)

set order to 操作员姓名 &&指定控制索引文件
seek cname &&快速查找
set exact on

&&设置字符精确比较
*判断操作员是否正确
if alltrim(password.操作员姓名)!=cname
cn=cn+1
cMessagetitle='系统登录'
cMessagetext='操作员错误，请重新输入！'
nDialogtype=16
nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)

thisform.text2.value=''
thisform.text2.setfocus

if cn=3
thisform.release
endif
else
*判断密码是否正确
if alltrim(password.密码)!=ppassword
cn=cn+1
cmessagetitle='系统登录'
cmessagetext='密码错误，请重新输入！'
ndialogtype=16
nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)

thisform.text1.value=''
thisform.text1.setfocus

if cn=3
quit
endif
else
***这里设置权限管理
czy=cname
thisform.release
DO FORM sell
endif
ENDIF

斑竹！
好象也应该对answer的返回信息进行处理的吧！！
answer=6 肯定！
answer=7 否定！！
对吗？

哈哈,那些我删除了,其实不用的,直接MESSAGEBOX就行,我那时候做程序是为了做实验!~

感谢各位,这个问题解决了,再次感谢

不客气,希望我们共同进步