با سلام
قسمتی از کد برنامه ام جهت اتصال SqlServer را گذاشتم
بطور خلاصه من توسط فرمی یوز ،رمز و نام سرور در فایل XML ذخیره می کنم و موقع ایجاد فرم فراخوانی میکنم
var
path,user_name,pass,m_server,con_string:string;
begin
ClientDataSet1.LoadFromFile(path+'log.xml');
ClientDataSet1.Active:=true;
if ClientDataSet1.IsEmpty then config_server.ShowModal else
begin
user_name:=ClientDataSet1.FindField('user_name').A sString;
m_server:=ClientDataSet1.FindField('Server_name'). AsString;
pass:=ClientDataSet1.FindField('Pass').AsString;
con_string:='Provider=SQLOLEDB.1;Password='+pass+' ;Persist Security Info=True;User ID='+user_name+';Initial Catalog=MyDatabase;Data Source='+m_server+'';
ADOConnection1.ConnectionString:=con_string;
ADOConnection1.Connected:=true;
end;
end;