连接数据库的登陆窗口

Question

用一个adoconnection控件连接数据库 
  servername:=trim(edit1.Text);
        dbname:=trim(edit2.Text);
        uid:=trim(edit3.Text);
        pwd:=trim(edit4.Text);
        dm.adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Password='+pwd+';Persist Security Info=False;User ID='
                                  +uid+';Initial Catalog='+dbname+';Data Source='+servername ;
dm.adoconnection1.Connected
我想要达到的效果就是：当点击登陆的时候，开始执行上述的代码，如果不正确就继续显示这个窗口，点击取消的时候就结束程序，可以实现码？！！！！！！！！

Answer 1

把上面的代码加入button的onclick，判断一下就行了。

Answer 2

这么麻烦干吗，使用下面的语句：dm.adoconnection1.ConnectionString := PromptDataSource(Handle, DataConnection.ConnectionString);
dm.adoconnection1.Connected := true;

Answer 3

更正：dm.adoconnection1.ConnectionString := PromptDataSourc(Handle, dm.adoconnection1.ConnectionString);
dm.adoconnection1.Connected := true;