我用BDE连接SQL SERVER 2000在应用程序界面登录时出错,提示如下:
[Microsoft][ODBC SQL Server Driver][SQL Server]用户'(null)'登录失败。原因
未与信任SQL Server连接相关联。
哥位高手,到底是怎么回事啊。登陆按钮的代码如下:
procedure TLoginForm.Button1Click(Sender: TObject);
var
aname,apassword:string;
begin
aname:=trim(Edit1.Text);
apassword:=trim(Edit2.Text);
Table1.Open;
Table1.SetKey;
Table1.Fields[0].AsString:=aname;
if Table1.GotoKey then
if Table1.Fields[1].AsString=apassword then
if Table1.Fields[2].AsString='内部管理员' then
begin
Table1.Close;
LoginForm.hide;
ManageForm.show
end
else
begin
Table1.Close;
LoginForm.hide;
ServeingForm.show
end
else
begin
MessageDlg('您不是合法的用户,请退出!',mtInformation,[mbOk],0);
Table1.Close;
LoginForm.Close;
end;
end;
谢谢指导。
TDataBase中的Params没赋值,
DataBase:='User Name=sa Password=密码'就可以了
数据库在本地还是在另外机子?有没有访问数据库的权限?访问数据库时要添加用户名和密码的,,
没有设置访问数据库的用户与密码,设置就OK了
--------------------------
新闻:
专注、极致、快、口碑 互联网创业的葵花宝典导航:
博客园首页 知识库 新闻 招聘 社区 小组 博问 网摘 找找看
阅读(1872) | 评论(0) | 转发(0) |