Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1267022
  • 博文数量: 788
  • 博客积分: 4000
  • 博客等级: 上校
  • 技术积分: 7005
  • 用 户 组: 普通用户
  • 注册时间: 2008-08-19 15:52
文章存档

2017年(81)

2011年(1)

2009年(369)

2008年(337)

分类:

2009-02-19 17:03:24



我用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) |
给主人留下些什么吧!~~