关于登录系统的程序问题(比较急)
老师要求我们做一个有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个表单?
谢谢~