我用query控件连接sql server,在程序运行时总是跳出访问数据库时要填写
用户名和密码的对话框(但我在建立数据源和数据库时都未设用户名和密码),
我不填这两项直接按"ok",能继续运行程序并能访问数据库,在以后的访问数据库
操作中不再跳出此框,请问怎么解决?
用户名和密码的对话框(但我在建立数据源和数据库时都未设用户名和密码),
我不填这两项直接按"ok",能继续运行程序并能访问数据库,在以后的访问数据库
操作中不再跳出此框,请问怎么解决?
解决方案 »
- 如何读取另一软件上的数据
- Delphi7 有的功能, Delphi2006 居然没有???
- 时间段查询。
- [求助]打印四联发票的针式打印机和喷墨打印机在编程控制上有什么不同
- 各位帮帮忙,可能我说的不是很清楚,
- 怎么做一个象norton病毒库更新一样的程序来实现数据更新
- 请教: 如何用delphi制作VCD播放器
- 备份interbase数据库是否只是copy *.gdb 文件也可以
- 哪有支持delphi开发的isapi和cgi的免费空间!速度且较快!100分送上!不够再要!
- 我在LISTVIEW中使用finddata怎么不管用呀!!!请用过的人帮我看看!!
- 高手请进,如何实现这个功能?**************
- 紧急求助!!!
再把LOGIN PROMPT选不中
function ConnectDB(DataBase:TDatabase;ServerName,UserName,PassWord:string;
DBName:string='master'):Boolean;
begin
Result:=false;
DataBase.Connected:=false;
DataBase.Params.Clear;
Database.DriverName:='MSSQL';
Database.Params.Values['DataBase Name']:=DBName;
Database.Params.Values['Server Name']:=ServerName;
Database.Params.Values['User Name']:=UserName;
Database.Params.Values['PassWord']:=Password;
try
Database.Connected:=true;
except
Exit;
end;
Result:=true;
end;
注意DataBase.databasename不能为空, DataBase.databasename就是你程序中用到的别名
如query1.databasename 就是它
注意还要把database的loginprompt设为false
但还是跳出那框。
Database控件的loginprompt属性设为false
database1.Params.Values['password']:='';
database1.LoginPrompt:=false;
database1.DatabaseName:='xcdb';
database1.AliasName:='xcdb';
database1.KeepConnection:=true;
在组件板中选中BDE组件中的database组件。
放在窗体中。
在窗体的Oncreate事件中加入上述形式的代码。
代码的含义:
database1.Params.Values['username']:='';//设置database1所关联的数据库的用户名为空
database1.Params.Values['password']:='';//设置database1所关联的数据库的密码为空
database1.LoginPrompt:=false;
database1.DatabaseName:='xcdb';//设置数据库名称
database1.AliasName:='xcdb';//设置数据库别名
database1.KeepConnection:=true;//保持连接
Database控件的loginprompt属性设为false
database1.KeepConnection:=true;
在database中设置username和password
设置database的Database控件的loginprompt属性设为false
database1.KeepConnection:=true;
loginprompt属性设为false
这个你可以新建一个工程试一下