老师要求我们做一个有6个表单的程序，我想做一个登录系统，要有能注册。我弄了个表用来存储注册用户名和密码。但我不知道怎么样能把信息存到表中，登录的时候怎么样用表来验证用户名和密码。
下面是我写的代码但我不知道哪错了，不管我输的用户名，密码对不对都提示错误
use  e:\新建文件夹\系统\姓名及密码.dbf
a=alltrim(thisform.text1.value)
b=alltrim(thisform.text2.value)

if alltrim(姓名及密码.姓名)!=a .or. alltrim(姓名及密码.密码)!=val(b)
messagebox("姓名或密码错误",0,"错误提示")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
do FORM e:\新建文件夹\系统\表单4.scx
endif
顺便问一下还有什么程序要用6个表单？
谢谢~

密码怎么变成了数值型？

use  e:\新建文件夹\系统\姓名及密码.dbf
a=alltrim(thisform.text1.value)
b=alltrim(thisform.text2.value)

if alltrim(姓名及密码.姓名)!=a .or. alltrim(姓名及密码.密码)!=val(b)
messagebox("姓名或密码错误",0,"错误提示")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
else
do FORM e:\新建文件夹\系统\表单4.scx
endif
顺便问一下还有什么程序要用6个表单？*****一个程序可能要有N个表单.

另外:要把信息存到表中,需要另编写密码修改程序.将修改后的信息存到表中:
repl 姓名及密码.姓名 with alltrim(thisform.text1.value),姓名及密码.密码 with alltrim(thisform.text2.value)


[ 本帖最后由 muyubo 于 2011-6-6 09:15 编辑 ]

因为存储在表里的密码是数值型 只有与表里的密码相同才能进入所以我把它变成数值型

如果存储在表里的密码是数值型，就不能使用alltrim(姓名及密码.密码)

alltrim是因为输入到text的值是字符型的

建议：把不等号换成等号好一些。例如：
if alltrim(姓名及密码.姓名)==alltrim(a) and 姓名及密码.密码=val(b)
   do FORM e:\新建文件夹\系统\表单4.scx
else
 ...
endif
另外，密码存放在 access 表中更安全一点。

设计思路就是错误的，密码应该是由字符（包括字母字符和数字字符）组成，因而不应使用数值型。
另外，把a=alltrim(thisform.text1.value)、b=alltrim(thisform.text2.value)中的value换成text试试。
一般情况下，我是把给控件赋值时用value，而取值时用text。

除了这些就没错了？

好像可以了 谢谢 请问text和value有什么区别？