在运行登录窗口的时候出错,说什么无法连接数据源
我的代码如下
With DM_main do
begin
Database.Connected:=True;
passwd:=edit2.Text;
Q_login.Params.ParamValues['USER']:=edit1.Text;
Q_login.Params.ParamValues['PASSWD']:=passwd;
Q_login.Open;
if Q_login['COUNT']=1 then
begin
form1.n10.enabled:=true;
form1.n2.enabled:=true;
form1.n3.enabled:=true;
form1.toolbutton2.enabled:=true;
form1.toolbutton1.Enabled:=true;
form1.StatusBar1.Panels[0].Text:='已经连接到服务器';
form1.StatusBar1.Panels[1].Text:=''
end
else
begin
Application.MessageBox('请确认用户名和密码,注意大小写!', '认证失败',MB_OK);
Database.Connected:=False;
end;
end;database设置如下:
SERVER NAME=
USER NAME=MISDBA
OPEN MODE=READ/WRITE
SCHEMA CACHE SIZE=8
LANGDRIVER=
SQLQRYMODE=
SQLPASSTHRU MODE=SHARED AUTOCOMMIT
SCHEMA CACHE TIME=-1
MAX ROWS=-1
BATCH COUNT=200
ENABLE SCHEMA CACHE=FALSE
SCHEMA CACHE DIR=
ENABLE BCD=FALSE
BLOBS TO CACHE=64
BLOB SIZE=32
PASSWORD=PASSWORDquery设置如下:SELECT COUNT(用户名)
FROM 用户表
WHERE 用户名= :USER
AND 用户密码= :PASSWD请问,我是哪里设置错了?
我的代码如下
With DM_main do
begin
Database.Connected:=True;
passwd:=edit2.Text;
Q_login.Params.ParamValues['USER']:=edit1.Text;
Q_login.Params.ParamValues['PASSWD']:=passwd;
Q_login.Open;
if Q_login['COUNT']=1 then
begin
form1.n10.enabled:=true;
form1.n2.enabled:=true;
form1.n3.enabled:=true;
form1.toolbutton2.enabled:=true;
form1.toolbutton1.Enabled:=true;
form1.StatusBar1.Panels[0].Text:='已经连接到服务器';
form1.StatusBar1.Panels[1].Text:=''
end
else
begin
Application.MessageBox('请确认用户名和密码,注意大小写!', '认证失败',MB_OK);
Database.Connected:=False;
end;
end;database设置如下:
SERVER NAME=
USER NAME=MISDBA
OPEN MODE=READ/WRITE
SCHEMA CACHE SIZE=8
LANGDRIVER=
SQLQRYMODE=
SQLPASSTHRU MODE=SHARED AUTOCOMMIT
SCHEMA CACHE TIME=-1
MAX ROWS=-1
BATCH COUNT=200
ENABLE SCHEMA CACHE=FALSE
SCHEMA CACHE DIR=
ENABLE BCD=FALSE
BLOBS TO CACHE=64
BLOB SIZE=32
PASSWORD=PASSWORDquery设置如下:SELECT COUNT(用户名)
FROM 用户表
WHERE 用户名= :USER
AND 用户密码= :PASSWD请问,我是哪里设置错了?
FROM 用户表
WHERE 用户名= :USER
AND 用户密码= :PASSWD
//cry
怀疑是database什么设置有问题
没有指定 Database Name 啊
但是编译的时候还要我输入用户密码,不知道为什么