我用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;
谢谢指导。
[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;
谢谢指导。
DataBase:='User Name=sa Password=密码'就可以了