連接SQL Server

function TPDMSSQLContext.ConnectionString: string;

begin

Result := 'Provider=SQLOLEDB;Password=' + FPassword + ';Persist Security Info=True;' + 'User ID=' + FUserName + ';Initial Catalog=' + FDatabase + ';Data Source=' + FServer;

end;