我在本机上安装了sqlserver7,用odbc建立了数据源,在dbe admin中建立了别名,编写了一个登陆界面,form中有database和query两个控间;可是不知道那里设置不对,总提示错误 if edit1.Text='' then
begin
edit1.SetFocus;
showmessage('请输入您的用户名');
end
else
begin
query1.Close;
query1.sql.Clear;
query1.SQL.Add('select user_id,user_name,user_password,role_id from zbase_user');
query1.SQL.Add('where user_name='+edit1.Text);
query1.SQL.Add('and user_password='''+maskedit1.Text+'''');
query1.open; if (query1.RecordCount<>1) or (maskedit1.text<>query1.FieldValues['user_password']) then
begin
showmessage('口令不对,请检查。');
edit1.SetFocus;
end
else
begin
w_main.enabled:=true; //w_main open
close; // close w_log
end;
end;end;提示错误是: project source.exe raise exception clasee edbengineerror with message 'invalid filed name.
[microsoft][odbe sqlserver driver][sql server] invalid column name 'guester'.'.process stopped.use step or run to continue.
begin
edit1.SetFocus;
showmessage('请输入您的用户名');
end
else
begin
query1.Close;
query1.sql.Clear;
query1.SQL.Add('select user_id,user_name,user_password,role_id from zbase_user');
query1.SQL.Add('where user_name='+edit1.Text);
query1.SQL.Add('and user_password='''+maskedit1.Text+'''');
query1.open; if (query1.RecordCount<>1) or (maskedit1.text<>query1.FieldValues['user_password']) then
begin
showmessage('口令不对,请检查。');
edit1.SetFocus;
end
else
begin
w_main.enabled:=true; //w_main open
close; // close w_log
end;
end;end;提示错误是: project source.exe raise exception clasee edbengineerror with message 'invalid filed name.
[microsoft][odbe sqlserver driver][sql server] invalid column name 'guester'.'.process stopped.use step or run to continue.
你再仔细检查一个你的列及字段名是不是马虎写错什么地方了
query1.SQL.Add('where user_name='+edit1.Text);
where前要加空格,下句也要
query1.SQL.Add(' where user_name='+edit1.Text);
query1.SQL.Add(' and user_password='''+maskedit1.Text+'''');