主题：帮我看看，为什么登入不进去啊
joyping
[专家分：0] 发布于 2005-11-28 21:37:00
string pass_word,usename
SQLCA.DBMS = "ODBC"
SQLCA.DBParm = "ConnectString='DSN=bookdatebase;UID=dba;PWD=sql'"
connect using sqlca;
SELECT 操作员表.用户名,
操作员表.密码
INTO :usename,
:pass_word
FROM 操作员表
WHERE 操作员表.用户名 = :sle_1.text ;
if sle_1.text="" or sle_2.text="" then
messagebox("错误！","用户名或密码不能为空！")
disconnect;
else
if usename=sle_1.text and pass_word=sle_2.text then
open(index)
close(parent)
else
messagebox("错误！","用户名或密码错误，请重新输入！")
disconnect;
end if
end if
数据库连得上，可是总是用户名或密码错误！！
回复列表 （共5个回复）
沙发
suxigui [专家分：0] 发布于 2005-11-29 09:28:00
WHERE 操作员表.用户名 = :sle_1.text
sle_1.text使用变量代替
板凳
lihang7059 [专家分：140] 发布于 2005-11-29 17:15:00
string pass_word,use_name,use_id
SQLCA.DBMS = "ODBC"
SQLCA.DBParm = "ConnectString='DSN=bookdatebase;UID=dba;PWD=sql'"
connect using sqlca;
use_id=sle_1.text
pass_word=sle_2.text
SELECT 操作员表.用户名,
操作员表.密码
INTO :use_name
FROM 操作员表
WHERE 操作员表.用户名 = :use_id;
if use_id="" or pass_word="" then
messagebox("错误！","用户名或密码不能为空！")
disconnect;
end if
if
use_id<>"" or pass_word<>"" then
open(index)
close(parent)
else
messagebox("错误！","用户名或密码错误，请重新输入！")
disconnect;
end if
试试看，好不好用。
3 楼
xbt1983 [专家分：0] 发布于 2005-12-18 13:04:00
string pass_word,usename
SQLCA.DBMS = "ODBC"
SQLCA.DBParm = "ConnectString='DSN=bookdatebase;UID=dba;PWD=sql'"
connect using sqlca;
SELECT 操作员表.用户名,
操作员表.密码
INTO :usename,
:pass_word
FROM 操作员表
WHERE 操作员表.用户名 = :sle_1.text ;
if sle_1.text="" or sle_2.text="" then
messagebox("错误！","用户名或密码不能为空！")
disconnect;
else
if sle_1.text＝usename and sle_2.text＝pass_word then
open(index)
close(parent)
else
messagebox("错误！","用户名或密码错误，请重新输入！")
disconnect;
end if
end if
4 楼
xbt1983 [专家分：0] 发布于 2005-12-18 13:08:00
string pass_word,usename
SQLCA.DBMS = "ODBC"
SQLCA.DBParm = "ConnectString='DSN=bookdatebase;UID=dba;PWD=sql'"
connect using sqlca;
sle_1.text=username
SELECT 操作员表.用户名,
操作员表.密码
INTO :usename,
:pass_word
FROM 操作员表
WHERE 操作员表.用户名 = :sle_1.text ;
if sle_1.text="" or sle_2.text="" then
messagebox("错误！","用户名或密码不能为空！")
disconnect;
else
if pass_word=sle_2.text then
open(index)
close(parent)
else
messagebox("错误！","用户名或密码错误，请重新输入！")
disconnect;
end if
end if
这样应该可以啊 ！！
5 楼
潇洒老乌龟 [专家分：1050] 发布于 2006-01-01 20:59:00
SELECT 操作员表.用户名,
操作员表.密码
INTO :usename,
:pass_word
FROM 操作员表
WHERE 操作员表.用户名 = :sle_1.text ;
将sle_1.text先放到一个变量中.
我来回复
您所在位置：