USE C:\车辆管理系统\用户密码表.dbf EXCLUSIVE
Locate FOR 用户名 = ALLTRIM(ThisForm.Combo1.Value)
IF FOUND() AND 密码 = ALLTRIM(ThisForm.Text1.Value)
DO FORM 功能选择.scx
ELSE
IF ThisForm.密码 = !ALLTRIM(ThisForm.Text1.Value)
= MessageBox("操作员密码错误!"+chr(13)+"请重新输入!",48."警告") ThisForm.Text1.SetFocus
ThisForm.Text1.SetFocus
ELSE
= MessageBox("对不起,您已经三次输入错误!"+chr(13)+"非法用户,请您退出系统",48,"严重警告!!"
ThisForm.Release
ENDIF
ENDIF

提示:找不到属性 密码
请问是怎么回事,是不是代码少写什么了.

USE C:\车辆管理系统\用户密码表.dbf EXCLUSIVE
Locate FOR 用户名 = ALLTRIM(ThisForm.Combo1.Value)
IF FOUND() AND 密码 = ALLTRIM(ThisForm.Text1.Value)
DO FORM 功能选择.scx
ELSE
IF ThisForm.密码 = !ALLTRIM(ThisForm.Text1.Value)
= MessageBox("操作员密码错误!"+chr(13)+"请重新输入!",48."警告") ThisForm.Text1.SetFocus
ThisForm.Text1.SetFocus
ELSE
= MessageBox("对不起,您已经三次输入错误!"+chr(13)+"非法用户,请您退出系统",48,"严重警告!!"
ThisForm.Release
ENDIF
ENDIF

去掉下划线部分的内容。因为"密码"不是表单的一个属性。

[此贴子已经被作者于2006-7-28 11:11:07编辑过]