如何去掉DELPHI运行时的密码提示窗口!!请老师们帮忙,很急,谢谢!!(20分)

  • 主题发起人 主题发起人 yyjqtww
  • 开始时间 开始时间
Y

yyjqtww

Unregistered / Unconfirmed
GUEST, unregistred user!
我的前台是用DELPHI,后台数据库用的是SQL server7.0,
不过运行DELPHI时每次都有一个密码提示输入框,
怎么才能去掉它,谢谢!!!!
 
将LOGINPROMPT的属性改为FALSE
 
LOGINPROMPT的属性在哪里啊!!!
不好意思啊,我满笨的:)
 
ADOConnection或Database1的属性中就有。
 
如果你使用BDE连接的
例如用Database1,则LOGINPROMPT在Database1的属性中
或者你可以在FormCreate中加入
Database1.LoginPrompt := False;

如果你使用的是ADO,例如用ADOConnection1,
则LOGINPROMPT在ADOConnection1的属性中
也可以用:
ADOConnection1.LoginPrompt := False;
 
DELPHI是通过TDATABASE控件来实现与数据
库的自动连接. TDATABASE的LoginPrompt属性设为TRUE,就会触发TDATABASE的OnLogin
事件,进行登录.实现了DELPHI的自动登录数据库
database1.onlogin="数据库用户名"
database1.password="密码"
........
 
在Delphi中,有Database元件和对象,Database对象有属性:Params和LoginPrompt,充分使用这两个属性就会自动Login数据库。下面的例程就会自动Login。

例:新建一程序(Project),在Form上放置Table,Database,DataSource,DBGrid各一个,并通过Object Inspector将DBGrid的DataSource指向DataSource,DataSource的DataSet指向Table。双击Form,进入Form1的Create事件程序代码编辑,输入:
Database1.Params.Values['USERNAME']:='SYSDBA';
Database1.Params.Values['PASSWORD']:='masterkey';
Database1.LoginPrompt:=False;
Database1.DatabaseName:='MYDB';
Database1.AliasName:='IBLOCAL';
Table1.DatabaseName:='MYDB';
Table1.TableName:='EMPLOYEE';
Table1.Open;
运行程序则可以自动Login Interbase,将数据表中的数据显示在DBGrid中。
注:由于Delphi 3安装不会自动安装Interbase数据库程序,所以如果运行以上程序必须安装Interbase。但是可以使用其他的数据服务器,如Oracle或Sybase,ODBC等。对于不需要用户名和密码的ODBC驱动,可以设置USERNAME和PASSWORD为空。
 
我没有BDE也没用ADO,我直接用ODBC中的数据源连接的。用的是TABLE和TDATASOUCE控件,难道
必须用BDE或ADO吗
 
当然不是,加一个database控件,设置name属性,并把LoginPrompt设为false,
在table的name中选database的name
 
bluesea_sky说的没错,你自己再好好看看吧
 
bluesea_sky所说的我只用在了一个窗体上,但是不行。
我有很多窗体上都连用后台数据库,难道每一个都要这样设置才行是不是?
 
而且如果一个窗体上有多个TABLE难道也要设置多个DATABASE吗???
 
你在数据摸班上放一个database,建一个别名,其他的TABLE都用这个别名就可以了
 
谢谢帮助我的各位老师!!!特别要感谢小猪同志,真的谢谢你!!!!
 
LOGINPROMPT:=FALSE
 
后退
顶部