两层结构的问题(50分)

程序使用ADOCONNECTION，ADOQUERY，DATASOURCE
用ADOCONNECTION连接到远程SQL服务器，在设计时，
数据库全部连接成功，数据也成功显示，但在运行时，输入用户与密码后就没反应了，
请问，这是什么原因，怎么解决？

你程序的BUG或是网络问题!!!

仔细看看代码和有关控件的配置，建议全部有关数据库连接和打开的操作用代码来写，如：
database1.open;

把adoconnection.loginprompt 设为false试试

将连接信息写在程序中,然后同楼上！

这是我的一部份源码，请看看有什么问题
procedure TFormcode.ADOConnection1Login(Sender: TObject;
Username,
Password: String);
begin
with ADOConnection1do
begin
Close;
LoginPrompt := False;
ConnectionString := 'Provider=SQLOLEDB;Remote Server=SQL的服务器名';
Open('..', '..');//这里省去用户名与密码
end;
end;

procedure TFormcode.RadioButton1Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.sql.text:='select codeno,codename from culture order by codeno';
adoquery1.open;
dbedit1.datafield:='codename';
end;