delphi用adoconnect连接时的报错处理?请高手看看(50分)

procedure TForm2.btn1Click(Sender: TObject);

begin
con1.connected:=false;
con1.connectionstring:='Provider=SQLOLEDB.1;Password=1981121;Persist Security Info=True;User ID=cwal;Initial Catalog=service;Data Source='+trim(edt1.text);
try
con1.connected:=true; //连接远程服务器
except
messagebox(handle,'拥有半月别无所求!!','无敌风火轮',MB_OK+MB_ICONINFORMATION);
end;
为什么输错IP没有提示呀?还有这个加到哪最合适?IP是动态输入的!或者怎样处理这个比较好,请多给点建议

IP地址的判定,要自己加一个FUNCTION来判断,就是在输入之后判断,在edit1.text exit里面加.不过像这种东西,建议由程序固化起来,或者搞一个配置文件来做.真正的用户登录归用户登录,你这种方式登录需要在sql server里面建很多用户的,管理起来不方便.

con1.connectionstring:='Provider=SQLOLEDB.1;Password=1981121;Persist Security Info=True;User ID=cwal;Initial Catalog=service;Data Source='+trim(edt1.text);
改为：
con1.connectionstring:='Provider=SQLOLEDB.1;Password=1981121;Persist Security Info=false;User ID=cwal;Initial Catalog=service;Data Source='+trim(edt1.text);

Persist Security Info=True 代表使用windows 集成登陆方式

谢谢了!!!

谢了